Como criar corretamente um lapply para ler (de um diretório) todos os arquivos .csv, carregar todas as colunas como seqüências de caracteres e vinculá-las a um quadro de dados.

Poresta, Tenho uma maneira de obter todos os arquivos .csv carregados e vinculados a um quadro de dados. Infelizmente, eles estão ficando preocupados com a variabilidade de como as colunas estão sendo convertidas em tipo. Assim, dando-me este erro:

Erro: não é possível converter automaticamente de caractere para inteiro na coluna

Eu tentei complementar o código com oargumentos para o tipo de dados e estou tentando manter tudo como personagem; Agora, estou ficando paralisado ao poder obter corretamente meu 'loop' de lapply para efetivamente referenciar o assunto de cada ciclo de seu 'loop'.

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

Existe uma solução fácil para isso que eu possa manter em ordem, ou devo descer um nível e começar a construir abertamente o loop for - poresta.