change function to read from text file (back to built-in function, remove readr dependency)

Author: gdurif

R-pkg/DESCRIPTION

@@ -62,7 +62,6 @@ Imports:
     markdown, 
     mime,
     parallel, pbapply, processx,
-    readr,
     rlang,
     shiny, 
     shinybusy (>= 0.2.2), 

R-pkg/NAMESPACE

@@ -60,7 +60,6 @@ importFrom(parallel,makeCluster)
 importFrom(parallel,stopCluster)
 importFrom(pbapply,pblapply)
 importFrom(processx,process)
-importFrom(readr,read_file)
 importFrom(rlang,duplicate)
 importFrom(shinyFeedback,feedbackWarning)
 importFrom(shinyFeedback,useShinyFeedback)

R-pkg/R/41_input_read.R

@@ -6,7 +6,6 @@
 #' @param file_name string, (server-side) path to a headersim file.
 #' @param file_type string, MIME file type.
 #' @param locus_type string, "snp" or "mss"
-#' @importFrom readr read_file
 read_header <- function(file_name, file_type, locus_type = "snp") {
 
     # init output
@@ -47,8 +46,7 @@ read_header <- function(file_name, file_type, locus_type = "snp") {
     out$header_file <- basename(file_name)
 
     ## HEADER FILE CONTENT
-    # read whole file in one string and split it by new line
-    header <- unlist(str_split(read_file(file_name), "\n"))
+    header <- readLines(file_name, warn = FALSE)
 
     ## data file
     out$data_file <- header[1]

R-pkg/R/43_data_read.R

@@ -829,7 +829,6 @@ check_snp_poolseq <- function(content, mrc = 1) {
 #' @param expected_data_file string, expected data file name for 
 #' existing project, default is NULL.
 #' @importFrom tools file_ext
-#' @importFrom readr read_file
 read_mss_data <- function(data_file, data_dir) {
 
     # init output
@@ -906,7 +905,7 @@ read_mss_data <- function(data_file, data_dir) {
     out$sex_ratio <- str_extract(header1, pttrn)
 
     ## FILE CONTENT
-    file_content <- unlist(str_split(read_file(file_name), "\n"))
+    file_content <- readLines(file_name, warn = FALSE)
 
     ## LOCUS DESCRIPTION (between second line and first 'POP/pop' keyword)