From c0ca5f314010803e281e7d86f06ea05a4083a4ac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Milan=20Dragi=C4=87evi=C4=87?= Date: Thu, 5 Nov 2020 13:18:41 +0100 Subject: [PATCH] #6 fix get_phobius and get_big_pi http > https --- DESCRIPTION | 2 +- R/get_big_pi.R | 2 +- R/get_phobius.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index abed70b..c7e9de5 100644 --- 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 index c4f8f00..ab83b49 100644 --- 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 index 38672fa..89d5d5a 100644 --- 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])