R sciny object scoping

Question

Я пытаюсь получить доступ к объекту (a<-get(obj1,envir=parent.environment())), находящемуся в вызывающей среде из вызываемой среды myf, и я не могу заставить его работать. Ошибка, которую я получаю, - Object obj1 not found. Я тоже попробовал parent.frame(). Есть идеи?

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 = ",")) 
    }) 
    } 
) 

Примечание: Я не хочу, чтобы создать obj1 с помощью obj1<<-, поскольку он создает в глобальной окружающей среде и доступен для всех сеансов

Answer 1

правильное решение является то, что у вас есть три проблемы: Во-первых, вам нужно процитировать "obj1" как этот

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

Во-вторых, parent.environment() не является функцией. Этого не существует.

В-третьих, вам нужно понять среду и призвать кадры немного, чтобы знать, как это работает (это не имеет ничего общего с Shiny). То, что вы хотите использовать parent.frame(2) (будучи внутри lapply добавляет слой)

Таким образом, чтобы изменить исходный код, это решение:

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

Я не знаю, почему он не работает, но есть»а простой обходной путь: явно передать 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 = ",")) 
    }) 
    } 
)