Merge pull request #148 from robertkck/patch-1

Allow hyperlink in User block
RinteRface · Jan 11, 2022 · 12fab3b · 12fab3b
2 parents e630d14 + f2061a2
commit 12fab3b
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/boxes.R b/R/boxes.R
@@ -1044,17 +1044,18 @@ socialBox <- function(..., title = NULL, footer = NULL, width = 6, height = NULL
 #' @param image User image.
 #' @param title A title, user name,...
 #' @param subtitle Any subtitle.
+#' @param href Target url or page.
 #'
 #' @rdname socialBox
 #'
 #' @export
-userBlock <- function(image, title, subtitle = NULL) {
+userBlock <- function(image, title, subtitle = NULL, href = "javascript:void(0)") {
   shiny::tags$div(
     class = "user-block",
     shiny::img(class = "img-circle", src = image),
     shiny::tags$span(
       class = "username",
-      shiny::a(href = "javascript:void(0)", title)
+      shiny::a(href, title)
     ),
     if (!is.null(subtitle)) shiny::tags$span(class = "description", subtitle)
   )