write_tsv create fake decimals

[sylvainschmitt]

Dear developers thanks for the amazing work. However, I encountered a weird behavior from readr which seems to invent decimals:

  library(readr)
  cat("VPD\n0.852402144876029", file = "test_in.txt")
  read_tsv("test_in.txt") %>% 
    write_tsv(file = "test_out.txt")
  readLines("test_out.txt")
  # [1] "VPD"                 "0.85240214487602906"

I'm using readr 2.1.4

[sylvainschmitt]

This issue is not occurring with base:

  cat("VPD\n0.852402144876029", file = "test_in.txt")
  read.delim("test_in.txt", sep = "\t") %>% 
    write.table(file = "test_out.txt", sep = "\t", 
                quote = FALSE, row.names = FALSE)
  readLines("test_out.txt")

And occurs only for few specific values.

[MarekGierlinski]

It might be related to issue #1502 I just reported.

[hadley]

Duplicate of #1502