обновленный ответ
Я предполагаю, что вы используете Windows ... если это так, вы можете передать результаты от findstr до fread()
.
Данные из устного ответасохраняется в test.csv
.
data.table::fread( cmd = 'findstr "^[^#]" test.csv', sep = "\n", header = FALSE )
# V1
#1: line,with,data
#2: line2,with,data
findstr /b /v test.csv
дает тот же результат
В Linux вы можете (вероятно) передать вывод команды grep
в fread()
.
старый ответ
Это решение не очень полезно при работе только с одним файлом, но поможет при чтении нескольких файлов с использованием lapply()
text = "line,with,data
#commentline,with,data
line2,with,data"
data.table::fread( text, sep = "\n", header = FALSE )[!grepl( "^#", V1 )]