#' Debut du travail
#'
#' Lit un csv, simplifie les titres des variables. Reorganise les non/oui. Le csv a ete cree par libreOffice avec les reglages by default.
#'
#' @param fich Fichier csv
#' @import utils
#' @import stats
#' @import janitor
#' @return data.frame
#'
#' @example debutph("data/mon_fichier.csv")
#'
#' @export
debutph <- function(fich){
df <- read.csv(fich, header = TRUE, na.strings = c("NA",""), dec = ",", as.is=FALSE) %>%
janitor::clean_names()
df <- as.tibble(df)
return(df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.