Commit 73aa8517 authored by Midoux Cedric's avatar Midoux Cedric

bug upload RData

parent bc7f82d5
......@@ -27,7 +27,7 @@ shinyServer
options = list(
dom = "lBtip",
pageLength = 10,
lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
buttons = list(
'colvis',
list(
......@@ -114,8 +114,17 @@ shinyServer
return(d)
} else if (input$dataset == "rdata")
{
if (is.null(input$fileRData))
{
return()
}
load(input$fileRData$datapath)
return(data)
if (exists("data"))
{
return(data)
} else {
return()
}
} else {
load("demo/demo.RData")
return(get(input$dataset))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment