# weather by hour ---------------------------------------------------------
test_that("weather_dl() hour format = FALSE", {
skip_on_cran()
withr::local_options(list("weathercan.time.message" = TRUE))
vcr::use_cassette("weather_hour_51423_2014-01", {
expect_silent(w <- weather_dl(station_ids = 51423,
start = "2014-01-01",
end = "2014-01-31",
format = FALSE))
})
## Basics
expect_s3_class(w, "data.frame")
expect_length(w, 40)
expect_equal(nrow(w), 744)
expect_type(w$prov, "character")
c <- dplyr::select(w, -station_id, -prov, -lat, -lon, -elev)
expect_true(all(apply(c, 2, is.character)))
## Data
expect_equal(w$station_id[1], 51423)
expect_equal(w$station_name[1], "KAMLOOPS A")
expect_equal(w$prov[1], "BC")
expect_equal(w$`Date/Time (LST)`[1], "2014-01-01 00:00")
#expect_equal(w$`Data Quality`[1], "\u2021")
})
test_that("weather_dl() day format = FALSE", {
skip_on_cran()
vcr::use_cassette("weather_day_51423_2014", {
w <- weather_dl(station_ids = 51423, start = "2014-01-01", end = "2014-03-01",
interval = "day", format = FALSE)
})
## Basics
expect_s3_class(w, "data.frame")
expect_length(w, 41)
expect_equal(nrow(w), 365)
expect_type(w$prov, "character")
c <- dplyr::select(w, -station_id, -prov, -lat, -lon, -elev)
expect_true(all(apply(c, 2, is.character)))
## Data
expect_equal(w$station_id[1], 51423)
expect_equal(w$station_name[1], "KAMLOOPS A")
expect_equal(w$prov[1], "BC")
expect_equal(w$`Date/Time`[1], "2014-01-01")
#expect_equal(w$`Data Quality`[1], "\u2021")
expect_true(is.na(w$`Data Quality`[1]))
})
test_that("weather_dl() month format = FALSE", {
skip_on_cran()
vcr::use_cassette("weather_month_5401", {
expect_silent(w <- weather_dl(station_ids = 5401,
start = "2017-01-01", end = "2017-05-01",
interval = "month", format = FALSE))
})
## Basics
expect_s3_class(w, "data.frame")
expect_length(w, 39)
expect_equal(nrow(w), 842)
expect_type(w$prov, "character")
c <- dplyr::select(w, -station_id, -prov, -lat, -lon, -elev)
expect_true(all(apply(c, 2, is.character)))
## Data
expect_equal(w$station_id[1], 5401)
expect_equal(w$station_name[1], "MAGOG")
expect_equal(w$prov[1], "QC")
expect_equal(w$`Date/Time`[1], "1948-01")
expect_equal(w$climate_id[1], "7024440")
expect_true(is.na(w$WMO_id[1]))
expect_true(is.na(w$TC_id[1]))
})
test_that("weather_dl() month string_as = NULL", {
skip_on_cran()
vcr::use_cassette("weather_month_5410", {
expect_warning(expect_message(w <- weather_dl(station_id = 5410,
interval = "month",
start = "2014-01-01",
end = "2014-03-01",
string_as = NULL)),
NA)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.