read_l.actas <- function(ss) {
  df <- read_sheet(ss,
                   sheet=2,range= "A1:BA1092",
                   col_names = TRUE,col_types="c")
  df}