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
)
答
这里是使用的解决方案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)
我认为最好的办法是让一个'名单()'内'reactiveValues()',并将它们分配到列表中,你会在外面闪闪发光,... – BigDataScientist
你不会提及任何错误或不良结果。 – Parfait
谢谢,我编辑了一个错误,并将工作代码注释掉了。这篇文章是关于效率,而不是一个错误修复,抱歉的混淆。 – andsim