tiny update: f7Toggle example

R/f7-inputs.R

@@ -2320,38 +2320,6 @@ updateF7Stepper <- function(inputId, min = NULL, max = NULL,
 #' "teal, "lime", "deeporange", "gray", "white", "black".
 #'
 #' @rdname toggle
-#' @examples
-#' # f7Toggle
-#' if (interactive()) {
-#'   library(shiny)
-#'   library(shinyMobile)
-#'
-#'   shinyApp(
-#'     ui = f7Page(
-#'       title = "My app",
-#'       f7SingleLayout(
-#'         navbar = f7Navbar(title = "f7Toggle"),
-#'         f7Toggle(
-#'           inputId = "toggle",
-#'           label = "My toggle",
-#'           color = "pink",
-#'           checked = TRUE
-#'         ),
-#'         verbatimTextOutput("test"),
-#'         f7Toggle(
-#'           inputId = "toggle2",
-#'           label = "My toggle 2"
-#'         ),
-#'         verbatimTextOutput("test2")
-#'       )
-#'     ),
-#'     server = function(input, output) {
-#'       output$test <- renderPrint(input$toggle)
-#'       output$test2 <- renderPrint(input$toggle2)
-#'     }
-#'   )
-#' }
-#' #
 #' @export
 f7Toggle <- function(inputId, label, checked = FALSE, color = NULL) {
   toggleCl <- "toggle"
@@ -2378,12 +2346,6 @@ f7Toggle <- function(inputId, label, checked = FALSE, color = NULL) {
 #'
 #' \code{updateF7Toggle} changes the value of a toggle input on the client.
 #'
-#' @param inputId The id of the input object.
-#' @param checked Whether the toggle is TRUE or FALSE.
-#' @param color
-#' Toggle color: NULL or "primary", "red", "green", "blue",
-#' "pink", "yellow", "orange", "purple", "deeppurple", "lightblue",
-#' "teal, "lime", "deeporange", "gray", "white", "black".
 #' @param session The Shiny session object.
 #'
 #' @export
@@ -2420,7 +2382,7 @@ f7Toggle <- function(inputId, label, checked = FALSE, color = NULL) {
 #'       observeEvent(input$update, {
 #'         updateF7Toggle(
 #'           inputId = "toggle",
-#'           checked = TRUE,
+#'           checked = !input$toggle,
 #'           color = "green"
 #'         )
 #'       })

R/f7Skeleton.R

@@ -16,53 +16,49 @@
 #'
 #' @examples
 #' if (interactive()) {
-#'  library(shiny)
-#'  library(shinyMobile)
+#'   library(shiny)
+#'   library(shinyMobile)
 #'
-#'  shinyApp(
-#'    ui = f7Page(
-#'      title = "Skeletons",
-#'      f7SingleLayout(
-#'        navbar = f7Navbar(title = "f7Skeleton"),
-#'        f7Card(
-#'          title = "Card header",
-#'          "This is a simple card with plain text,
+#'   shinyApp(
+#'     ui = f7Page(
+#'       title = "Skeletons",
+#'       f7SingleLayout(
+#'         navbar = f7Navbar(title = "f7Skeleton"),
+#'         f7Card(
+#'           title = "Card header",
+#'           "This is a simple card with plain text,
 #'       but cards can also contain their own header,
 #'       footer, list view, image, or any other element.",
-#'          footer = tagList(
-#'            f7Button(color = "blue", label = "My button", href = "https://www.google.com"),
-#'            f7Badge("Badge", color = "green")
-#'          )
-#'        ),
-#'
+#'         ),
 #'         f7List(
-#'          f7ListItem(
-#'            href = "https://www.google.com",
-#'            title = "Item 1"
-#'          ),
-#'          f7ListItem(
-#'            href = "https://www.google.com",
-#'            title = "Item 2"
-#'          )
+#'           f7ListItem(
+#'             href = "https://www.google.com",
+#'             title = "Item 1"
+#'           ),
+#'           f7ListItem(
+#'             href = "https://www.google.com",
+#'             title = "Item 2"
+#'           )
 #'         )
-#'      )
-#'    ),
-#'    server = function(input, output, session) {
-#'      observeEvent(TRUE, {
-#'        f7Skeleton(".card", "fade", 2)
-#'      }, once = TRUE)
-#'    }
-#'  )
+#'       )
+#'     ),
+#'     server = function(input, output, session) {
+#'       observeEvent(TRUE,
+#'         {
+#'           f7Skeleton(".card", "fade", 2)
+#'         },
+#'         once = TRUE
+#'       )
+#'     }
+#'   )
 #' }
 f7Skeleton <- function(
     target = ".card",
     effect = c("fade", "blink", "pulse"),
     duration = NULL,
-    session = shiny::getDefaultReactiveDomain()
-) {
-
+    session = shiny::getDefaultReactiveDomain()) {
   effect <- match.arg(effect)
-  message <-dropNulls(
+  message <- dropNulls(
     list(
       target = target,
       effect = effect,