在R shiny，当使用tidyverse包的tibble功能时，为什么我的应用程序崩溃?

Question

只要服务器部分v <- reactiveValues(results=tibble(Scenario = 1, data()))中的行被注释掉，下面的代码就可以正常运行。当我取消注释时，应用程序崩溃了，我得到错误信息:警告:错误:无法访问响应性消费者之外的响应性值'input1'。你需要在reactive()或observer()里面包装吗?

我试图使用tibble为另一个要添加的函数创建一个向量。我在使用tibble时做错了什么?我试图通过tibble捕获作为矢量，当我的自定义interpol函数通过下面的data()函数从矩阵input2获取输入时生成的值。我还尝试了c(),as.vector()等，以确保input2转换为矢量，但我仍然得到相同的错误。

我对tibbles和tidyverse等完全陌生。

代码:

library(shiny)
library(shinyMatrix)
library(tidyverse) # < ADDED
interpol <- function(a,b){ # a = periods, b = matrix inputs
c    <- rep(NA,a)
c[1] <- b[1]
c[a] <- b[2]
c <- approx(seq_along(c)[!is.na(c)],c[!is.na(c)],seq_along(c))$y # this interpolates
return(c)
}
ui <- fluidPage(
sidebarLayout(
sidebarPanel(uiOutput("panel"),actionButton("showInput2","Modify/add interpolation")),
mainPanel(plotOutput("plot"))
)
)
server <- function(input, output, session){
data <- function(){
if(!isTruthy(input$input1)){interpol(6,matrix(c(1,5)))} else {
if(!isTruthy(input$input2)){interpol(input$periods,
matrix(c(input$input1[1,1],input$input1[1,2])))} else {
interpol(input$periods,matrix(c(input$input2[1,1],input$input2[1,2])))}}
}  
# v <- reactiveValues(results=tibble(Scenario = 1, data()))

output$panel <- renderUI({
tagList(
sliderInput('periods','Interpolate over periods (X):',min=2,max=12,value=6),
uiOutput("input1"))
})
output$input1 <- renderUI({
matrixInput("input1", 
label = "Interpolation 1 (Y values):",
value =  matrix(if(isTruthy(input$input2)){c(input$input2[1],input$input2[2])} 
else {c(1,5)},                          # matrix values
1, 2,                                     # matrix row/column count
dimnames = list(NULL,c("Start","End"))),  # matrix column header
rows =  list(names = FALSE), class = "numeric")
})

observeEvent(input$showInput2,{
showModal(
modalDialog(
matrixInput("input2",
label = "Automatically numbered scenarios (input into blank cells to add):",
value = if(isTruthy(input$input2)){input$input2}
else if(isTruthy(input$input1)){input$input1},
rows =  list(names = FALSE),
cols =  list(extend = TRUE, delta = 2, delete = TRUE, multiheader=TRUE),
class = "numeric"),
footer = modalButton("Close")
))
})
observe({
req(input$input2)
mm <- input$input2
colnames(mm) <- paste(trunc(1:ncol(mm)/2)+1, " (start|end)")
isolate(updateMatrixInput(session, "input2", mm))
})

output$plot<-renderPlot({plot(data(),type="l",xlab="Periods (X)", ylab="Interpolated Y values")})

}
shinyApp(ui, server)

Answer 1

错误的原因和解决方案实际上存在于错误消息本身中。你不能在响应上下文之外访问reactive变量(data())。尝试将v的输出包装到reactive中。

v <- reactive({tibble(Scenario = 1, data())})