diff --git a/tests/testthat/test-weathervane.R b/tests/testthat/test-weathervane.R index 2352595..9685b80 100644 --- a/tests/testthat/test-weathervane.R +++ b/tests/testthat/test-weathervane.R @@ -114,6 +114,7 @@ test_that('get_weather_data() has different column names if pretty_names = FALSE test_that('get_weather_data() returns all weather variables by default', { data <- get_weather_data(-34.968, 138.635, start_date = "2023-10-10", finish_date = "2023-10-15") + head(data) expect_identical(colnames(data), c("Date", "Latitude", "Longitude", "Elevation (m)", weather_variables()$pretty_name))