add oss suport for donwloading data

DESCRIPTION

@@ -31,6 +31,7 @@ Imports:
     forcats,
     ggplot2 (>= 3.2.0),
     ggpubr (>= 0.2),
+    httr,
     magrittr (>= 1.5),
     ppcor,
     psych,

R/load_data.R

@@ -42,6 +42,7 @@
 #'   - `pancancer_conserved_immune_subtype`: Pan-cancer conserved immune subtypes.
 #'   - `pcawg_TIL`: PCAWG TIL data.
 #'   - `pcawg_PW`: ssGSEA scores of HALLMARK, KEGG, IOBR terms for PCAWG samples.
+#'   - ...
 
 #'   
 #' @return a dataset, typically a `data.frame`.
@@ -79,6 +80,11 @@ load_data <- function(name) {
       # Download it to inst/extdata from zenodo
       # Then load it
       data_url <- file.path("https://zenodo.org/record/10340116/files", name2)
+      if (tryCatch(httr::status_code(httr::HEAD(data_url)), 
+                   error = function(e) 404) != 200) {
+        # Use an alternative OSS approach
+        data_url <- file.path("https://ucscxenashiny-1301043367.cos.ap-shanghai.myqcloud.com", name2)
+      }
       message("Loading data from remote: ", data_url, ", please wait...")
       name <- FALSE
       tryCatch(

inst/shinyapp/App.R

@@ -23,7 +23,7 @@ if (xena.runMode == "server") {
 }
 
 # Load necessary packages ----------------------------------
-message("Checking depedencies...")
+message("Checking dependencies...")
 
 if (!requireNamespace("pacman")) {
   install.packages("pacman", repos = "http://cran.r-project.org")