прочитать количество символов в файле фиксированной ширины перед обработкой файла данных

Question

У меня есть файл фиксированной ширины, который разделен на 8 частей, которые должны быть связаны строкой.Проблема в том, что 5 из 8 частей имеют дополнительный столбец, который необходимо удалить.

У меня есть числовой вектор правильной ширины столбца и неправильной ширины столбца

Я хотел бы просмотреть циклы файлов, и если он имеет правильное количество символов в строке (177), затем использовать правильную ширину столбца, в противном случае используйте неправильную ширину столбца

Я пытался использовать

sum(nchar(read_fwf(file,fwf_widths(correct_vector)))

, но когда я извлекаю файл, используя read_fwf (иread.fwf в этом отношении), он форматирует столбцы, и количество символов в столбце не равно количеству символов в неформатированной версии.Например, вместо 177 символов он показывает 135 из-за пропущенных дополненных нулей или отсутствия NA.

Поэтому я ищу способ прочитать файл и посчитать количество символов в первой строке безформатирование.

Answer 1

Вы можете использовать readLines, чтобы прочитать первую строку каждого файла и проверить его длину, используя nchar.

filelist <- dir(pattern='txt$')
for (i in filelist) {
    if (nchar(readLines(i, n=1) == 177)
        print('correct')
    else
        print('incorrect')
}