Implement navigation between pages (f7Router) about shinymobile HOT 2 CLOSED

#' Multi views layout
#'
#' @param ... Slot for \link{f7View}.
#' @export
f7ViewLayout <- function(...) {

  items <- list(...)
  tabbarItems <- lapply(seq_along(items), function(i) {
    temp <- items[[i]][[1]]
    icon <- items[[i]][[2]]
    isActive <- length(grep(x = temp$attribs$class, pattern = "tab-active")) == 1
    shiny::a(
      href = paste0("#", temp$attribs$`data-name`),
      class = if (isActive) "tab-link tab-link-active" else "tab-link",
      icon
    )
  })

  viewTabbar <- shiny::tags$div(
    class = "toolbar tabbar toolbar-bottom",
    shiny::tags$div(
      class = "toolbar-inner",
      tabbarItems
    )
  )

  shiny::tagList(
    f7InputsDeps(),
    shiny::tags$div(
      class = "views tabs",
      # the menu must come first!
      lapply(seq_along(items), function(i) items[[i]][[1]])
    )
  )
}



#' Create an f7View
#'
#' A child of \link{f7ViewLayout}
#'
#' @param ... View content.
#' @param id View unique id
#' @param name View name: ie "view-main". If you specify "view-main", it will be
#' the main view.
#' @param main Whether it is the main view.
#' @param active Whether to start on that view. Only 1 view may be active at a time.
#' @param icon Icon.
#' @export
f7View <- function(..., id, name, main = FALSE, active = FALSE, icon = NULL) {

  viewCl <- paste("view tab")
  if (main) viewCl <- paste(viewCl, "view-main")
  if (active) viewCl <- paste(viewCl, "tab-active")

  list(
    shiny::tags$div(
      id = id,
      `data-name` = name,
      class = viewCl,
      ...
    ),
    icon
  )
}