tests/testthat/test-Countryselection.R

test_that("select_countryInput", {

  testthat::expect_equal(select_countryInput(summary_df),
                         shiny:: selectizeInput("countryInput", "Country",
                                                choices = unique(summary_df$country),
                                                selected="US", multiple =FALSE))
}
)
etc5523-2020/r-package-assessment-KarinaZou documentation built on Jan. 1, 2021, 1:10 a.m.