Repository navigation
fread parse standard data.table print output #2720
Description
Activity
How sophisticated do you want it to be?
An extremely rinky-dink version is:
fread_rout = function(x) { # copy-pasted string into character vector x = strsplit(x, '\n', fixed = TRUE)[[1L]] # trim whitespace x = sub('^[ \t]+', '', sub('[ \t]+$', '', x)) # if output was trimmed, drop the '---' row x = grep('---', x, fixed = TRUE, invert = TRUE, value = TRUE) # get column names coln = strsplit(x[1L], '\\s+')[[1L]] # split rows by spaces (fails with spaced character column), turn into columns x = transpose(strsplit(x[-1L], '\\s+'))[-1L] setDT(x) setnames(x, coln) # attempt to apply as.numeric x[ , (coln) := lapply(.SD, function(x) { num = suppressWarnings(as.numeric(x)) if (any(is.na(num[x != 'NA']))) return(x) return(num) })] # force print x[] }It won't be able to handle anything weird (embedded commas, spaces in strings, etc). But I guess that's not the use case here.
we could just add this into the
textargument's functionality perhaps?Reacted by Jan GoreckiI would close this issue, because the idea was not that smart, printing formats depends on my factors. It is easy to do function like this for the most common examples, but difficult to make it work more widely, potentially bringing many reports about something being not well parsed.
I would find it convenient to just copy-paste data.table as printed to output.
This text copy-pasted from output could be just put in
fread("[ctrl+v]"). Something like checking1:in first col. Makes easier to get some small data.table copy-pasted from Rout log.