change default value of ftp_over_https argument

Yunuuuu · Jul 30, 2023 · 32464a7 · 32464a7
1 parent c538e55
commit 32464a7
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/get_geo.R b/R/get_geo.R
@@ -104,7 +104,7 @@
 #' gds <- get_geo("GDS10", tempdir())
 #'
 #' @export
-get_geo <- function(ids, dest_dir = getwd(), gse_matrix = TRUE, pdata_from_soft = TRUE, add_gpl = NULL, ftp_over_https = FALSE, handle_opts = list(connecttimeout = 60L)) {
+get_geo <- function(ids, dest_dir = getwd(), gse_matrix = TRUE, pdata_from_soft = TRUE, add_gpl = NULL, ftp_over_https = TRUE, handle_opts = list(connecttimeout = 60L)) {
     ids <- toupper(ids)
     check_ids(ids)
     if (!dir.exists(dest_dir)) {

diff --git a/R/get_geo_suppl.R b/R/get_geo_suppl.R
@@ -18,7 +18,7 @@
 #' a
 #'
 #' @export
-get_geo_suppl <- function(ids, dest_dir = getwd(), pattern = NULL, ftp_over_https = FALSE, handle_opts = list(connecttimeout = 60L)) {
+get_geo_suppl <- function(ids, dest_dir = getwd(), pattern = NULL, ftp_over_https = TRUE, handle_opts = list(connecttimeout = 60L)) {
     ids <- toupper(ids)
     check_ids(ids)
     if (!dir.exists(dest_dir)) {

diff --git a/man/get_geo.Rd b/man/get_geo.Rd
diff --git a/man/get_geo_suppl.Rd b/man/get_geo_suppl.Rd