From 12a4b77246252fc6011c5da4312aa8f7e3a9628d Mon Sep 17 00:00:00 2001 From: Juliette Engelaere-Lefebvre <juliette.engelaere@developpement-durable.gouv.fr> Date: Mon, 3 Mar 2025 13:46:56 +0100 Subject: [PATCH] =?UTF-8?q?Apurement=20des=202=20notes=20dans=20le=20r?= =?UTF-8?q?=C3=A9sultats=20des=20checks?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/get_data.R | 6 +++--- R/list_tables.R | 2 +- R/post_data.R | 2 +- man/importer_data.Rd | 2 +- man/poster_data.Rd | 2 +- 5 files changed, 7 insertions(+), 7 deletions(-) diff --git a/R/get_data.R b/R/get_data.R index d24924a..90a6b98 100644 --- a/R/get_data.R +++ b/R/get_data.R @@ -23,7 +23,7 @@ #' \dontrun{ #' importer_data(table = "test_iris", schema = "public", db = "public", user = "does") #' } -#' @source {rpostgis} http://mablab.org/rpostgis/ +#' @source \\{rpostgis}\\ http://mablab.org/rpostgis/ importer_data <- function(table = NULL, schema = NULL, db = "public", server = NULL, user = "does", limit = 0, ...) { @@ -91,8 +91,8 @@ importer_data <- function(table = NULL, schema = NULL, db = "public", server = if ("id_row__" %in% champs$column_name) { - data <- data %>% dplyr::arrange(id_row__) %>% - dplyr::select(-id_row__) + data <- data %>% dplyr::arrange(.data$id_row__) %>% + dplyr::select(-"id_row__") } } diff --git a/R/list_tables.R b/R/list_tables.R index 33559df..738149f 100644 --- a/R/list_tables.R +++ b/R/list_tables.R @@ -40,7 +40,7 @@ list_tables <- function(con = NULL, schema = NULL, db = NULL, user = NULL, ...) if(con_a_creer_fermer) { DBI::dbDisconnect(connexion) } - res<- all_tables %>% arrange(table_name) + res <- all_tables %>% arrange(.data$table_name) res <- res$table_name return(res) diff --git a/R/post_data.R b/R/post_data.R index fd10ece..896f775 100644 --- a/R/post_data.R +++ b/R/post_data.R @@ -29,7 +29,7 @@ #' poster_data(data = iris, table = "test_iris", schema = "public", db = "public", #' pk = NULL, post_row_name = FALSE, overwrite = TRUE, user = "does") #' } -#' @source {rpostgis} http://mablab.org/rpostgis/ +#' @source \\{rpostgis}\\ http://mablab.org/rpostgis/ poster_data <- function(data = NULL, table = NULL, diff --git a/man/importer_data.Rd b/man/importer_data.Rd index 323a650..78132ab 100644 --- a/man/importer_data.Rd +++ b/man/importer_data.Rd @@ -4,7 +4,7 @@ \alias{importer_data} \title{Import d'une table a partir du serveur de donnees, fonction qui s'adapte aux types de table a charger : recuperation des modalites des facteurs si chargee avec {rpostgis}, sf dataframe si table geographique.} \source{ -{rpostgis} http://mablab.org/rpostgis/ +\\{rpostgis}\\ http://mablab.org/rpostgis/ } \usage{ importer_data( diff --git a/man/poster_data.Rd b/man/poster_data.Rd index e2aa254..d0071ff 100644 --- a/man/poster_data.Rd +++ b/man/poster_data.Rd @@ -4,7 +4,7 @@ \alias{poster_data} \title{Chargement d'un dataset sur le serveur avec rpostgis. Par rapport aux autres fonctions \code{post_data()}, \code{post_data_pg()} ouvre et ferme la connexion au SGBD, gere les dataframes spatiaux et les facteurs, et poste quelques metadonnees en commentaire de la table.} \source{ -{rpostgis} http://mablab.org/rpostgis/ +\\{rpostgis}\\ http://mablab.org/rpostgis/ } \usage{ poster_data( -- GitLab