if (FALSE) {
tmp <- tempfile(fileext = ".csv")
writeLines(
c("ponto;data;ph;od;turbidez;lat;lon",
"R1_01;2025-01-20;7,2;6,8;5,1;-163456789;-396543210",
"R1_01;21/01/2025;7.1;7.0;4.8 mg/L;-16.3456789;-39.6543210"),
tmp
)
x <- read_wq(tmp)
str(x)
}
Run the code above in your browser using DataLab