added google analytics

.gitignore

@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .Ruserdata
+google-analytics.js

rsconnect/shinyapps.io/kcvi/START.dcf

@@ -2,8 +2,8 @@ name: START
 account: kcvi
 server: shinyapps.io
 appId: 77829
-bundleId: 400366
+bundleId: 405946
 url: https://kcvi.shinyapps.io/START/
-when: 1458609032.09921
+when: 1459289848.00069
 asMultiple: FALSE
 asStatic: FALSE

ui-tab-inputdata.R

@@ -33,7 +33,8 @@ tabPanel("Input Data",
            ),
            conditionalPanel(condition="input.use_example_file=='upload'",
                             radioButtons("inputdat_type","Input Data Type:",
-                                         c("Raw data: Gene Counts"="counts",
+                                         c("Raw count data: Gene Counts"="counts",
+                                           #"Microarray expression data"="microarray",
                                            "Analyzed data: Expression Values, p-values, fold changes"="analyzed")),
                             fileInput('datafile', 'Choose CSV or TSV File Containing Data',
                                       accept=c('text/csv', 

ui.R

@@ -33,11 +33,14 @@ customHeaderPanel <- function(title,windowTitle=title){
 }
 # collects all of the tab UIs
 #shinyUI(
+#
+
 navbarPage(
-  fluid = TRUE,theme = "bootstrap.min.united.css",
+  fluid = TRUE,
+  theme = "bootstrap.min.united.css",
   #United theme from http://bootswatch.com/
   #customHeaderPanel(title="START: RNAseq Analysis and Visualization Resource"),#img(src="KCardio_CMYK_4C_pos_small.jpg",height=50,width= 92,align="right")	,
-  title="START: Shiny Transcriptome Analysis Resource Tool", 
+  title="START: Shiny Transcriptome Analysis Resource Tool",
   ## =========================================================================== ##
   ## DOWNLOAD DATA TABS
   ## =========================================================================== ##
@@ -62,10 +65,11 @@ navbarPage(
            p(("Knight Cardiovascular Institute, Oregon Health & Science University"),align="center",width=4),
            p(("Copyright (C) 2014-2016, code licensed under GPLv3"),align="center",width=4),
            p(("Code available on Github:"),a("https://github.com/jminnier/STARTapp",href="https://github.com/jminnier/STARTapp"),align="center",width=4)
-  )
+  ),
 
   ## ==================================================================================== ##
   ## end
   ## ==================================================================================== ## 
+  tags$head(includeScript("google-analytics.js"))
 ) #end Navbar