fix merge issues

jminnier · Dec 9, 2019 · 801ea02 · 801ea02
1 parent 774d8a9
commit 801ea02
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 13 deletions.
diff --git a/server-inputdata.R b/server-inputdata.R
@@ -145,18 +145,7 @@ analyzeDataReactive <-
                       alldata <- inputDataReactive()$data
                       # remove empty columns
                       alldata = alldata %>% remove_empty(which=c("rows","cols"))
-                    validate(not_numeric(alldata))
-
-                    }
-                      }
-                        NULL
-                      } else {
-                        FALSE
-                      } else if (input == "") { 
-                        Please check your input file."
-                        "Your data does not appear to be formatted correctly (no numeric columns). 
-                      if(sum(unlist(lapply(input,function(k) class(k)%in%c("numeric","integer"))))==0) {
-                    not_numeric <- function(input) {
+
                     # Check for numeric columns
 
                       ## ==================================================================================== ##

diff --git a/server.R b/server.R
@@ -20,7 +20,7 @@
 
 
 options(shiny.maxRequestSize = 100*1024^2)
-options(repos = BiocInstaller::biocinstallRepos())
+#options(repos = BiocInstaller::biocinstallRepos()) # use setRepositories() 1 2
 
 source("helpers.R")
 print(sessionInfo())