У меня быстрый вопрос, который я не могу понять. Я читаю некоторые результаты из выходного файла с использованием приведенного ниже кода и хранится в виде списка в R, который можно увидеть на рисунке. Я хочу удалить всю информацию после пустой строки, другими словами, это будет все после строки 42:
Кто-нибудь знает что-нибудь, что я мог бы использовать? Я пытался использовать gsub, если я был не очень успешным.
Спасибо за всю помощь, я новичок в программировании на R. Опять же, любая помощь очень ценится.
LoadFFA <- function(filename, folder.out, TYPE = "PeakFQ_17C",
colStandard = TRUE){ # standardize column output names
require(data.table)
if(grepl("PEAKFQSA",TYPE)){ # PeakfqSA Bulleting 17C analysis
text.list<-lapply(fileinput,readLines)
skip.rows<-sapply(text.list, grep, pattern = '^Ann. Exc. Prob.\\s+EMA Est.')-1
PFA <- lapply(seq_along(text.list),function(i) read.delim(fileinput[i],skip=skip.rows[i],sep="\n",stringsAsFactors = TRUE,blank.lines.skip = FALSE))
}
EDIT
Я не знаю, смогу ли я загрузить файл напрямую, вот ссылка на диск Google.
Также здесь приведена команда для запуска функции LoadFFA («03606500peaks.out», «D: /Documents/hydraulic.failures», «PEAKFQSA»). Снимок экрана - результат использования print (PFA).
Причина, по которой я использую цикл, заключается в том, что я читаю несколько файлов (выходных файлов), и у них много данных, несколько длин, и я читаю данные, начиная с Ann.Exc.Prob. и согласно предоставленному скриншоту, я хотел бы закончить после строки 42 (после полностью пустой строки). Я надеюсь, что это устраняет некоторую путаницу.
В основном читайте выходные файлы, начинайте чтение с «Ann.Exc.Prob» и заканчивайте до конца этих данных (строка 42 для этого конкретного файла). Я использую функцию, потому что я работаю несколько раз.
Опять извините за беспокойство. Спасибо за ваше время, и я ценю ваше терпение.
https://drive.google.com/file/d/1PGbGWIHFj7IQRevTAEfqqA9Okg4fz7Mg/view?usp=sharing