Li Yuze lytze
lytze
/ server.R
Last active
August 29, 2015 14:17
— forked from withr/server.R
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| library(datasets) | |
| Logged = FALSE; | |
| PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad") | |
| # Define server logic required to summarize and view the selected dataset | |
| shinyServer(function(input, output) { | |
| source("www/Login.R", local = TRUE) | |
| observe({ | |
| if (USER$Logged == TRUE) { |
lytze
/ exampleRScript1.r
Last active
August 29, 2015 14:08
— forked from ericminikel/exampleRScript1.r
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/broad/software/free/Linux/redhat_5_x86_64/pkgs/r_3.0.2/bin/Rscript | |
| # Eric Vallabh Minikel | |
| # CureFFI.org | |
| # 2014-01-14 | |
| # example of how to use optparse in R scripts | |
| # usage: ./exampleRScript1.r -a thisisa -b hiagain | |
| # ./exampleRScript1.r --avar thisisa --bvar hiagain |
lytze
/ bright_object.R
Created
August 31, 2014 02:00
— forked from dsparks/bright_object.R
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("ReadImages", "reshape", "ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| imageLoader <- function(url){ # This function takes a URL, and generates a data.frame with pixel locations and colors | |
| # Download to disk, load | |
| download.file(url, "tempPicture.jpg", mode = "wb") # Stash image locally | |
| readImage <- read.jpeg("tempPicture.jpg") | |