Parameterize key query fields in riem_measures()

DESCRIPTION

@@ -40,4 +40,4 @@ Suggests:
     xts
 Config/testthat/edition: 3
 Encoding: UTF-8
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

R/measures.R

@@ -2,8 +2,12 @@
 #'
 #'
 #' @param station station ID, see riem_stations()
-#' @param date_start date of start of the desired data, e.g. "2000-01-01"
+#' @param data The data columns to return. The available options are: all, tmpf, dwpf, relh, drct, sknt, p01i, alti, mslp, vsby, gust, skyc1, skyc2, skyc3, skyc4, skyl1, skyl2, skyl3, skyl4, wxcodes, ice_accretion_1hr, ice_accretion_3hr, ice_accretion_6hr, peak_wind_gust, peak_wind_drct, peak_wind_time, feel, metar, snowdepth # nolint: line_length_linter
+#' @param elev If set to 'yes', the elevation (m) of the station will be included in the output. # nolint: line_length_linter
+#' @param latlon If set to 'yes', the latitude and longitude of the station will be included in the output. # nolint: line_length_linter
+#' @param date_start date of start of the desired data, e.g. "2016-01-01"
 #' @param date_end date of end of the desired data, e.g. "2016-04-22"
+#' @param report_type The report type to query. The available options are: 1 (HFMETAR), 3 (Routine), 4 (Specials). # nolint: line_length_linter
 #'
 #' @return a data.frame (tibble tibble) with measures,
 #' the number of columns can vary from station to station,
@@ -64,8 +68,13 @@
 #' }
 riem_measures <- function(
     station = "VOHY",
-    date_start = "2014-01-01",
-    date_end = as.character(Sys.Date())) {
+    data = "all",
+    elev = "no",
+    latlon = "yes",
+    date_start = "2024-01-01",
+    date_end = as.character(Sys.Date()),
+    # skip HFMETAR by default
+    report_type = "3,4") {
   date_start <- format_and_check_date(date_start, "date_start")
   date_end <- format_and_check_date(date_end, "date_end")
   if (date_end < date_start) {
@@ -74,17 +83,21 @@ riem_measures <- function(
 
   resp <- perform_riem_request(
     path = "cgi-bin/request/asos.py/", # nolint: nonportable_path_linter
+    # query fields per https://mesonet.agron.iastate.edu/cgi-bin/request/asos.py?help # nolint: line_length_linter
     query = list(
       station = station,
-      data = "all",
+      data = data,
+      elev = elev,
+      latlon = latlon,
       year1 = lubridate::year(date_start),
       month1 = lubridate::month(date_start),
       day1 = lubridate::day(date_start),
       year2 = lubridate::year(date_end),
       month2 = lubridate::month(date_end),
       day2 = lubridate::day(date_end),
+      report_type = report_type,
       format = "tdf",
-      latlon = "yes",
+      nometa = "no",
       tz = "UTC"
     )
   )