tests/testthat/test-helpers-survey-code.R

test_that("base parse query string for user ID works", {

  query <- shiny::parseQueryString("?user_id=hadley&other_parameter=other/")

  base_val <- base_extract_user_id(query)

  expect_equal(base_val, "hadley")

})

Try the shinysurveys package in your browser

Any scripts or data that you put into this service are public.

shinysurveys documentation built on July 11, 2021, 9:06 a.m.