R shiny object scoping

Question

J'essaie d'accéder à un objet (a<-get(obj1,envir=parent.environment())) résidant dans l'environnement appelant à partir de l'environnement appelé myf et je n'arrive pas à le faire fonctionner. Erreur que je reçois est Object obj1 not found. J'ai aussi essayé parent.frame(). Des idées?

library(shiny) 
shinyApp(
    ui = textOutput("test1"), 
    server = function(input, output) { 
    myf <- function(x) { 
     a <- get(obj1, envir = parent.environment()) 
     return(paste0(x,a)) 
    } 
    output$test1 <- renderText({ 
     obj1 <- "testing" 
     a <- lapply(c("a","b","c"), myf) 
     return(paste(unlist(a), collapse = ",")) 
    }) 
    } 
) 

NOTE: Je ne veux pas créer obj1 à l'aide obj1<<- car elle crée dans l'environnement mondial et est disponible pour toutes les sessions

Answer 1

La bonne solution est que vous avez trois problèmes: tout d'abord, vous devez citer "obj1" comme celui-ci

get("obj1", envir = ...) 

Deuxièmement, parent.environment() n'est pas une fonction. Cela n'existe pas. Troisièmement, vous devez comprendre un peu l'environnement et les cadres d'appel pour savoir comment cela fonctionne (cela n'a rien à voir avec Shiny). Ce que vous voulez utiliser est parent.frame(2) (être à l'intérieur d'une lapply ajoute une couche)

Donc, pour modifier votre code d'origine, c'est la solution:

library(shiny) 
shinyApp(
    ui = textOutput("test1"), 
    server = function(input, output) { 
    myf <- function(x) { 
     a <- get("obj1", envir = parent.frame(2)) 
     return(paste0(x,a)) 
    } 
    output$test1 <- renderText({ 
     obj1 <- "testing" 
     a <- lapply(c("a","b","c"), myf) 
     return(paste(unlist(a), collapse = ",")) 
    }) 
    } 
) 

Answer 2

Je ne sais pas pourquoi cela ne fonctionne pas, mais il y a un solution de contournement simple: passer explicitement obj1-myf:

library(shiny) 
shinyApp(
    ui = textOutput("test1"), 
    server = function(input, output) { 

## myf now takes two arguments, x and a: 
    myf <- function(x, a) { 
     return(paste0(x, a)) 
    } 

    output$test1 <- renderText({ 
     obj1 <- "testing" 

## Now you can just pass obj1 as a second argument to myf 
## without worrying about scoping: 
     a <- lapply(c("a","b","c"), myf, obj1) 

     return(paste(unlist(a), collapse = ",")) 
    }) 
    } 
)