up to cran to fix check issue

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 2.0.0
-Date: 2024-03-14 01:56:10 UTC
-SHA: b02b4e2383ccfa920f0c7799ab92ab93176731bc
+Version: 2.1.0
+Date: 2024-05-13 12:01:17 UTC
+SHA: bf3ca4cfce6fe45d44ca50ba5b624bbc448c6a13

NEWS.md

@@ -1,5 +1,6 @@
 # UCSCXenaShiny 2.1.0
 
+- Handled error raised due to internet issue in CRAN check.
 - Optimized data preloading of Shiny application.
 - Dockerfile updated.
 

R/vis_dim_dist.R

@@ -39,14 +39,24 @@ vis_dim_dist <- function(ids = c("TP53", "KRAS", "PTEN", "MDM2", "CDKN1A"),
     stop("The number of valid ids is less than three. Please inspect the input ids and data_type(?query_pancan_value)")
   }
 
-  exp_raw <- purrr::map(ids, function(x) {
-    # x = ids[1]
-    data <- query_pancan_value(x, data_type = data_type, opt_pancan=opt_pancan)
-    data <- data[[1]]
-    data <- dplyr::tibble(Sample = names(data), y = as.numeric(data))
-    colnames(data)[2] <- x
-    data
-  }) %>% purrr::reduce(dplyr::full_join, by = "Sample")
+  exp_raw <- tryCatch(
+    {
+      purrr::map(ids, function(x) {
+        # x = ids[1]
+        data <- query_pancan_value(x, data_type = data_type, opt_pancan=opt_pancan)
+        data <- data[[1]]
+        data <- dplyr::tibble(Sample = names(data), y = as.numeric(data))
+        colnames(data)[2] <- x
+        data
+      }) %>% purrr::reduce(dplyr::full_join, by = "Sample")
+    },
+    error = function(e) {
+      rlang::warn("access data failed, the message is provided below")
+      print(e$message)
+      NULL
+    }
+  )
+  if (is.null(exp_raw)) return(NULL)
 
 
   # meta_raw = query_tcga_group(...)$data