Replace deprecated read_table2 with read_table

bodkan · May 8, 2024 · 5fe1b3a · 5fe1b3a
1 parent 08672e3
commit 5fe1b3a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/io.R b/R/io.R
@@ -21,7 +21,7 @@ read_ind <- function(data) {
 #'
 #' @export
 read_snp <- function(data, exclude = FALSE) {
-  readr::read_table2(
+  readr::read_table(
     ifelse(exclude, data$exclude, data$snp),
     col_names = c("id", "chrom", "gen", "pos", "ref", "alt"),
     col_types = "ccdicc",

diff --git a/tests/testthat/helper-functions.R b/tests/testthat/helper-functions.R
@@ -8,7 +8,7 @@ read_pops <- function(filename, columns) {
 }
 
 read_snp_file <- function(path) {
-  readr::read_table2(
+  readr::read_table(
     path,
     col_types = "ccdicc",
     col_names = c("id", "chrom", "gen", "pos", "ref", "alt")

diff --git a/tests/testthat/test-io.R b/tests/testthat/test-io.R
@@ -46,7 +46,7 @@ test_that("read_snp and write_snp are inverse functions", {
   new_file <- tempfile()
   write_snp(true, new_file)
 
-  new <- readr::read_table2(
+  new <- readr::read_table(
     new_file,
     col_types = "ccdicc",
     col_names = c("id", "chrom", "gen", "pos", "ref", "alt")