inst/shiny-examples/shiny-bsem/ui.R

In bsem: Bayesian Structural Equation Models

library(magrittr)
library(visNetwork)
source("helpers.R")

fluidPage(
  theme = shinythemes::shinytheme("cosmo"),
  tags$head(
    tags$style(
      HTML(".shiny-notification {
             position:fixed;
             top: calc(15%);
             left: calc(85%);
             }
             ")
    )
  ),
  navbarPage(
    "shiny-bsem",
    id = "main",
    tabPanel(
      "Data",
      navlistPanel(
        "Setup",
        tabPanel(
          "Data loader",
          fileInput("datafile", "Choose CSV file",
                    accept=c('text/csv', 'text/comma-separated-values,text/plain')
          ),
          radioButtons("std",
            label = "Standardize?",
            choices = list("No" = 0, "Yes" = 1),
            selected = 0
          ),
          DT::DTOutput("table")
        ),
        "Descriptives",
        tabPanel(
          "Histogram",
          uiOutput("selectize1"),
          plotly::plotlyOutput("hist")
        ),
        tabPanel(
          "Density",
          uiOutput("selectize3"),
          plotOutput("dens")
        ),
        tabPanel(
          "Boxplot",
          uiOutput("selectize2"),
          plotly::plotlyOutput("boxp")
        ),
        tabPanel(
          "Missing",
          uiOutput("selectize4"),
          plotly::plotlyOutput("miss")
        ),
        tabPanel(
          a(img(src = "bsem.png", width = "70px"), href = "https://cran.r-project.org/web/packages/bsem/index.html")
        )
      )
    ),
    tabPanel(
      "Model",
      navlistPanel(
        "Setup model",
        tabPanel(
          "Factors (blocks)",
          numericInput(
            inputId = "K",
            "Choose the number of latent variables (factors)",
            value = 0,
            min = 0,
            max = 0,
            width = "70%"
          ),
          br(),
          verbatimTextOutput("text_blocks"),
          uiOutput("selectize_blocks")
        ),
        tabPanel(
          "Paths (paths)",
          numericInput(
            inputId = "J",
            "Choose the number of regressions between scores",
            value = 0,
            min = 0,
            max = 0,
            width = "70%"
          ),
          br(),
          verbatimTextOutput("text_paths"),
          conditionalPanel(
            "input.J > 0",
            div(
              style = "display:flex; padding: 14 px",
              uiOutput("selectize_paths"),
              uiOutput("selectize_idlamb")
            )
          )
        ),
        tabPanel(
          "Exogenous variables (exogenous)",
          numericInput(
            inputId = "L",
            "Choose the number of regressions between exogenous variables and scores",
            value = 0,
            min = 0,
            max = 0,
            width = "70%"
          ),
          br(),
          verbatimTextOutput("text_exogenous"),
          conditionalPanel(
            "input.L > 0",
            div(
              style = "display:flex; padding: 14 px",
              uiOutput("selectize_exogenous"),
              uiOutput("selectize_idex")
            )
          )
        ),
        tabPanel(
          "Run",
          shinyjs::useShinyjs(),
          withBusyIndicatorUI(
            actionButton(
              "run1",
              "Fit model",
              class = "btn-primary", icon("play"),
              style = "color: #fff; background-color: #009933;"
            )
          ),
          br(),
          div(
            downloadButton("downloadData", "Download posterior (mean) factor scores .csv"),
            downloadButton("downloadFit", "Download fit .rds")
          ),
          br(),
          br(),
          verbatimTextOutput("summary"),
        ),
        "Formulation",
        tabPanel(
          "Full model",
          includeMarkdown("www/model.md")
        ),
        tabPanel(
          a(img(src = "bsem.png", width = "70px"), href = "https://cran.r-project.org/web/packages/bsem/index.html")
        )
      )
    ),
    ## nav 3
    tabPanel(
      "Result",
      navlistPanel(
        "Outcome",
        tabPanel(
          "Posterior mean diagram",
          conditionalPanel(
            condition = "input.run1",
            visNetworkOutput("network") %>%  shinycssloaders::withSpinner(color = "#009933")
          )
        ),
        tabPanel(
          "Posterior mean heatmap",
          tabsetPanel(
            type = "tabs",
            tabPanel(
              "Loadings",
              plotly::plotlyOutput("loadings") %>%  shinycssloaders::withSpinner(color = "#009933")
            ),
            tabPanel(
              "Scores",
              plotly::plotlyOutput("scores") %>%  shinycssloaders::withSpinner(color = "#009933")
            )
          )
        ),
        tabPanel(
          "Traceplot",
          tabsetPanel(
            type = "tabs",
            tabPanel(
              "Loadings",
              uiOutput("selectize_trace_loadings"),
              plotly::plotlyOutput("trace_loadings") %>%  shinycssloaders::withSpinner(color = "#009933")
            ),
            tabPanel(
              "Scores",
              uiOutput("selectize_trace_scores"),
              plotly::plotlyOutput("trace_scores") %>%  shinycssloaders::withSpinner(color = "#009933")
            )
          )
        ),
        tabPanel(
          "Posterior density",
          tabsetPanel(
            type = "tabs",
            tabPanel(
              "Loadings",
              uiOutput("selectize_dens_loadings"),
              plotly::plotlyOutput("dens_loadings") %>%  shinycssloaders::withSpinner(color = "#009933")
            ),
            tabPanel(
              "Scores",
              uiOutput("selectize_dens_scores"),
              plotly::plotlyOutput("dens_scores") %>%  shinycssloaders::withSpinner(color = "#009933")
            )
          )
        ),
        tabPanel(
          "Biplot",
          div(
            style = "display:flex; padding: 14 px",
            uiOutput("selectize_biplot1"),
            uiOutput("selectize_biplot2")
          ), plotly::plotlyOutput("biplot") %>%  shinycssloaders::withSpinner(color = "#009933")
        ),
        tabPanel(
          "Radar plot",
          div(
            style = "display:flex; padding: 14 px",
            uiOutput("selectize_hex1"),
            uiOutput("selectize_hex2")
          ), plotly::plotlyOutput("hex") %>%  shinycssloaders::withSpinner(color = "#009933")
        ),
        tabPanel(
          a(img(src = "bsem.png", width = "70px"), href = "https://cran.r-project.org/web/packages/bsem/index.html")
        )
      )
    )
  )
)