remove deprecated args and add f7Toolbar test

RinteRface · Mar 20, 2024 · 8971140 · 8971140
1 parent be9d17d
commit 8971140
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/R/f7-tabs.R b/R/f7-tabs.R
@@ -260,8 +260,6 @@ f7Tabs <- function(..., .items = NULL, id = NULL, swipeable = FALSE, animated =
   } else if (style == "toolbar") {
     f7Toolbar(
       position = "bottom",
-      hairline = TRUE,
-      shadow = TRUE,
       icons = TRUE,
       scrollable = FALSE,
       tabItems,

diff --git a/R/f7Panel.R b/R/f7Panel.R
@@ -39,8 +39,6 @@
 #'        toolbar = f7Toolbar(
 #'          position = "bottom",
 #'          icons = TRUE,
-#'          hairline = FALSE,
-#'          shadow = FALSE,
 #'          f7Link(label = "Link 1", href = "https://www.google.com"),
 #'          f7Link(label = "Link 2", href = "https://www.google.com")
 #'        ),

diff --git a/tests/testthat/test-f7Toolbar.R b/tests/testthat/test-f7Toolbar.R
@@ -0,0 +1,5 @@
+test_that("toolbar works", {
+  expect_s3_class(f7Toolbar(position = "top"), "shiny.tag")
+  expect_identical(f7Toolbar(position = "top")$attribs$class, "toolbar toolbar-top")
+  expect_identical(f7Toolbar(icons = TRUE, position = "top")$attribs$class, "toolbar tabbar tabbar-icons toolbar-top")
+})