r有光泽的renderUI在循环中

Question

我想输出多个表作为一个uiOutput。如果我使用循环将它们放在一个列表中，那么所有输出都等于最后一个。 实施例：

library(shiny) 

ui <- fluidPage(
    mainPanel(
    uiOutput("tables") 
) 
) 

server <- function(input, output) { 
    output$tables <- renderUI({ 
    data=array(rnorm(150),c(10,5,3)) 

    tfc = function(m){ 
#  x = m[1,1] 
     renderTable({m}) 
    } 

    result=list() 
    for(i in 1:3) 
     result[[i]] = tfc(data[,,i]) 

    return(result) 
    }) 
} 

shinyApp(ui = ui, server = server) 

如果删除了注释行（X = M [1,1]）我获得所需的结果。

我可以接受这种解决方法，但是为什么有光泽表现得像这样或者有没有其他方法可以做到这一点？

Answer 1

我通常使用lapply这样的用例。这样，你就不会遇到懒惰评估的问题。

library(shiny) 

ui <- fluidPage(
    mainPanel(
    uiOutput("tables") 
) 
) 

server <- function(input, output) { 
    output$tables <- renderUI({ 
    data=array(rnorm(150),c(10,5,3)) 

    tfc = function(m){renderTable({m})} 

    lapply(1:3, function(i){tfc(data[,,i])}) 
    }) 
} 

shinyApp(ui = ui, server = server) 

如果你想使用reacive表，你可以使用像

tfc = function(m, output, id){ 
    output[[id]] <- renderTable({m()}) 
    tableOutput(id) 
} 

代替。

Answer 2

要解决这个问题，你可以在函数参数force评价：

tfc = function(m) { 
    force(m) 
    renderTable(m) 
} 

或

每个循环迭代创建local范围：

for (i in 1:3) { 
    local({ 
    i <- i 
    result[[i]] <<- tfc(data[,,i]) 
    }) 
} 

lapply工作为好，但仅适用于R版本3.2及以上版本：https://cran.r-project.org/bin/windows/base/old/3.2.0/NEWS.R-3.2.0.html