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