|
@ -32,7 +32,6 @@ server <- function(input, output) { |
|
|
|
|
|
|
|
|
observe({ |
|
|
observe({ |
|
|
if (!is.integer(input$file)){ |
|
|
if (!is.integer(input$file)){ |
|
|
print(parseFilePaths(volumes, input$file)) |
|
|
|
|
|
dades$seu<-readRDS(parseFilePaths(volumes, input$file)$datapath) |
|
|
dades$seu<-readRDS(parseFilePaths(volumes, input$file)$datapath) |
|
|
} |
|
|
} |
|
|
}) |
|
|
}) |
|
|