From b14722321de2881f156e547af30df3ee04cce360 Mon Sep 17 00:00:00 2001 From: Jenny Bryan Date: Thu, 20 Nov 2025 11:45:09 -0800 Subject: [PATCH] Just use `read_table()` --- NAMESPACE | 2 +- R/eyelink_parser.R | 2 +- R/eyelinker.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/NAMESPACE b/NAMESPACE index 2f069c4..f62e725 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -10,7 +10,7 @@ importFrom(intervals,Intervals) importFrom(intervals,distance_to_nearest) importFrom(intervals,which_nearest) importFrom(readr,read_lines) -importFrom(readr,read_table2) +importFrom(readr,read_table) importFrom(readr,read_tsv) importFrom(stats,median) importFrom(stringi,stri_count_fixed) diff --git a/R/eyelink_parser.R b/R/eyelink_parser.R index 06e96c4..9bee926 100755 --- a/R/eyelink_parser.R +++ b/R/eyelink_parser.R @@ -215,7 +215,7 @@ process_events <- function(rows, blocks, colnames) { if (length(rows) == 1) rows <- c(rows, "") colnames <- c('type', colnames) # first col is event type, which we drop later coltypes <- get_coltypes(colnames) - df <- read_table2(rows, col_names = colnames, col_types = coltypes, na = ".")[, -1] + df <- read_table(rows, col_names = colnames, col_types = coltypes, na = ".")[, -1] # Move eye col to end & make factor, append block numbers to beginning of data frame if ("eye" %in% colnames) { diff --git a/R/eyelinker.R b/R/eyelinker.R index 3d5083b..d357ad3 100644 --- a/R/eyelinker.R +++ b/R/eyelinker.R @@ -19,7 +19,7 @@ NULL #' @importFrom utils tail #' @importFrom stringr str_sub<- str_detect fixed #' @importFrom tibble as_tibble add_column -#' @importFrom readr read_lines read_tsv read_table2 +#' @importFrom readr read_lines read_tsv read_table #' @importFrom stringi stri_enc_toascii stri_split_regex stri_split_fixed stri_count_fixed #' @importFrom intervals which_nearest distance_to_nearest Intervals NULL