tests/testthat/test-save-app.R

In shinytest2: Testing for Shiny Applications

require("shiny", quietly = TRUE, character.only = TRUE)

# App from: https://github.com/rstudio/shinytest2/issues/303#issuecomment-1377950984
test_that("Make sure global vars are set - issue303", {
  # Only run on CI. CRAN requires package to be installed to run `callr::rscript()
  skip_if(!on_ci(), "Only run on CI")

  # Run the script in a global environment that does not polute this global environment
  p <- callr::rscript("scripts/issue_303.R", show = FALSE)
  expect_equal(
    any(grepl("object 'foo' not found", p$stdout, fixed = TRUE)),
    FALSE
  )
  expect_equal(
    any(grepl("object 'foo3' not found", p$stdout, fixed = TRUE)),
    FALSE
  )
})

# App from: https://github.com/rstudio/shinytest2/pull/307#issuecomment-1381391531
test_that("Make sure global vars are set - pr307", {
  # Only run on CI. CRAN requires package to be installed to run `callr::rscript()
  skip_if(!on_ci(), "Only run on CI")

  # Run the script in a global environment that does not polute this global environment
  p <- callr::rscript("scripts/pr_307.R", show = FALSE)
  expect_equal(
    any(grepl("could not find function", p$stdout, fixed = TRUE)),
    FALSE
  )
})

# App from: https://github.com/rstudio/shinytest2/pull/307#issuecomment-1381391531
test_that("Make sure global vars are set - issue295", {
  # Only run on CI. CRAN requires package to be installed to run `callr::rscript()
  skip_if(!on_ci(), "Only run on CI")

  # Run the script in a global environment that does not polute this global environment
  p <- callr::rscript("scripts/issue_295.R", show = FALSE)
  expect_equal(
    any(grepl("could not find function", p$stdout, fixed = TRUE)),
    FALSE
  )
})


test_that("Saving an app has the right context", {
  n <- 5
  shiny_app <- shinyApp(
    ui = fluidPage(
      textOutput("text")
    ),
    server = function(input, output) {
      output$text <- renderText({
        n
      })
    }
  )

  app <- AppDriver$new(shiny_app)

  expect_equal(
    app$get_value(output = "text"),
    as.character(n)
  )
})


test_that("can run saved app", {
  x <- 10
  ui <- fluidPage(
    textOutput("x")
  )
  server <- function(input, output, session) {
    output$x <- renderText(x)
  }

  path <- app_save(shinyApp(ui, server))

  app <- AppDriver$new(path)

  expect_equal(app$get_value(output = "x"), as.character(x))
})



test_that("can get ui and server from app", {
  ui <- fluidPage("Hi!")
  server <- function(input, output, session) {
    "Hello there"
  }

  data <- app_data(shinyApp(ui, server))
  expect_equal(data$ui, ui)
  expect_equal(data$server, server)
})

test_that("can extract globals from server", {
  x <- 10
  server <- function(input, output, session) {
    output$foo <- renderText(input$x + x)
  }

  globals <- app_server_globals(server)
  expect_equal(globals$globals, list(x = 10))
  expect_equal(globals$packages, "shiny")
})