inst/virtual_patient_simulator/miniUI2/navbar.R

In CaPO4Sim: A Virtual Patient Simulator in the Context of Calcium and Phosphate Homeostasis

fullScreenUI <- function() {
  tagAppendAttributes(
    f7Button(
      inputId = "fullscreen",
      label = icon("expand"),
      color = "blue",
      size = "large"
    ),
    onclick = "shinyjs.toggleFullScreen();"
  )
}


navbar <- f7Navbar(
  title = "Virtual Patient Simulator",
  hairline = TRUE,
  shadow = TRUE,
  left_panel = TRUE,
  right_panel = TRUE,
  subNavbar = NULL
)