inst/virtual_patient_simulator/bs4/dashboardControlbar.R

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

controlbar <- bs4DashControlbar(

  skin = "light",
  width = 250,
  collapsed = FALSE,
  id = "controlbar",

  h4("Global options", align = "center"), br(),

  controlbarMenu(
    id = "controlbarMenu",
    type = "pills",
    controlbarItem(
      title = "Network",
      prettyCheckboxGroup(
        inputId = "background_choice",
        label = "Network background",
        choices = c("human"),
        thick = TRUE,
        animation = "pulse",
        selected = "human",
        inline = TRUE
      ),
      prettyCheckboxGroup(
        inputId = "network_Ca_choice",
        label = "Select a network",
        choices = c(
          "Ca" = "Ca",
          "Pi" = "PO4",
          "PTH" = "PTH",
          "D3" = "D3",
          "FGF23" = "FGF23"
        ),
        thick = TRUE,
        animation = "pulse",
        selected = "rat",
        inline = TRUE
      ),
      prettySwitch(
        inputId = "network_hormonal_choice",
        label = "Display hormones",
        value = TRUE,
        slim = TRUE,
        bigger = TRUE
      ),
      prettySwitch(
        inputId = "network_organ_choice",
        label = "Display organs",
        value = TRUE,
        slim = TRUE,
        bigger = TRUE
      ),
      hr(),
      fluidRow(
        column(
          width = 6,
          uiOutput(outputId = "size_nodes_organs")
        ),
        column(
          width = 6,
          uiOutput(outputId = "size_nodes_hormones")
        )
      ),
      fluidRow(
        column(
          width = 6,
          uiOutput(outputId = "width_arrows_organs")
        ),
        column(
          width = 6,
          uiOutput(outputId = "width_arrows_hormones")
        )
      )
    ),
    controlbarItem(
      title = "Solver",
      numericInput(
        inputId = "tmax",
        label = "Maximum simulated time",
        value = 500,
        min = 0
      ),
      sliderInput(
        inputId = "t_now",
        label = "Time after simulation",
        min = 1,
        max = 500,
        value = 500
      ) %>%
        shinyInput_label_embed(
          icon("undo") %>%
            actionBttn(
              inputId = "reset_t_now",
              label = "",
              color = "danger",
              size = "xs"
            )
        )
    )
  )
)