Как правильно построить lapply для чтения (из одного каталога) всех CSV-файлов, загрузки всех столбцов в виде строк и затем связывания их в один фрейм данных.

вэтотУ меня есть способ загрузить все файлы .csv и связать их с кадром данных. К сожалению, они зацикливаются на том, как столбцы получают тип. Таким образом, давая мне эту ошибку:

Ошибка: не удается автоматически преобразовать символ в число в столбце

Я попытался дополнить код с помощьюаргументы для типа данных и я пытаюсь просто сохранить все как персонажи; Теперь я застреваю, когда не могу правильно настроить свой «цикл», чтобы эффективно ссылаться на предмет каждого цикла его «цикла».

srvy1 <- structure(list(RESPONSE_ID = 584580L, QUESTION_ID = 328L, SURVEY_ID = 2324L, 
           AFF_ID_INV_RESP = 5L), .Names = c("RESPONSE_ID", "QUESTION_ID", 
                                             "SURVEY_ID", "AFF_ID_INV_RESP"), class = "data.frame", row.names = c(NA, 
                                                                                                                  -1L))

srvy2 <- structure(list(RESPONSE_ID = 584580L, QUESTION_ID = 328L, SURVEY_ID = 2324L, 
           AFF_ID_INV_RESP = "bovine"), .Names = c("RESPONSE_ID", "QUESTION_ID", 
                                                   "SURVEY_ID", "AFF_ID_INV_RESP"), class = "data.frame", row.names = c(NA, 
                                                                                                                        -1L))    

files = list.files(pattern="*.csv")
tbl = lapply(files, read_csv(files, col_types = cols(.default = col_character()))) %>% bind_rows

Есть ли простое решение для этого, которое я могу держать в тидиверсе, или я должен опустить уровень и перейти к открытому построению цикла for сам - поэтот.