options(gargle_oauth_email = "villatoropazfj@dataanalysislab.com")

id= "1Jg1raOo6MB3gW5kgJZYVNC-0Iy0lv6MH"
list_fichas <- drive_link(drive_ls(path=as_id(id)))

read_ficha <- function(ss) {
  df <- googlesheets4::read_sheet(ss, sheet=1,range= "A2:AA3",
                                  col_names = TRUE,col_types="c")
  df}

read_ficha.pay <- function(ss) {
  df <- googlesheets4::read_sheet(ss, sheet="Presupuesto y recibo de pago",
                                  range= "B11", 
                                  col_names="Pago",
                                  col_types="n")
  df}

read_ficha.code <- function(ss) {
  df <- googledrive::drive_get(ss)[1]
  df}

df_merged <- purrr::map_dfr(.x= list_fichas,
                            .f=read_ficha)

df_merged.pay <- purrr::map_dfr(.x= list_fichas, 
                                .f= read_ficha.pay)

df_merged.codes <- purrr::map_dfr(.x= list_fichas, 
                                  .f= read_ficha.code)