使用Shinytest测试可编辑DT

Question

我正在尝试为一个闪亮的应用程序创建单元测试，我一直在开发这个应用程序，但不知道如何为可编辑的DT表输入值。

示例应用程序：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("table"), 
  textOutput("mean")
)

server <- function(input, output) {
  tableUpdate <- reactiveVal(0)

  table <- data.frame(A = 1:5, B = 6:10, C = 11:15)

  output$table <- renderDT({table},
    options = list(paging = FALSE, dom = 't'),
    selection = 'none',
    server = FALSE,
    editable = list(target = 'row')
  )

  observeEvent(input$table_cell_edit, {
    table <<- editData(table, input$table_cell_edit)
    tableUpdate(tableUpdate() + 1)
  })

  output$mean <- renderText({
    tableUpdate()
    paste(mean(table$A), mean(table$B), mean(table$C))
  })
}

shinyApp(ui, server)

示例测试：

library(shinytest)

app <- ShinyDriver$new(".")
app$setInputs(table_cell_clicked = list(row = 2, col = 2, value = 7), allowInputNoBinding_ = TRUE)
app$setInputs(table_cell_edit = data.frame(row = 2, col = 0:3, value = "1"), 
              allowInputNoBinding_ = TRUE, priority_ = "event", wait_ = FALSE, values_ = FALSE)
app$takeScreenshot()
app$stop()
rm(app)

我主要保留了记录测试时的结果，但我更正了table_cell_edit和table_cell_clicked的setInputs值(以向量形式出现)。

这将产生错误：Error in sd_getAllValues(self, private, input, output, export) : Unable to fetch all values from server. Is target app running with options(shiny.testmode=TRUE?)

在测试模式下运行不能解决此问题。

Answer 1

当我遇到同样的问题时，我设法解决了你的问题。错误出现在这里(当您试图更新反应值时)：

tableUpdate(tableUpdate() + 1)

而不是……

tableUpdate(表)

请在下面找到更新后的完整代码。

library(shiny)
library(DT)

ui <- fluidPage(
    DTOutput("tabled"),
    textOutput("mean")
)

server <- function(input, output) {
    tableUpdate <- reactiveVal(NULL)
    table <- data.frame(A = 1:5, B = 6:10, C = 11:15)
    output$tabled <- renderDT({table},
                             options = list(paging = FALSE, dom = 't'),
                             selection = 'none',
                             server = TRUE,
                             editable = 'row')
    observeEvent(input$tabled_cell_edit, {
        table<<- editData(table, input$tabled_cell_edit,'tabled')
        tableUpdate(table)
        a<-mean(table$A)
        b<-mean(table$B)
        c<-mean(table$C)
    output$mean <- renderText(paste(a,b,c))
})
}
shinyApp(ui, server)