From cd279954277b5f634b62855b77ccd847008b9c0b Mon Sep 17 00:00:00 2001
From: "lisa.smah" <lisa.smah@developpement-durable.gouv.fr>
Date: Mon, 6 Nov 2023 15:50:10 +0100
Subject: [PATCH] #145 Ajout des liens vers les fonctions Shiny
 correspondantes.

---
 R/modaldialog_dsfr.R       | 4 ++--
 R/radiogroupbuttons_dsfr.R | 2 +-
 R/tabpanel.R               | 4 +---
 R/withspinner_dsfr.R       | 4 +---
 4 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/R/modaldialog_dsfr.R b/R/modaldialog_dsfr.R
index 1e5ec7a3..df767eae 100644
--- a/R/modaldialog_dsfr.R
+++ b/R/modaldialog_dsfr.R
@@ -63,7 +63,7 @@ modalDialog_dsfr <- function(
 #' @param ui TODO
 #' @param inputId TODO
 #' @param session TODO
-#'
+#' @seealso [showmodal() in Shiny](https://shiny.posit.co/r/reference/shiny/latest/showmodal)
 #' @export
 showModal_dsfr <- function(
   ui,
@@ -84,7 +84,7 @@ showModal_dsfr <- function(
 #'
 #' @param inputId TODO
 #' @param session TODO
-#'
+#' @seealso [removemodal() in Shiny](https://shiny.posit.co/r/reference/shiny/latest/showmodal)
 #' @export
 removeModal_dsfr <- function(
   inputId = "fr-modal-1",
diff --git a/R/radiogroupbuttons_dsfr.R b/R/radiogroupbuttons_dsfr.R
index 01e1f33b..d15029cd 100644
--- a/R/radiogroupbuttons_dsfr.R
+++ b/R/radiogroupbuttons_dsfr.R
@@ -8,7 +8,7 @@
 #' @param selected Element sélectionné (NULL par défaut)
 #' @param inline Si TRUE, positionne les choix en ligne (c'est-à-dire horizontalement).
 #' @return html
-#'
+#' @seealso [radioGroupButtons() in Shiny](https://rdrr.io/cran/shinyWidgets/man/radioGroupButtons.html)
 #' @export
 #'
 #' @examples
diff --git a/R/tabpanel.R b/R/tabpanel.R
index ddf15072..ff983ec6 100644
--- a/R/tabpanel.R
+++ b/R/tabpanel.R
@@ -6,12 +6,10 @@
 #' @param ... liste de tabPanel_dsfr
 #' @param title titre du tabset
 #' @param content contenu du tabset
-#'
+#' @seealso [tabsetpanel() in Shiny](https://shiny.posit.co/r/reference/shiny/latest/tabsetpanel)
 #' @return html
-#' @seealso [tabpanel() in Shiny](https://shiny.posit.co/r/reference/shiny/latest/tabpanel)
 #' @export
 #' @rdname tabPanel
-#'
 #' @examples
 #' if (interactive()){
 #'   library(shiny)
diff --git a/R/withspinner_dsfr.R b/R/withspinner_dsfr.R
index b715f366..6c040a55 100644
--- a/R/withspinner_dsfr.R
+++ b/R/withspinner_dsfr.R
@@ -4,7 +4,6 @@
 #' @importFrom htmltools HTML
 #' @return an html code
 #' @examples addWithSpinner()
-#'
 #' @noRd
 addWithSpinner <- function() {
   HTML('<div class="lds-ring" id = "lds-ring" style="display:none"><div></div><div></div><div></div><div></div></div>')
@@ -16,7 +15,6 @@ addWithSpinner <- function() {
 #' @param inputId id du spinner
 #' @param session session
 #' @return side effect. Masque le spinner
-#'
 #' @noRd
 hideSpinner_dsfr <- function(
   inputId,
@@ -31,7 +29,6 @@ hideSpinner_dsfr <- function(
 #' @param inputId id du spinner
 #' @param session session
 #' @return side effect. Affiche le spinner
-#'
 #' @noRd
 showSpinner_dsfr <- function(
   inputId,
@@ -48,6 +45,7 @@ showSpinner_dsfr <- function(
 #' @param session session shiny
 #'
 #' @return html
+#' @seealso [withSpinner() in Shinycssloaders](https://www.rdocumentation.org/packages/shinycssloaders/versions/1.0.0/topics/withSpinner)
 #' @export
 #' @examples
 #' if (interactive()) {