Remove message

Author: ldecicco-USGS

R/read_USGS_samples.R

@@ -119,17 +119,13 @@ construct_USGS_sample_request <- function(monitoringLocationIdentifier = NA,
                            dataType = "results",
                            dataProfile = NA){
 
-  message("Function in development, use at your own risk.")
-  
   dataType <- match.arg(dataType, c("results",
                         "locations",
                         "activities",
                         "projects",
                         "organizations"), 
             several.ok = FALSE)
 
-  # When RMLS comes out...spring 2025ish,
-  # we can verify these values hopefully easier:
   baseURL <- httr2::request("https://api.waterdata.usgs.gov") |> 
     httr2::req_url_path_append("samples-data") |>
     httr2::req_url_query(mimeType = "text/csv")