klittle314

#test app to load the form and clear it for second record entry
#Kevin Little, Ph.D.  18 Nov 2015 

require(shiny)
require(shinyapps)
require(shinyjs)

#local df taking the place of a Google sheet
df1 <- data.frame(name="name1", stringsAsFactors = FALSE)

klittle314

#test app to load the form and clear it for second record entry
#Kevin Little, Ph.D.  18 Nov 2015 

require(shiny)
require(shinyapps)
require(shinyjs)

#local df taking the place of a Google sheet
df1 <- data.frame(name="name1", stringsAsFactors = FALSE)

klittle314

#Global function for test of DRG State Hospital display 
# 29 July 2013 Kevin Little, Ph.D.  

#create data elements:  for each state, there are multiple hospitals that report
#values for multiple DRGs
State<-as.factor(rep(c("CA","CA","CA","CA","NJ","NJ","NJ","WY","WY"),3))
DRG<-as.factor(rep(c("101","102","103"),each=9))
Hospital<-as.factor(rep(c("C1","C2","C3","C4","N1","N2","N3","W1","W2"),3))

klittle314

#global.R 
#This is the set up of the data files for use in the Map DRG 100 example
# We create the master data file which will be subsetted by the Shiny application.  The data file is in the working directory for the app
# Kevin Little, Ph.D., 13 June 2013  klittle@iecodesign.com
# app requires ggplot2 and googleVis packages

#example from CMS  requires package  ggplot2
d1<-read.csv("CMSexample.csv", colClasses="character")
summary(d1)
for(i in 9:11){