Adjust code to RLum Shiny

LaikaNo2 · LaikaNo2 · commit 9d768afed388 · 2017-06-20T19:47:16.000+02:00
diff --git a/global.R b/global.R
@@ -8,8 +8,8 @@
 
 library(shiny)
 library(Luminescence)
-require(readxl)
-source("chooser.R")
+library(readxl)
+library(RLumShiny)
 
 ##check whether a real database exists or the template should be loaded
 if(dir.exists("Data")){
diff --git a/server.R b/server.R
@@ -30,7 +30,7 @@ shinyServer(function(input, output, session) {
     }
 
     ##create chooser output
-    chooserInput("filterInput", "Filters available:", "Filters chosen:", filters, c(),
+    RLumShiny:::chooserInput("filterInput", "Filters available:", "Filters chosen:", filters, c(),
                  multiple = TRUE,  size = 5)
 
   })

Original file line number	Diff line number	Diff line change
`@@ -30,7 +30,7 @@ shinyServer(function(input, output, session) {`
`30`	`30`	`}`
`31`	`31`
`32`	`32`	`##create chooser output`
`33`		`- chooserInput("filterInput", "Filters available:", "Filters chosen:", filters, c(),`
	`33`	`+ RLumShiny:::chooserInput("filterInput", "Filters available:", "Filters chosen:", filters, c(),`
`34`	`34`	`multiple = TRUE, size = 5)`
`35`	`35`
`36`	`36`	`})`