r - 在 R shiny 中，使用 tidyverse 包的 tibble 功能时，为什么我的应用程序崩溃了？

问题描述

只要v <- reactiveValues(results=tibble(Scenario = 1, data()))注释掉服务器部分中的行，下面的代码就可以正常运行。当我取消注释时，应用程序崩溃并收到错误消息：警告：错误：无法在反应性消费者之外访问反应性值“input1”。i 你需要包裹在reactive() 或observer() 中吗？

我正在尝试创建一个tibble用于添加另一个函数的向量。我在这里做错了tibble什么？我试图通过我的自定义函数通过下面的函数从矩阵获取输入时tibble生成的值作为向量来捕获。我还尝试了,等，以确保转换为向量，但我仍然得到相同的错误。interpolinput2data()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)

标签： rshinytidyversetibbleshiny-reactivity

r - 在 R shiny 中，使用 tidyverse 包的 tibble 功能时，为什么我的应用程序崩溃了？

问题描述

解决方案

推荐阅读