inst/shiny-app/ui.R

In aleksandar-spasojevic/BayesXShinyApp:

library(shiny)
library(shinyBS)
library(shinythemes)
library(shinyFiles)
library(BayesXShinyApp)

shinyUI(fluidPage(
  theme = shinytheme("flatly"),
  
  # make nice title
  tags$head(
    tags$style(HTML("
      @import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
      
      h2 {
        font-family: 'Lobster', cursive;
        font-weight: 500;
        line-height: 1.1;
        color: #48ca3b;
      }

    "))
  ),
  
  # Application title
  titlePanel("BayesX"),
  
  sidebarLayout(
    sidebarPanel(
      shinyDirButton('Folder', 'Select Folder', 'Please select a folder', FALSE),
      shinyFilesButton('Program', 'Select Program', 'Please select a program', FALSE),
      selectInput("Model", "Model", ""),
      # Only show this panel if model chosen
      uiOutput("Slider"),
      downloadButton("GetRCode", "Get RCode")
    ),
    
    mainPanel(
      bsAlert("Dialog"),
      bsModal("SpecifyCovariates","Covariates",trigger = NULL,
              selectInput("CovaritesAsVarying", "Varying", NULL,
                          multiple = TRUE),
              uiOutput("CovariatesToFix"),
              footer = bsButton("SaveModel", label = "Save"), size = "large"),
      tabsetPanel(
        tabPanel("Density",
                 bsButton("Matplot", "all Densities"),
                 plotOutput("Density"),
                 uiOutput("AxisRanges"),
                 plotOutput("Densities")
        ),
        tabPanel("Moment",
                 # textInput("Moment", "Moment", "", "100%"),
                 selectInput("Moment", "Moment", c("mean","var","median","mode","cor")),
                 fluidRow(
                   column(3, selectizeInput("CovariateVarying", "Varying", NULL)),
                   column(6, textInput("Range", "Range", value = "seq(0,1,length.out = 100)"))
                 ),
                 actionButton("Plot", "Plot", icon("line-chart")),
                 plotOutput("MomentPlot")
        )
      )
    )
  )
))