tests/testthat/test-select_city.R

test_that("select_city", {
  testthat::expect_equal(select_city(cov_china),
                         selectInput("cityInput", "Which city do you want to display?",
                                        choices = unique(cov_china$cityEnglishName),
                                        selected="Ankang", multiple =FALSE))
})
etc5523-2020/r-package-assessment-zyliu178 documentation built on Jan. 1, 2021, 1:13 a.m.