tests/testthat/test-table_filter.R

In etc5523-2020/COVID19bb: COVID-19 Global Analysis Shiny Application

test_that("table_filter()", {
  expect_equal(table_filter(covid_19_data,"China","deaths","2020-08-23"),


               covid_19_data <- covid_19_data %>%
                 dplyr::filter(country_region == "China",
                               type == "deaths",
                               observation_date == "2020-08-23")%>%
                 kableExtra::kable(align = 'lccr', caption = "Daily cases of COVID-19") %>%
                 kableExtra::kable_styling(
                   font_size = 12,
                   bootstrap_options = c("striped", "hover", "condensed"))
  )
})