jcheng5

#initialize
library(datasets)
library(ggplot2) 

#helper function (convert vector to named list)
namel<-function (vec){
		tmp<-as.list(vec)
		names(tmp)<-as.character(unlist(vec))
		tmp
	}

jcheng5

library(chron)
library(shiny)



energy1=c(76.1,77,78.1,78.2,78.8,79.7,79.9,81.1,81.2,81.8,82.8,83.5)
cost1=c(7.1,7,7.1,7.2,7.8,7.7,7.9,8.1,8.2,8.8,8.8,8.5)
time1=c(20130301,20130401,20130501,20130601,20130701,20130801,20130901,20131001,20131101,20131201,20140101,20140201)
time1=as.Date(as.character(time1),format="%Y%m%d")
shinymonth=data.frame(time=time1,energy=energy1,cost=cost1)

jcheng5

#StrategicPestTechnologies: Functions

#~~~~~~~~~~~Calc trap info~~~~~~~~~~~~
trap.info.func<-function(file){
#Take file
#Return: traps, n.traps, ylims, xlims, total.area

traps<-read.table(file, header=FALSE)
colnames(traps)<-c("ID","X","Y")
n.traps<-dim(traps)[1]

jcheng5

###############################################
##
##    Attempt no 2 at building a shiny web app
##    for AB Testing use - using global.R
##
##    global.R - loading and defining variables for the global environment
##
###############################################

# Pallette used in some charts as a general indicator color for better or worse that the control group

jcheng5

library(shiny)

shinyServer(function(input, output) {
  
  output$intense <- reactivePrint(function() {
    if(input$panel==2){
      Sys.sleep(10)
      return('Finished')
    }else({return(NULL)})
  })

jcheng5

jcheng5

<script src="https://github.com/livereload/livereload-js/raw/master/dist/livereload.js?host=localhost"></script>

jcheng5

# Some pre-computed stuff in R. In this example, just assign values to a var
# data_sets <- c("mtcars", "morley", "rock")

data_sets <- c("mymtcars","mtcars", "morley", "rock")
mymtcars <- mtcars[,1:4]

shinyServer(function(input, output) {

  mymtcars <- mymtcars

jcheng5

library(shiny)

shinyServer(function(input, output) {
   re <- reactive(function(){
      cat("re called\n",file=stderr())
      input$n
   })

   output$ntext <- reactiveText(function() {
      cat("output$ntext called\n",file=stderr())

jcheng5

library(shiny)
library(datasets)
library(ggplot2)

tg <- ToothGrowth
tg$dose <- factor(tg$dose)

# Define server logic
shinyServer(function(input, output) {