fix R CMD check error

Author: Yunuuuu

R/fda_drugs.R

@@ -49,7 +49,7 @@ fda_drugs_file <- function(url = NULL, force,
         prefix = "fda_drugs_data",
         ext = "zip",
         name = "Drugs@FDA data",
-        dir = dir, 
+        dir = dir,
         method = "base", mode = "wb",
         arg = arg, call = call
     )
@@ -59,15 +59,24 @@ fda_drugs_url <- function(url = NULL,
                           arg = rlang::caller_arg(url),
                           call = rlang::caller_env()) {
     if (!is.null(url)) return(url) # styler: off
-    assert_internet(call = call)
-    url <- sprintf(
-        "%s/drugs/drug-approvals-and-databases/drugsfda-data-files",
-        fda_host("www")
-    )
-    cli::cli_inform(c(">" = "Reading html: {.url {url}}"))
-    html <- xml2::read_html(url)
-    node <- rvest::html_element(html, "[data-entity-substitution]")
-    if (inherits(node, "xml_missing")) {
+    host <- fda_host("www")
+    if (curl::has_internet()) {
+        url <- sprintf(
+            "%s/drugs/drug-approvals-and-databases/drugsfda-data-files",
+            host
+        )
+        node <- tryCatch(
+            {
+                html <- xml2::read_html(url)
+                cli::cli_inform(c(">" = "Reading html: {.url {url}}"))
+                rvest::html_element(html, "[data-entity-substitution]")
+            },
+            error = function(cnd) NULL
+        )
+    } else {
+        node <- NULL
+    }
+    if (is.null(node) || inherits(node, "xml_missing")) {
         # cli::cli_abort(c(
         #     "Cannot determine the url of {.field Drugs@FDA} file",
         #     i = "try to provide {.arg {arg}} manually"
@@ -77,5 +86,5 @@ fda_drugs_url <- function(url = NULL,
         cli::cat_line(rvest::html_text(node))
         href <- rvest::html_attr(node, "href")
     }
-    paste0(fda_host("www"), href)
+    paste0(host, href)
 }

R/meta.R

@@ -7,7 +7,7 @@
 #' information about all records' metadata in the FAERS Quarterly Data Extract
 #' Files Site, bypassing the cache.
 #' @param internal A boolean value. It determines whether to use the internal
-#' data associated with the package when no cached file is available.
+#' data associated with the package.
 #' @return A [data.table][data.table::data.table] reporting years, period,
 #' quarter, and file urls and file sizes.
 #' @examples
@@ -26,19 +26,16 @@ faers_meta <- function(force = FALSE, internal = !curl::has_internet()) {
 }
 
 faers_meta_cache_read <- function(internal = FALSE) {
-    file <- faers_meta_cache_file()
-    if (file.exists(file)) {
+    if (internal) {
+        out <- load_data("faers_meta_data")
+        msg <- "Using internal FAERS metadata"
+    } else if (file.exists(file <- faers_meta_cache_file())) {
         out <- readRDS(file)
         msg <- "Using FAERS metadata from cached {.file {file}}"
         # save the data in the cached environment for the usage of next time
         # like faers_available()
     } else {
-        if (internal) {
-            out <- load_data("faers_meta_data")
-            msg <- "Using internal FAERS metadata"
-        } else {
-            return(NULL)
-        }
+        return(NULL)
     }
     cli::cli_inform(c(">" = msg, " " = "Snapshot time: {out$date}"))
     out$data

man/faers_available.Rd

@@ -86,16 +86,12 @@ If it doesn't exist, the internal will parse metadata in
 <`r sprintf("%s/extensions/FPD-QDE-FAERS/FPD-QDE-FAERS.html",
 faers:::fda_host("fis"))`> 
 
-```{r}
+```{r eval=FALSE}
 faers_meta()
 ```
 
 An metadata copy was associated with the package, just set `internal = TRUE`.
-However, this copy will only be used if the cached file on your computer cannot
-be found as the cached file on your computer should be more up-to-date than this
-metadata copy.
 ```{r}
-faers_clearcache("metadata")
 faers_meta(internal = TRUE)
 ```