From b87eb24c4ceabbce52e7b84ca8d900848d5e8d2a Mon Sep 17 00:00:00 2001
From: GuillaumePressiat <guillaume.pressiat@gmail.com>
Date: Mon, 13 May 2024 18:56:35 +0200
Subject: [PATCH] =?UTF-8?q?Retour=20arri=C3=A8re,=20pb=20si=20libPaths=20r?=
 =?UTF-8?q?envoie=20plusieurs=20=C3=A9l=C3=A9ments.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/main.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/main.R b/R/main.R
index e4713ff..f3a43d9 100755
--- a/R/main.R
+++ b/R/main.R
@@ -13,7 +13,7 @@
 #' @import magrittr jsonlite tibble
 #' @export
 # }
-get_table <- function(table, version = '', def_url = file.path(.libPaths()[1], "nomensland")){
+get_table <- function(table, version = '', def_url = path.package("nomensland")){
   v <- function(one){
     if (FALSE || one == ''){
       u <-   tibble::as_tibble(def_url %>%
@@ -43,7 +43,7 @@ get_table <- function(table, version = '', def_url = file.path(.libPaths()[1], "
 #' @author G. Pressiat
 #' @import magrittr jsonlite
 #' @export
-get_liste <- function(nom_liste, def_url = file.path(.libPaths()[1], "nomensland")){
+get_liste <- function(nom_liste, def_url = path.package("nomensland")){
   def_url %>%
     paste0('/listes/',  nom_liste, '.json') %>%
     jsonlite::fromJSON(simplifyVector = TRUE)
@@ -61,7 +61,7 @@ get_liste <- function(nom_liste, def_url = file.path(.libPaths()[1], "nomensland
 #' @import magrittr jsonlite
 #' @importFrom dplyr filter
 #' @export
-get_all_listes <- function(theme, def_url = file.path(.libPaths()[1], "nomensland")){
+get_all_listes <- function(theme, def_url = path.package("nomensland")){
   get_dictionnaire_listes() %>%
     dplyr::filter(thematique == theme) %>% .$nom_abrege -> l
   lapply(l, get_liste)
@@ -79,7 +79,7 @@ get_all_listes <- function(theme, def_url = file.path(.libPaths()[1], "nomenslan
 #' @importFrom magrittr "%>%"
 #' @import jsonlite
 #' @export
-get_dictionnaire_listes <- function(def_url = file.path(.libPaths()[1], "nomensland")){
+get_dictionnaire_listes <- function(def_url = path.package("nomensland")){
   def_url %>%
     paste0('/dictionnaire.json') %>%
     jsonlite::read_json(simplifyVector = TRUE) %>% 
@@ -97,7 +97,7 @@ get_dictionnaire_listes <- function(def_url = file.path(.libPaths()[1], "nomensl
 #' @author G. Pressiat
 #' @import jsonlite dplyr
 #' @export
-get_dictionnaire_tables <- function(def_url = file.path(.libPaths()[1], "nomensland")){
+get_dictionnaire_tables <- function(def_url = path.package("nomensland")){
   def_url %>%
     paste0('/tables/dictionnaire_tables.json.gz') %>%
     jsonlite::read_json(simplifyVector = TRUE) %>%