snippet header_script
##################################################
## Proyecto:
## Proposito del codigo:
## Fecha:
## Autor:
## Email: Lnavarro@colson.edu.mx
## Palabras clave:
##################################################
## Directorio de trabajo:
## getwd()
##################################################
## options(scipen = 6, digits = 4) # Evito la notación científica
##################################################
## Cargo estos paquetes:
## library( )
## En caso de cargar funciones externas
## source("functions/summarise_data.R") 
##################################################

snippet header_section
`r paste("## Secci\u{F3}n\n","## Fecha:", date(), "\n",
"##################################################")`

snippet ts
 "#" ${0} `r paste(date(), "------------------------------\n")`

snippet aa
    ${1:dataset} <- ${1:dataset} %>% ${0}

snippet my_readCsv
		${1: mydataframe}<- read.csv(${2: mycvsfile}, 
		header=T, 
		na.strings= c('NA', " ", "", "NO TIENE", -99), 
		quote="\"", 
		dec=".",
		stringsAsFactors = FALSE)