another querystring fix

internetofwater · Jun 18, 2020 · fe86b3d · fe86b3d
1 parent 5987ac8
commit fe86b3d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/reference_units.R b/R/reference_units.R
@@ -36,7 +36,7 @@ get_hu <- function(wbd_gdb, hu_layer, id_attribute, gnis_base, pid_base,
                        creator = creator,
                        description = description,
                        c1_type = "QueryString",
-                       c1_match = "?f=.*",
+                       c1_match = "f=.*",
                        c1_value = paste0(landing_base,
                                          hu$temp_id,
                                          "?f=${C:f:1}"))
@@ -77,7 +77,7 @@ write_nat_aq <- function(nat_aq, pid_base, landing_base, out, out_csv) {
                        creator = "[email protected]",
                        description = "National Aquifer Reference",
                        c1_type = "QueryString",
-                       c1_match = "?f=.*",
+                       c1_match = "f=.*",
                        c1_value = paste0(landing_base,
                                          nat_aq$NAT_AQFR_CD,
                                          "?f=${C:f:1}"))