Merge pull request #104 from spsanderson/development

Fixes #102

NAMESPACE

@@ -25,3 +25,4 @@ export(fetch_cms_data)
 export(fetch_provider_data)
 export(get_cms_meta_data)
 export(get_provider_meta_data)
+export(is_valid_url)

NEWS.md

@@ -1,5 +1,16 @@
 # healthyR.data (development version)
 
+## Breaking Changes
+None
+
+## New Function
+1. Fix #102 - Add function `is_valid_url()`
+
+## Minor Fixes and Improvements
+1. Fix #101 - Fixed `fetch_cms_data()` to handle all types of data presented, not 
+just API data. Now appropriately handles both API and non-API data such as, .csv,
+vnd.ms-excel and .zip files.
+
 # healthyR.data 1.1.0
 
 ## Breaking Changes

R/utils-valid-url.R

@@ -0,0 +1,36 @@
+#' Check if a URL is valid
+#'
+#' @family Utility
+#'
+#' @author Steven P. Sanderson II, MPH
+#'
+#' @details The function uses the `httr2::url_parse` function to parse the URL
+#' and checks if the parsed URL contains a scheme and a hostname. If either
+#' is missing, the URL is considered invalid.
+#'
+#' @description
+#' This function validates a URL by checking the presence of a scheme and a
+#' hostname in the parsed URL.
+#'
+#' @param .url A character string representing the URL to be checked.
+#'
+#' @return A logical value: `TRUE` if the URL is valid, `FALSE` otherwise.
+#'
+#' @examples
+#' is_valid_url("https://www.example.com") # TRUE
+#' is_valid_url("not_a_url") # FALSE
+#'
+#' @name is_valid_url
+NULL
+
+#' @rdname is_valid_url
+#' @export
+is_valid_url <- function(url) {
+    parsed_url <- httr2::url_parse(url)
+    # Check if the parsed URL has a scheme and a host
+    if (is.null(parsed_url$scheme) || is.null(parsed_url$hostname)) {
+        return(FALSE)
+    } else {
+        return(TRUE)
+    }
+}