refactor: reorganize functions

Author: Yunuuuu

R/combine.R

@@ -152,7 +152,8 @@ combine_faers_xml_data <- function(x) {
     )
 }
 
-combine_faers_meddra <- function(lst, standardization, call = rlang::caller_env()) {
+combine_faers_meddra <- function(lst, standardization, 
+                                call = rlang::caller_env()) {
     if (!standardization) {
         return(NULL)
     }

R/utils-assert.R

@@ -13,3 +13,9 @@ assert_inclusive <- function(x, y, allow_null = FALSE,
         ), call = call)
     }
 }
+
+assert_internet <- function(call = rlang::caller_env()) {
+    if (!curl::has_internet()) {
+        cli::cli_abort("No internet", call = call)
+    }
+}

R/utils.R

@@ -1,9 +1,5 @@
 `%||%` <- function(x, y) if (is.null(x)) y else x
 
-pkg_nm <- function() {
-    utils::packageName(topenv(environment()))
-}
-
 quote_strings <- function(x, ...) {
     oxford_comma(sprintf('"%s"', x), ...)
 }
@@ -13,19 +9,11 @@ dt_shallow <- function(x) {
     x[TRUE]
 }
 
-assert_internet <- function(call = rlang::caller_env()) {
-    if (!curl::has_internet()) {
-        cli::cli_abort("No internet", call = call)
-    }
-}
-
 has_name <- function(x, name) {
     any(name == rlang::names2(x))
 }
 
-fda_host <- function(prefix = "www") {
-    sprintf("https://%s.fda.gov", prefix)
-}
+fda_host <- function(prefix = "www") sprintf("https://%s.fda.gov", prefix)
 
 FAERS_FILE_FORMAT <- c("ascii", "xml")
 FAERS_FILE_QUARTERS <- c("q1", "q2", "q3", "q4")