data_file <- tempfile(fileext = ".csv")
data_in <- data.frame(
x1 = c(1.1, 2.2, 3.3),
x2 = c(4.4, 5.5, 6.6),
row.names = c("s1", "s2", "s3")
)
utils::write.csv(data_in, data_file)
read_data_csv(data_file, format = "row", header.row = TRUE)
Run the code above in your browser using DataLab