From 32464a7030e1897cf4d32691efa1a0056508c6b8 Mon Sep 17 00:00:00 2001
From: yun <yunyunpp96@outlook.com>
Date: Sun, 30 Jul 2023 19:19:12 +0800
Subject: [PATCH] change default value of ftp_over_https argument

---
 R/get_geo.R          | 2 +-
 R/get_geo_suppl.R    | 2 +-
 man/get_geo.Rd       | 2 +-
 man/get_geo_suppl.Rd | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/get_geo.R b/R/get_geo.R
index 9cd73f0..ba9fde7 100644
--- 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
index 91abd64..975a399 100644
--- 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
index e09488a..3fd79b4 100644
--- a/man/get_geo.Rd
+++ b/man/get_geo.Rd
@@ -10,7 +10,7 @@ get_geo(
   gse_matrix = TRUE,
   pdata_from_soft = TRUE,
   add_gpl = NULL,
-  ftp_over_https = FALSE,
+  ftp_over_https = TRUE,
   handle_opts = list(connecttimeout = 60L)
 )
 }
diff --git a/man/get_geo_suppl.Rd b/man/get_geo_suppl.Rd
index 8547b30..e82abc2 100644
--- a/man/get_geo_suppl.Rd
+++ b/man/get_geo_suppl.Rd
@@ -8,7 +8,7 @@ get_geo_suppl(
   ids,
   dest_dir = getwd(),
   pattern = NULL,
-  ftp_over_https = FALSE,
+  ftp_over_https = TRUE,
   handle_opts = list(connecttimeout = 60L)
 )
 }