我们可以使用testthat和and来检查闪亮的应用程序吗？

Question

有没有办法检查下面的应用程序。这是一个显示所选行的示例应用程序。但一般来说，有没有办法实现这一点。例如，下面的代码就很完美。假设我可能会有一些错误，我需要一次全部签入。我们能做到吗？我还粘贴了错误代码

对，是这样

library(shiny)
library(DT)

ui <- basicPage(
  mainPanel(DT::dataTableOutput('mytable')),
  textOutput("selected")
)

server <- function(input, output,session) {

  mydata <- reactive({mtcars})

  output$mytable = DT::renderDataTable(    
    datatable(mydata())
  ) 

  selectedRow <- eventReactive(input$mytable_rows_selected,{
    row.names(mtcars)[c(input$mytable_rows_selected)]
  })

  output$selected <- renderText({ 
    selectedRow()
  })
}
runApp(list(ui = ui, server = server))

错误/错误代码

library(shiny)
library(DT)

ui <- basicPage(
  mainPanel(DT::dataTableOutput('mytable')),
  textOutput("selected")
)

server <- function(input, output,session) {

  mydata <- reactive({mtcars})

  output$mytable = DT::renderDataTable(    
    datatable(mydata())
  ) 

  selectedRow <- eventReactive(input$mytable_rows_selected,{
    row.names(mtcars)[c(input$[mytable_rows_selected])]
  })

  output$selected <- renderText({ 
    selectedRow
  })
}
runApp(list(ui = ui, server = server))

Answer 1

我使用shinytest包来测试我闪亮的应用程序。shinytest使用phantomJS来操作应用程序(例如，模拟按钮按下等)

testthat/test-shinyapp.R中的条目类似于：

test_that("Shiny template works", {
  app <- shinytest::ShinyDriver$new("Path_To_ShinyApp/"))

  # plot changes
  # first click makes plot
  testthat::expect_false(length(grepl("^(data:image/png;base64)",
                                      app$getAllValues()$output$plot1$src)) > 0)
  app$setInputs(apply = "click")
  testthat::expect_true(length(grepl("^(data:image/png;base64)",
                                      app$getAllValues()$output$plot1$src)) > 0)
  testthat::expect_true(grepl("^(data:image/png;base64)",
                              app$getAllValues()$output$plot1$src))

  # are subsequent changes applied?
  testthat::expect_identical(app$getAllValues()$input$xVar, "mpg")
  testthat::expect_true(
    grepl("      mpg             cyl", app$getAllValues()$output$summary1))
  app$setInputs(xVar = "drat")
  app$setInputs(apply = "click")
  testthat::expect_true(
    grepl("      drat            cyl", app$getAllValues()$output$summary1))

  # # test for reactive
  # shinytest::expectUpdate(app, xVar = "wt", output = "plot1" )
  # shinytest::expectUpdate(app, yVar = "drat", output = "plot1" )
  # shinytest::expectUpdate(app, xVar = "cyl", output = "summary1" )
  # shinytest::expectUpdate(app, yVar = "mpg", output = "summary1" )

  # cleanup
  app$stop()
  unlink(paste0(ws2us(testDir),"_ShinyApp"), recursive = TRUE)
})