tests/testthat/test-R_server.R

In YangWu1227/tracker_dashboard: A dashboard for visualizing package and library download trends for R and Python

# Test data ---------------------------------------------------------------

df <- cran_downloads(
  packages = c("data.table", "dplyr"),
  from = "2021-12-01",
  to = "2022-01-01"
)

plot_R <- r_plot(df, "date", "count", "package")

# Tests for ggplotly ------------------------------------------------------

test_that("plot_R() returns correct ggplotly output", {
  # S3 class
  expect_s3_class(object = plot_R, class = c("plotly", "htmlwidget"), exact = T)
  # Base type
  expect_type(object = plot_R, type = "list")
})