inst/virtual_patient_simulator/miniUI2/navbar.R

In DivadNojnarg/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",
  leftPanel = TRUE,
  rightPanel = TRUE,
  subNavbar = NULL
)