diff options
| author | Ranke Johannes <johannes.ranke@agroscope.admin.ch> | 2026-06-22 18:45:57 +0200 |
|---|---|---|
| committer | Ranke Johannes <johannes.ranke@agroscope.admin.ch> | 2026-06-22 18:45:57 +0200 |
| commit | 6c8f7bae6eba1f8c4de6216c5b509d5837195b07 (patch) | |
| tree | 7fc29e583fc323474aead67018a3d450435007e6 /R/TOXSWA_cwa.R | |
| parent | e0c130005ee7adbac9b832ea8157712419d51b7e (diff) | |
Adapt to current readr requirements
Diffstat (limited to 'R/TOXSWA_cwa.R')
| -rw-r--r-- | R/TOXSWA_cwa.R | 6 |
1 files 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) |