Skip to content
Snippets Groups Projects
Commit ff07b279 authored by ronan.vignard's avatar ronan.vignard
Browse files

Modification du fichier d'exemple + ajout de format_colnames()

parent c2914472
Branches
No related tags found
8 merge requests!67Passage en version 0.1.6,!66Intégration de la fonction download_files_from_list(),!65Correction d'un bug + création des tests pour fix_encoding_variable(),!64Création des tests pour insert_into_table(),!63Ajout des tests pour import_and_merge_tables() + adaptation de create_dummy(),!62Tests pour check_structure_table() + évolution de create_dummy(),!61Ajout des tests pour import_xlsx() + correctif pour format_colnames() + divers,!60Ajout des tests pour import_xlsx() + correctif pour format_colnames()
#' Importe un fichier XLSX dans un dataframe
#'
#' @description Cette fonction importe un fichier au format XLSX dans un
#' @description Cette fonction importe un fichier au format XLSX dans un
#' dataframe en supprimant les caractères spéciaux des noms de colonnes.
#'
#' @return Un dataframe correspondant au contenu du fichier.
......@@ -9,14 +9,13 @@
#' @param sheet Numéro de l'onglet à importer.
#' @param row Numéro de la ligne de début de lecture.
#' @importFrom readxl read_xlsx
#'
#'
#' @export
#' @examples
#' # Utilisation de la fonction import_xlsx()
#' data_ars_2022 <- import_xlsx(
#' filepath = "C:\\TEMP\\Nitrates_2022.xlsx",
#' sheet = 1,
#' row = 1)
#' plans_eau_usage <- import_xlsx(system.file("plans_eau_usage.xlsx",
#' package = "collectr"),
#' sheet = 1, row = 0)
#'
import_xlsx <- function(filepath, sheet, row) {
......@@ -30,8 +29,8 @@ import_xlsx <- function(filepath, sheet, row) {
# Déclarer la première ligne comme nom de variable
col_names = TRUE
)
colnames(data) <- collectr::remove_special_chars(colnames(data))
colnames(data) <- collectr::format_colnames(colnames(data))
return(data)
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment