tests/testthat/test-get_dt_rows_ui.R

In teal.widgets: 'shiny' Widgets for 'teal' Applications

app_driver_gdr <- function() {
  testthat::skip_if_not_installed("DT")
  ui <- function(id) {
    ns <- NS(id)
    tagList(
      get_dt_rows(ns("data_table"), ns("dt_rows")),
      textOutput(ns("rows")),
      DT::DTOutput(ns("data_table"))
    )
  }

  # use the input$dt_rows in the Shiny Server function
  server <- function(id) {
    moduleServer(id, function(input, output, session) {
      output$data_table <- DT::renderDataTable(
        iris,
        extensions = "Buttons",
        options = list(
          dom = "Bfrtip",
          buttons = list(
            list(
              extend = "collection",
              text = "Show 25",
              attr = list(id = "show_25"),
              action = DT::JS(
                "function ( e, dt, node, config ) { dt.page.len(25); dt.ajax.reload(); }"
              )
            )
          )
        )
      )
      rows <- reactive({
        paste0("Selected Rows ", input$dt_rows)
      })
      output$rows <- renderText(rows())
    })
  }

  shinyApp(
    ui = ui("my_table_module"),
    server = function(input, output, session) server("my_table_module")
  )
}

testthat::test_that(
  "e2e: teal.widgets::get_dt_rows: rows are settable and visible",
  {
    skip_if_too_deep(5)
    app_driver <- shinytest2::AppDriver$new(
      app_driver_gdr(),
      name = "gdr",
      variant = "app_driver_gdr_ui",
      wait = FALSE
    )
    app_driver$wait_for_idle()
    expect_visible("#my_table_module-data_table", app_driver)

    # Check initial value
    dt_state <- app_driver$get_values(input = "my_table_module-data_table_state")
    testthat::expect_equal(dt_state$input$`my_table_module-data_table_state`$length, 10)
    testthat::expect_equal(app_driver$get_value(input = "my_table_module-dt_rows"), NULL)

    # Change rows value
    app_driver$click(selector = "#show_25")
    app_driver$wait_for_idle()

    # Check value again
    dt_state <- app_driver$get_values(input = "my_table_module-data_table_state")
    testthat::expect_equal(dt_state$input$`my_table_module-data_table_state`$length, 25)
    testthat::expect_equal(app_driver$get_value(input = "my_table_module-dt_rows"), 25)

    app_driver$stop()
  }
)

testthat::test_that("Check class of get_dt_rows", {
  testthat::expect_s3_class(get_dt_rows("my table", "0"), "shiny.tag")
})