https

Nicolas-Schmidt · Jun 27, 2023 · 85471ef · 85471ef
1 parent 66e2d44
commit 85471ef
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -985,7 +985,8 @@ c2 <- function(.f){
 
 sfile <- function(file){
 
- if(grepl("https:", file[1])){
+ if(grepl("^http", file[1])){
+ file <- stringr::str_replace(file, pattern = "http:", "https:")
  if(inherits(file, "surl")){
  file <- file
  } else {
@@ -997,7 +998,6 @@ sfile <- function(file){
 }
 
 
-
 ### parse id
 # If the identifier (id) has more than 20 characters it will be compressed to 20.
 # The same if the id is the same for multiple files. In the latter case a new id will