#145 Ajout des liens vers les fonctions Shiny correspondantes.

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",

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

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)

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()) {