I´m new using R and I would like to call from a script to another using source() function and by the way,passing some parameters. This are my two R scripts:
Server.r
library(shiny)
shinyServer(function(input, output) {
#esta funcion guarda el csv cargado
filedata <- reactive({
infile <- input$datafile
if (is.null(infile)) {
return(NULL)
}
read.csv(infile$datapath, sep = ";")
})
filedata1 <- reactive({
infile1 <- input$datafile1
if (is.null(infile1)) {
return(NULL)
}
read.csv(infile1$datapath, sep = ";")
})
observeEvent(input$do, {
source("C:/.../app1.R", params=filedata, params=filedata1, local = TRUE)
})
app.r
...
csv1=read.csv("filedata", sep = ";")
csv2=read.csv("filedata1", sep = ";")
...
I don´t know how to send both .csv inserted (filedata, filedata1) from Server.r to app.r.
Thank you very much in advance
app.RYou can put R code outside of the ``shinyServer` function and it will be sourced when the shinyApp is spun up or you can put the code inglobal.Rwith similar results.