R Shiny将反应值分配给粘贴的对象

我正在构建一个由多个重复输入和输出填充的Shiny应用程序。我不是一遍又一遍地复制和粘贴代码，而是按照this example on the Shiny website的顺序生成了输入和输出，其输入为lapply()。这很好地工作到某一点，但我想根据用户输入进行预测，然后将这些预测存储为反应对象，以便通过多个输出（例如绘图，打印和组合预测）进行调用。在这里，lapply()函数中的被动对象的赋值似乎有问题。我有一种感觉，assign()函数不喜欢reactive()对象！R Shiny将反应值分配给粘贴的对象

我已经使用mtcars编写了一个我的问题的简单工作示例。此代码工作正常，但我想删除明确的作业pred1和pred2并替换为lapply()函数。我知道在这个简单的例子中，在output$out对象内部进行预测会更容易，但在我的实际应用程序中，我需要将预测对象调用到多个输出中。任何帮助将不胜感激。

library(shiny) 
ui = fluidPage(
     # slider input for horse power to predict with... 
     column(3,lapply(1:2, function(i) { 
     sliderInput(paste0('hp', i), paste0('Select HP', i), min = 0, max = 300, value = 50) 
     }) 
    ), 

     # output display 
     column(3,lapply(1:2, function(i) { 
     uiOutput(paste0('out', i)) 
     }) 
    ) 

) 

server = function(input, output, session) { 

# # I can work pred out separately like this... 
# pred1 <- reactive({ 
#  predict(lm(mpg ~ hp, data = mtcars), 
#    newdata = data.frame(hp = input$hp1), se.fit = TRUE) 
# 
# }) 
# 
# pred2 <- reactive({ 
# predict(lm(mpg ~ hp, data = mtcars), 
#   newdata = data.frame(hp = input$hp2), se.fit = TRUE) 
# 
#}) 

    # but I want to create pred1 and pred2 in one go...something like this: 
    lapply(1:2, function(i){ 
    assign(paste0("pred",i), reactive({ 
     predict(lm(mpg ~ hp, data = mtcars), 
       newdata = data.frame(hp = input[[paste0("hp",i)]]), se.fit = TRUE) 
     })) 
    }) 

    # output 
    lapply(1:2, function(i){ 
    output[[paste0("out",i)]] <- renderText({ 
     paste0("MPG with HP",i," = ", round(get(paste0("pred",i))()$fit,0), " (", 
        round(get(paste0("pred",i))()$fit - 1.96 * get(paste0("pred",i))()$se.fit,0), ", ", 
        round(get(paste0("pred",i))()$fit + 1.96 * get(paste0("pred",i))()$se.fit,0), ")") 

     }) 
     }) 

} 


# Compile 
shinyApp(
    ui = ui, 
    server = server 
)

来源

2017-06-08 andsim

我认为最好的办法是让一个'名单（）'内'reactiveValues（）'，并将它们分配到列表中，你会在外面闪闪发光，... – BigDataScientist

你不会提及任何错误或不良结果。 – Parfait

谢谢，我编辑了一个错误，并将工作代码注释掉了。这篇文章是关于效率，而不是一个错误修复，抱歉的混淆。 – andsim

这里是使用的解决方案reactiveValues（）：

library(shiny) 
ui = fluidPage(
    # slider input for horse power to predict with... 
    column(3,lapply(1:2, function(i) { 
    sliderInput(paste0('hp', i), paste0('Select HP', i), min = 0, max = 300, value = 50) 
    }) 
), 

    #output display 
    column(3,lapply(1:2, function(i) { 
    uiOutput(paste0('out', i)) 
    }) 
    ) 
) 

server = function(input, output, session) { 
    predReactive <- reactiveValues() 

    outOjbects <- paste("pred", paste(1:2), sep = "") 

    lapply(1:2, function(i){ 
    predReactive[[outOjbects[i]]] <- reactive({ 
     predict(lm(mpg ~ hp, data = mtcars), 
       newdata = data.frame(hp = input[[paste0("hp",i)]]), se.fit = TRUE) 
    }) 
    }) 

    # output 
    lapply(1:2, function(i){ 
    output[[paste0("out",i)]] <- renderText({ 
     paste0("MPG with HP",i," = ", round(predReactive[[outOjbects[i]]]()$fit,0), " (", 
       round(predReactive[[outOjbects[i]]]()$fit - 1.96 * predReactive[[outOjbects[i]]]()$se.fit,0), ", ", 
       round(predReactive[[outOjbects[i]]]()$fit + 1.96 * predReactive[[outOjbects[i]]]()$se.fit,0), ")") 

    }) 
    }) 

} 


shinyApp(ui = ui, server = server)

来源

2017-06-09 16:27:51 Joy

R Shiny将反应值分配给粘贴的对象

回答

相关问题