Ajout URL page insee.fr (#76)

* Ajout URL page insee.fr
* Ajout exemple dans consulter()
* param `silencieux` pour `infoDonnees`
* améliore consulter (url_only)
* améliore `donnees_dispo`

Co-authored-by: Pierre-Yves Berrard <[email protected]>

Author: ddotta

R/consulter.R

@@ -2,18 +2,21 @@
 #'
 #' @inheritParams telechargerFichier
 #' @param donnees le nom des données dont on veut consulter la page sur le site de l'Insee. La description complète des données associées à ce nom figure dans la table ([liste_donnees]).
+#' @param url_only `TRUE` pour seulement récupérer l'URL de la page sans ouvrir le navigateur.
 #'
-#' @return La fonction ouvre le lien dans le navigateur. Elle retourne accessoirement le lien vers la page web, de manière invisible.
+#' @return Par défaut, la fonction ouvre le lien dans le navigateur. Elle retourne accessoirement le lien vers la page web, de manière invisible.
 #'
 #' @export
 #'
 #' @examples
 #' consulter(donnees = "BPE_ENS")
 #' consulter("RP_LOGEMENT", date = "2016")
+#' # Pour seulement obtenir l'URL de la page
+#' consulter("RP_LOGEMENT", date = "2016", url_only = TRUE)
 
-consulter <- function(donnees, date = NULL) {
+consulter <- function(donnees, date = NULL, url_only = FALSE) {
 
-  caract <- infosDonnees(donnees, date)
+  caract <- infosDonnees(donnees, date, silencieux = url_only)
 
   # construit l'url web à partir de l'url du fichier
   url <- sub("fichier/([0-9]+)/.+$", "\\1", caract$lien)
@@ -22,10 +25,12 @@ consulter <- function(donnees, date = NULL) {
   if (caract$collection == "GEOGRAPHIE" || substr(caract$nom, 1, 8) == "DECES_20") {
     url <- sub("/statistiques/", "/information/", url)
   }
-  
+
+  if (url_only) return(url)
+
   # ouvre dans navigateur
   utils::browseURL(url)
-  
+
   invisible(url)
 
 }

R/donnees_dispo.R

@@ -35,9 +35,28 @@ donnees_dispo <- function(recherche_init = NULL,
   if (is.null(recherche_init)) recherche_init <- ""
 
   # 1 - construit table à afficher
-  affich <- listToDf(liste = ld, vars = c("collection", "libelle", "nom", "date_ref", "size"))
+  affich <-
+    listToDf(
+      liste = ld,
+      vars = c("collection", "libelle", "nom", "date_ref", "size")
+    )
   affich$size <- round(as.numeric(affich$size) / 1048576, 1) # conversion Mo
-  affich <- affich[order(affich$collection, -rank(affich$date_ref), affich$nom), ]
+  # 1.1 - ajout url page
+  annee_ref <- substr(affich$date_ref, 1, 4)
+  affich$page <-
+    mapply(
+      function(nom, annee) consulter(nom, annee, url_only = TRUE),
+      affich$nom,
+      ifelse(is.na(annee_ref), "dernier", annee_ref)
+    )
+  affich$page <-
+    sprintf(
+      "<a target='_blank' rel='noopener noreferrer' href='%s'>Documentation</a>",
+      affich$page
+  )
+  affich$page[affich$collection == "SIRENE"] <- NA
+  # 1.2 - tri
+  affich <- affich[with(affich, order(collection, -rank(date_ref), nom)), ]
 
   # 2 - paramètres additionnels pour DT::datatable
   params <- list(...)
@@ -46,11 +65,14 @@ donnees_dispo <- function(recherche_init = NULL,
   if (any(names(params) == "data"))     warning("`data` pas modifiable")
   if (any(names(params) == "rownames")) warning("`rownames` pas modifiable")
   if (any(names(params) == "colnames")) warning("`colnames` pas modifiable")
+  if (any(names(params) == "escape"))   warning("`escape` pas modifiable")
   params$data     <- affich
   params$rownames <- FALSE
   params$colnames <- c("Collection", "Description", "Nom court",
-                       "Date de r\u00e9f\u00e9rence", "Taille (Mo)")
+                       "Date de r\u00e9f\u00e9rence", "Taille (Mo)",
+                       "Documentation sur insee.fr")
   params$extensions <- c("Buttons")
+  params$escape <- FALSE
 
   # 2.2 - paramètres modifiables,
   #       mais avec valeurs défaut différentes de celles de DT::data.table

R/utile.R

@@ -12,12 +12,13 @@
 #' l'année doit être spécifiée.
 #'
 #' @inheritParams telechargerFichier
+#' @param silencieux mettre à `TRUE` pour ne pas afficher les messages.
 #'
 #' @return Une unique ligne de `liste_donnees` (sous forme de list).
 #' 
 #' @keywords internal
 
-infosDonnees <- function(donnees, date = NULL) {
+infosDonnees <- function(donnees, date = NULL, silencieux = FALSE) {
 
   donnees <- toupper(donnees) # pour rendre insensible à la casse
   liste_nom <- vapply(ld, `[[`, "nom", FUN.VALUE = character(1))
@@ -45,10 +46,12 @@ infosDonnees <- function(donnees, date = NULL) {
 
   if (!is.null(date) && tolower(date) == "dernier") {
     date <- sort(possible, decreasing = TRUE)[1]
-    message(
-      "S\u00e9lection automatique des donn\u00e9es les plus r\u00e9centes ",
-      "(date = ", date, ")."
-    )
+    if (!silencieux) {
+      message(
+        "S\u00e9lection automatique des donn\u00e9es les plus r\u00e9centes ",
+        "(date = ", date, ")."
+      )
+    }
   }
 
   select <- 1