Section 14.6.1 second code chunk throws an error

[stephenbalogun]

The code chunk below from the book chapter is no longer reproducible using R version 4.4.0 and {readr} 2.1.5

x1 <- "text\nEl Ni\xf1o was particularly bad this year"
read_csv(x1)$text
#> [1] "El Ni\xf1o was particularly bad this year"

The chunk now throws an error as shown below:

x1 <- "text\nEl Ni\xf1o was particularly bad this year"
readr::read_csv(x1)$text
#> Warning in grepl("\n", path): unable to translate 'text
#> El Ni<f1>o was particularly bad this year' to a wide string
#> Warning in grepl("\n", path): input string 1 is invalid
#> Warning in grepl("^((http|ftp)s?|sftp)://", path): unable to translate 'text
#> El Ni<f1>o was particularly bad this year' to a wide string
#> Warning in grepl("^((http|ftp)s?|sftp)://", path): input string 1 is invalid
#> Warning in regexpr(regex, path, perl = TRUE): input string 1 is invalid UTF-8
#> Error in file.exists(path): file name conversion problem -- name too long?

^{Created on 2024-06-18 with reprex v2.1.0}

[davidrsch]

This is related to issues #1478 and #1599 both related with tidyverse/readr#1521 . The changes suggested in the last mentioned issue hasn't yet been applied.

[stephenbalogun]

Thank you. It appears that this issue is yet to be fixed. Does this section of the book need to be updated pending when the issue is resolved?

  library(readr)
  x1 <- "text\nEl Ni\xf1o was particularly bad this year"
read_csv(x1)$text
#> Warning in grepl("\n", path): unable to translate 'text
#> El Ni<f1>o was particularly bad this year' to a wide string
#> Warning in grepl("\n", path): input string 1 is invalid
#> Warning in grepl("^((http|ftp)s?|sftp)://", path): unable to translate 'text
#> El Ni<f1>o was particularly bad this year' to a wide string
#> Warning in grepl("^((http|ftp)s?|sftp)://", path): input string 1 is invalid
#> Warning in regexpr(regex, path, perl = TRUE): input string 1 is invalid UTF-8
#> Error in file.exists(path): file name conversion problem -- name too long?
x2 <- "text\n\x82\xb1\x82\xf1\x82\xc9\x82\xbf\x82\xcd"
read_csv(x2)$text
#> Warning in grepl("\n", path): unable to translate 'text
#> <82><b1><82><f1><82>ɂ<bf><82><cd>' to a wide string
#> Warning in grepl("\n", path): input string 1 is invalid
#> Warning in grepl("^((http|ftp)s?|sftp)://", path): unable to translate 'text
#> <82><b1><82><f1><82>ɂ<bf><82><cd>' to a wide string
#> Warning in grepl("^((http|ftp)s?|sftp)://", path): input string 1 is invalid
#> Warning in regexpr(regex, path, perl = TRUE): input string 1 is invalid UTF-8
#> Error in file.exists(path): file name conversion problem -- name too long?

^{Created on 2025-06-28 with reprex v2.1.1}