#6 fix get_phobius and get_big_pi http > https

missuse · Nov 5, 2020 · c0ca5f3 · c0ca5f3
1 parent 98eeb84
commit c0ca5f3
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -25,7 +25,7 @@ Imports: xgboost (>= 1.1.1.1),
     utils (>= 3.3),
     graphics (>= 3.3),
     ggplot2 (>= 2.2.1)
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1
 Suggests:
     protr,
     knitr,

diff --git a/R/get_big_pi.R b/R/get_big_pi.R
@@ -344,7 +344,7 @@ get_big_pi.default <- function(data = NULL,
   splt <- 0:(nrow(mat)-1) %/% 100
   mat_split <- split(mat, splt)
   sleep <- 2
-  url <- "http://mendel.imp.ac.at/gpi/cgi-bin/gpi_pred_plants.cgi"
+  url <- "https://mendel.imp.ac.at/gpi/cgi-bin/gpi_pred_plants.cgi"
   tot <- length(mat_split)
   if(progress){
     pb <- utils::txtProgressBar(min = 0,

diff --git a/R/get_phobius.R b/R/get_phobius.R
@@ -97,7 +97,7 @@ get_phobius.character <- function(data,
                                 max = len,
                                 style = 3)
   }
-  url <- "http://phobius.sbc.su.se/cgi-bin/predict.pl"
+  url <- "https://phobius.sbc.su.se/cgi-bin/predict.pl"
   collected_res = vector("list", len)
   for (i in 1 : len){
     file_up <- httr::upload_file(file_list[i])