test link

RinteRface · Mar 15, 2024 · c4ad521 · c4ad521
1 parent cae108a
commit c4ad521
Show file tree

Hide file tree

Showing 3 changed files with 45 additions and 42 deletions.
diff --git a/R/f7Link.R b/R/f7Link.R
@@ -7,41 +7,40 @@
 #' @param icon Link icon, if any. Must pass \link{f7Icon}.
 #'
 #' @examples
-#' if(interactive()){
-#'  library(shiny)
-#'  library(shinyMobile)
+#' if (interactive()) {
+#'   library(shiny)
+#'   library(shinyMobile)
 #'
-#'  shinyApp(
-#'    ui = f7Page(
-#'     title = "Links",
-#'     f7SingleLayout(
-#'      navbar = f7Navbar(title = "f7Link"),
-#'      f7Link(label = "Google", href = "https://www.google.com"),
-#'      f7Link(href = "https://www.twitter.com", icon = f7Icon("bolt_fill"))
-#'     )
-#'    ),
-#'    server = function(input, output) {}
-#'  )
+#'   shinyApp(
+#'     ui = f7Page(
+#'       title = "Links",
+#'       f7SingleLayout(
+#'         navbar = f7Navbar(title = "f7Link"),
+#'         f7Link(label = "Google", href = "https://www.google.com"),
+#'         f7Link(href = "https://www.twitter.com", icon = f7Icon("bolt_fill"))
+#'       )
+#'     ),
+#'     server = function(input, output) {}
+#'   )
 #' }
 #'
 #' @author David Granjon, \email{dgranjon@@ymail.com}
 #'
 #' @export
 f7Link <- function(label = NULL, href, icon = NULL) {
-
   linkCl <- "link external"
 
- shiny::a(
-   href = href,
-   target = "_blank",
-   class = linkCl,
-   if (!is.null(icon)) {
-     shiny::tagList(
-       icon,
-       label
-     )
-   } else {
-     label
-   }
- )
+  shiny::a(
+    href = href,
+    target = "_blank",
+    class = linkCl,
+    if (!is.null(icon)) {
+      shiny::tagList(
+        icon,
+        label
+      )
+    } else {
+      label
+    }
+  )
 }
diff --git a/man/f7Link.Rd b/man/f7Link.Rd
diff --git a/tests/testthat/test-f7Link.R b/tests/testthat/test-f7Link.R
@@ -0,0 +1,4 @@
+test_that("link works", {
+  expect_s3_class(f7Link(href = "https://google.com"), "shiny.tag")
+  expect_identical(f7Link(href = "test")$attribs$class, "link external")
+})