Поскольку вы не знаете, сколько строк нужно пропустить заранее, мы можем использовать readLines
, чтобы прочитать весь текст из файла. Найдите номер строки, используя grep
текст 'ID only records :'
и начните читать данные из этой строки, свернув текст в одну строку.
temp <- readLines('temp.txt')
output <- read.table(text = paste0(trimws(temp[(
grep('ID only records :', temp) + 1) : length(temp)]),
collapse = "\n"), header = TRUE)