Pues por fin lo he conseguido...después de varios días de ensayo y error. No sé los fundamentos de ello, pero para que funcione, había que modificar el código en algunos aspectos:
- En el bucle for, había un error, puesto que anos debe llevar paréntesis, puesto que se había construido como asignación reactiva.
- El bucle debe ir dentro de un observe, y dentro del bucle se deben construir todos los objetos, y dentro del observe debe estar la salida también. No sé por qué pero si intento llamar desde fuera a un objeto creado dentro del bucle, no lo reconoce, mientras que desde dentro del bucle, sí.
El código queda así:
library(shiny)
years <- c(2017,2018,2019,2017,2017,2018,2018,2019,2017)
obs <- c("a","b","c","d","e","f","g","h","i")
df <- data.frame(years,obs)
ui <- fluidPage(
sidebarPanel(
checkboxGroupInput("year","year",choices=c(2017,2018,2019),selected=c(2017,2018,2019)),
checkboxGroupInput("ob","ob",choices=obs,selected=obs)
),
mainPanel(
verbatimTextOutput("result")
)
)
server <- function(input,output,session){
dfval <- reactive({
filter(df, obs %in% input$ob)
})
anos <- reactive(unique(dfval()$years))
cadena <- ""
observe({
for (val in anos()){
assign(paste0("dfval",val),filter(dfval(), years == val))
assign(paste0("str0",val),paste0("Año: ",val))
assign(paste0("str1",val),paste0("Longitud :", length(get(paste("dfval",val,sep=""))[[1]])))
cadena <- paste(cadena, get(paste("str0",val,sep="")), get(paste("str1",val,sep="")))
}
output$result <- renderPrint({
cadena
})
})
}
shinyApp(ui=ui,server=server)
Con este código de ejemplo, he podido arreglar el código de la aplicación original, que tiene cierta complejidad, y por ello sólo muestro aquí el extracto donde se crean de esta forma todas las variables en función de los insumos del usuario:
anos <- reactive ({unique(data_DA_y()$ano)})
cadena <- ""
observe({
if (input$plottypeDA ==2){
if(input$genderDA == TRUE){
if(input$ageDA == FALSE){
for (val in anos()){
assign(paste0("data_DA",val), data_DA_y() %>% filter(ano == val))
assign(paste0("women_DA",val), data_DA_y() %>% filter(gender == "Female", ano == val))
assign(paste0("men_DA",val), data_DA_y() %>% filter(gender == "Male", ano == val))
assign(paste0("str0",val),paste0("<b> Year: ",val,"</b>"))
assign(paste0("str1",val),paste0("Number total of people receiving MHPSS:",length(get(paste("data_DA",val,sep=""))[[1]])))
assign(paste0("str2",val),paste0("Women: ", length(get(paste("women_DA",val,sep=""))[[1]])))
assign(paste0("str3",val),paste0("Men: ",length(get(paste("men_DA",val,sep=""))[[1]])))
cadena <- paste(cadena,get(paste("str0",val,sep="")),get(paste("str1",val,sep="")),get(paste("str2",val,sep="")),get(paste("str3",val,sep="")),sep="<br/>")
}
output$figuresDA <- renderUI({HTML(cadena)})
} else {
for (val in anos()) {
assign(paste0("data_DA",val), data_DA_y() %>% filter(ano == val))
assign(paste0("adult_DA",val), data_DA_y() %>% filter(age > 17, ano == val))
assign(paste0("child_DA",val), data_DA_y() %>% filter(age < 18, ano == val))
assign(paste0("adult_women_DA",val), data_DA_y() %>% filter(gender == "Female", age > 17, ano == val))
assign(paste0("child_women_DA",val), data_DA_y() %>% filter(gender == "Female", age < 18, ano == val))
assign(paste0("adult_men_DA",val), data_DA_y() %>% filter(gender == "Male", age > 17, ano == val))
assign(paste0("child_men_DA",val), data_DA_y() %>% filter(gender == "Male", age < 18, ano == val))
assign(paste0("str0",val),paste0("<b> Year: ",val,"</b>"))
assign(paste0("str1",val),paste0("Number total of people receiving MHPSS: ",length(get(paste("data_DA",val,sep=""))[[1]])))
assign(paste0("str2",val),paste0("Women: ", length(get(paste("adult_women_DA",val,sep=""))[[1]])))
assign(paste0("str3",val),paste0("Men: ",length(get(paste("adult_men_DA",val,sep=""))[[1]])))
assign(paste0("str4",val),paste0("Girls: ", length(get(paste("child_women_DA",val,sep=""))[[1]])))
assign(paste0("str5",val),paste0("Boys: ",length(get(paste("child_men_DA",val,sep=""))[[1]])))
cadena <- paste(cadena,get(paste("str0",val,sep="")),get(paste("str1",val,sep="")),get(paste("str2",val,sep="")),get(paste("str3",val,sep="")),get(paste("str4",val,sep="")),get(paste("str5",val,sep="")),sep="<br/>")
}
output$figuresDA <- renderUI({HTML(cadena)})
}
} else {
if(input$ageDA == FALSE){
for (val in anos()){
assign(paste0("data_DA",val), data_DA_y() %>% filter(ano == val))
assign(paste0("str0",val),paste0("<b> Year: ",val,"</b>"))
assign(paste0("str1",val),paste0("Number total of people receiving MHPSS:",length(get(paste("data_DA",val,sep=""))[[1]])))
cadena <- paste(cadena,get(paste("str0",val,sep="")),get(paste("str1",val,sep="")),sep="<br/>")
}
output$figuresDA <- renderUI({HTML(cadena)})
} else {
for (val in anos()) {
assign(paste0("data_DA",val), data_DA_y() %>% filter(ano == val))
assign(paste0("adult_DA",val), data_DA_y() %>% filter(age > 17, ano == val))
assign(paste0("child_DA",val), data_DA_y() %>% filter(age < 18, ano == val))
assign(paste0("str0",val),paste0("<b> Year: ",val,"</b>"))
assign(paste0("str1",val),paste0("Number total of people receiving MHPSS: ",length(get(paste("data_DA",val,sep=""))[[1]])))
assign(paste0("str2",val),paste0("Adults : ", length(get(paste("adult_DA",val,sep=""))[[1]])))
assign(paste0("str3",val),paste0("Children: ",length(get(paste("child_DA",val,sep=""))[[1]])))
cadena <- paste(cadena,get(paste("str0",val,sep="")),get(paste("str1",val,sep="")),get(paste("str2",val,sep="")),get(paste("str3",val,sep="")),sep="<br/>")
}
output$figuresDA <- renderUI({HTML(cadena)})
}
}
} else {
if(input$genderDA == TRUE) {
if(input$ageDA == FALSE){
str1 <- paste("Number total of people receiving MHPSS:",length(data_DA()[[1]]))
str2 <- paste("Women: ", length(women_DA()[[1]]))
str3 <- paste("Men: ",length(men_DA()[[1]]))
output$figuresDA <- renderUI({HTML(paste(str1,str2,str3,sep="<br/>"))})
} else {
str1 <- paste("Number total of people receiving MHPSS: ",length(data_DA()[[1]]))
str2 <- paste("Women: ", length(adult_women_DA()[[1]]))
str3 <- paste("Men: ",length(adult_men_DA()[[1]]))
str4 <- paste("Girls: ", length(child_women_DA()[[1]]))
str5 <- paste("Boys: ",length(child_men_DA()[[1]]))
output$figuresDA <- renderUI({HTML(paste(str1,str2,str3,str4,str5, sep="<br/>"))})
}
} else {
if(input$ageDA == FALSE){
str1 <- paste("Number total of people receiving MHPSS: ",length(data_DA()[[1]]))
output$figuresDA <- renderUI({HTML(str1)})
} else {
str1 <- paste("Number total of people receiving MHPSS: ",length(data_DA()[[1]]))
str2 <- paste("Adults : ", length(adult_DA()[[1]]))
str3 <- paste("Children: ",length(child_DA()[[1]]))
output$figuresDA <- renderUI({HTML(paste(str1,str2,str3,sep="<br/>"))})
}
}
}
})
Ahora tengo un nuevo problema...en local, funciona sin problema, pero en shinyapps.io no consigo que se cargue la información porque se desconecta del servidor antes de que se cargue la página. Me pongo a ello.
reactive
. Tu error parece ser más bien alguna manipulación mediante un índice, de un vector mayor a 2^31 elementos en un plataforma de 64 bits. Te sugiero que copies el código exacto del error, y el mensaje completo del mismo. Otra cosa que puedes probar es migrar a R 3.6 que según parece ha corregido varios de estos problemas.library(shinyWidgets)
, al ejecutarlo me da el siguiente error:52: server [/home/pmoracho/app.R#25] Error in for (val in anos) { : secuencia loop for() inválida
. Corrigiendo esto, no he tenido ningún otro error. Además, no veo el por que de ese mensaje con el código que tienes. Insisto que el error pareciera estar asociado a una limitación de R al acceder por medio de un índice a objetos de gran tamaño. stackoverflow.com/questions/24335692/…