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