Updated fetch_bp to use read_csv.

bartongroup · May 24, 2023 · 16f5328 · 16f5328
1 parent a1633f6
commit 16f5328
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: fenr
 Title: Fast functional enrichment
-Version: 0.99.1
+Version: 0.99.2
 Authors@R: person(
     given = "Marek",
     family = "Gierlinski",

diff --git a/NEWS.md b/NEWS.md
@@ -78,7 +78,7 @@
  - OK, it is back, but I keep GO examples and vignettes.
  - Minor improvements to documentation.
 
+ ## Version 0.99.2 (2023-05-24)
 
+ - BioPlanet's tripod.nih.gov SSL certificate seems to be fixed, so reversing to the original read_csv code.
 
-
-
diff --git a/R/bioplanet.R b/R/bioplanet.R
@@ -18,14 +18,14 @@ fetch_bp <- function() {
   #
   # SSL certificate for tripod.nih.gov expired, so normal read_csv does not work.
   # The workaround is to use httr::get in an unsecure SSL disabled environment.
-  res <- httr::with_config(
-    config = httr::config(ssl_verifypeer = FALSE, ssl_verifyhost = FALSE),
-    httr::GET(bp_file)
-  )
-  paths <- httr::content(res, show_col_types = FALSE, encoding = "UTF-8")
+  # res <- httr::with_config(
+  #  config = httr::config(ssl_verifypeer = FALSE, ssl_verifyhost = FALSE),
+  #  httr::GET(bp_file)
+  # )
+  # paths <- httr::content(res, show_col_types = FALSE, encoding = "UTF-8")
 
-  # assert_url_path(bp_file)
-  # paths <- readr::read_csv(bp_file, show_col_types = FALSE)
+  assert_url_path(bp_file)
+  paths <- readr::read_csv(bp_file, show_col_types = FALSE)
 
   terms <- paths |>
     dplyr::select(term_id = PATHWAY_ID, term_name = PATHWAY_NAME) |>