diff --git a/dev/flat_list_existing_tables.Rmd b/dev/flat_list_existing_tables.Rmd index 0ede240e4ed4ed16d01db8ecc11676b0eaeb0356..6240d1d8ed4a6b0a378a2c5398a2f90960016482 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 d68f7560a0280260c6fa3db9f3c2d204f5b99dff..7e2af62c1b1b397b97f65771cd215854eb1c275d 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) ```