if (FALSE) { # interactive()
# Get VPTS data for a single radar and date
get_vpts(radar = "bejab", datetime = "2023-01-01", source = "baltrad")
get_vpts(radar = "bejab", datetime = "2020-01-19", source = "rmi")
# Get VPTS data for multiple radars and a single date
get_vpts(
radar = c("dehnr", "deflg"),
datetime = lubridate::ymd("20171015"),
source = "baltrad"
)
# Get VPTS data for a single radar and a date range
get_vpts(
radar = "bejab",
datetime = lubridate::interval(
lubridate::ymd_hms("2023-01-01 00:00:00"),
lubridate::ymd_hms("2023-01-02 00:14:00")
),
source = "baltrad"
)
get_vpts("bejab", lubridate::interval("20210101", "20210301"))
# Get VPTS data for a single radar, date range and non-default source
get_vpts(radar = "bejab", datetime = "2016-09-29", source = "ecog-04003")
# Return a tibble instead of a vpts object
get_vpts(
radar = "chlem",
datetime = "2023-03-10",
source = "baltrad",
return_type = "tibble"
)
}
Run the code above in your browser using DataLab