From 6c8f7bae6eba1f8c4de6216c5b509d5837195b07 Mon Sep 17 00:00:00 2001 From: Ranke Johannes Date: Mon, 22 Jun 2026 18:45:57 +0200 Subject: Adapt to current readr requirements --- R/TOXSWA_cwa.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/TOXSWA_cwa.R b/R/TOXSWA_cwa.R index b2f7619..ec9b5b7 100644 --- a/R/TOXSWA_cwa.R +++ b/R/TOXSWA_cwa.R @@ -275,9 +275,9 @@ TOXSWA_cwa <- R6::R6Class("TOXSWA_cwa", cwa_lines <- grep(cwa_string, outfile, value = TRUE) - cwa_all_segments <- read_fwf(paste(cwa_lines, collapse = "\n"), - fwf_empty(paste(tail(cwa_lines), collapse = "\n"))) - + cwa_all_segments <- read_fwf(I(paste(cwa_lines, collapse = "\n")), + fwf_empty(I(paste(tail(cwa_lines), collapse = "\n"))), + show_col_types = FALSE) available_segments = 1:(ncol(cwa_all_segments) - 3) if (segment == "last") segment = max(available_segments) -- cgit v1.2.3