From 499814dca1fd48531901e536c1ac9a5a635cce2f Mon Sep 17 00:00:00 2001
From: "ronan.vignard" <ronan.vignard@developpement-durable.gouv.fr>
Date: Fri, 21 Mar 2025 10:09:54 +0100
Subject: [PATCH] =?UTF-8?q?Mise=20=C3=A0=20jour=20des=20librairies=20et=20?=
=?UTF-8?q?ajout=20du=20nom=20du=20package=20dplyr=20en=20pr=C3=A9fixe=20l?=
=?UTF-8?q?=C3=A0=20o=C3=B9=20n=C3=A9cessaire?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
dev/flat_list_existing_tables.Rmd | 12 ++++++------
vignettes/liste-des-tables-existantes.Rmd | 9 ++++-----
2 files changed, 10 insertions(+), 11 deletions(-)
diff --git a/dev/flat_list_existing_tables.Rmd b/dev/flat_list_existing_tables.Rmd
index 0ede240..6240d1d 100644
--- a/dev/flat_list_existing_tables.Rmd
+++ b/dev/flat_list_existing_tables.Rmd
@@ -6,7 +6,8 @@ editor_options:
---
```{r development, include=FALSE}
-library(testthat)
+library(datalibaba)
+library(dplyr)
```
```{r development-load}
@@ -36,11 +37,11 @@ schemas_list <- data.frame(datalibaba::list_schemas(connexion))
# Renommer la variable unique en "nom_schema"
schemas_list <- schemas_list |>
- rename(nom_schema = names(schemas_list)[1])
+ dplyr::rename(nom_schema = names(schemas_list)[1])
# Trier le dataframe par la variable nom_schema
schemas_list <- schemas_list |>
- arrange(nom_schema)
+ dplyr::arrange(nom_schema)
```
## Liste des tables du schéma `nitrates`
@@ -54,12 +55,11 @@ tables_list <- data.frame(datalibaba::list_tables(
# Renommer la variable unique en "nom_table"
tables_list <- tables_list |>
- rename(nom_table = names(tables_list)[1])
+ dplyr::rename(nom_table = names(tables_list)[1])
# Trier le dataframe par la variable nom_table
tables_list <- tables_list |>
- arrange(nom_table)
-
+ dplyr::arrange(nom_table)
```
```{r development-skeleton-dir, eval=FALSE}
diff --git a/vignettes/liste-des-tables-existantes.Rmd b/vignettes/liste-des-tables-existantes.Rmd
index d68f756..7e2af62 100644
--- a/vignettes/liste-des-tables-existantes.Rmd
+++ b/vignettes/liste-des-tables-existantes.Rmd
@@ -48,11 +48,11 @@ schemas_list <- data.frame(datalibaba::list_schemas(connexion))
# Renommer la variable unique en "nom_schema"
schemas_list <- schemas_list |>
- rename(nom_schema = names(schemas_list)[1])
+ dplyr::rename(nom_schema = names(schemas_list)[1])
# Trier le dataframe par la variable nom_schema
schemas_list <- schemas_list |>
- arrange(nom_schema)
+ dplyr::arrange(nom_schema)
```
@@ -68,12 +68,11 @@ tables_list <- data.frame(datalibaba::list_tables(
# Renommer la variable unique en "nom_table"
tables_list <- tables_list |>
- rename(nom_table = names(tables_list)[1])
+ dplyr::rename(nom_table = names(tables_list)[1])
# Trier le dataframe par la variable nom_table
tables_list <- tables_list |>
- arrange(nom_table)
-
+ dplyr::arrange(nom_table)
```
--
GitLab