read.genm <- function(ss) {
  df <- read_sheet(ss,
                   sheet=1,range= "M2:S1550",
                   col_names = TRUE, 
                   col_types = "c")
  df}

#only Gt Depto (D2:AT769)
read.js <- function(ss) {
  df2 <- read_sheet(ss,
                   sheet=2,range= "D2:AT769",
                   col_names = TRUE, 
                   col_types = "c")
  df2}