tests/testthat/test-get_data.R

In sol-eng/bikeHelpR: Package of Helper Functions for the Bike Prediction Asset

feeds <- feeds_urls()
url <- feeds %>%
  filter(name == "station_status") %>%
  pull(url)

test_that("`get_data` returns a `bike_data` type", {
  data <- get_data(url)
  expect_s3_class(data, "bike_data")
})