tests/testthat/test-plot_cases_province.R

In etc5523-2020/r-package-assessment-Lulu-Pi: Launch the shiny app of COVID-19 in China

library(ggplot2)
library(tidyr)
China_type <- COVID19CHN::China_covid19 %>%
  
  pivot_longer(cols = c("Confirmed",
                        "Deaths",
                        "Recovered"),
               names_to = "Type",
               values_to = "Cases") 

test_that("plot_cases_province", {
  testthat::expect_true(is.ggplot(plot_cases_province(China_type))
                        
  )
  })