inst/shiny/ui.R

In circglmbayes: Bayesian Analysis of a Circular GLM

library(shiny)
library(shinydashboard)

shinyUI(dashboardPage(

  # Header:
  dashboardHeader(title = "Circular GLM"),

  # Input in sidepanel:
  dashboardSidebar(

    sidebarMenu(

      h3(" Input"),
      menuItem("Load data", tabName = "loaddata"),
      menuItem("Analysis options", tabName = "analysisopts"),
      menuItem("View dataset",     tabName = "fulldata"),
      actionButton("run", "Run analysis")

    ),
    sidebarMenuOutput("outputmenu")
  ),


  # Main:
  dashboardBody(

    tabItems(
      tabItem(
        tabName = "loaddata",

        fluidRow(
          column(width = 6,
                 h3("Data selection"), br(),

                 tags$style(type='text/css', ".well { max-width: 20em; }"),
                 # Tags:
                 tags$head(
                   tags$style(type="text/css", 
                              "select[multiple] { width: 100%; height:10em}"),
                   tags$style(type="text/css", 
                              "select { width: 100%}"),
                   tags$style(type="text/css", 
                              "input { width: 19em; max-width:100%}")
                 ),


                 radioButtons("datasource", "Choose data source",
                              choices = c("Use the example" = "example", 
                                          "Load your own data" = "user")),
                 # checkboxInput("useexample", "Use example dataset instead.", 
                 #                value = FALSE),

                 conditionalPanel(
                   "input.datasource == 'user'",
                   # Select filetype:
                   selectInput("readFunction", "Function to read data:", c(
                     # Base R:
                     "read.table",
                     "read.csv",
                     "read.csv2",
                     "read.delim",
                     "read.delim2",

                     # foreign functions:
                     "read.spss",
                     "read.arff",
                     "read.dbf",
                     "read.dta",
                     "read.epiiinfo",
                     "read.mtp",
                     "read.octave",
                     "read.ssd",
                     "read.systat",
                     "read.xport",

                     # Advanced functions:
                     "scan",
                     "readLines"
                   ), selected = "read.csv"),

                   # Upload data:
                   fileInput("file", "Upload data-file:"),

                   # Select whether to show all the advanced options.
                   checkboxInput("advOptions", "Show advanced options", 
                                 value = FALSE),

                   conditionalPanel(
                     "input.advOptions",

                     # Argument selecter:
                     htmlOutput("ArgSelect"),

                     # Argument field:
                     htmlOutput("ArgText"),

                     # Variable selection:
                     htmlOutput("varselect")

                   )
                 )
          ),
          column(width = 6,

                 # Outcome selection:
                 htmlOutput("outcomeselect"),

                 # Predictor selection:
                 htmlOutput("predictorselect")
          )
        )

      ),



      tabItem(
        tabName = "analysisopts",
        numericInput("Q",  "Iterations to keep", 10000, min = 100, step = 100),
        numericInput("burn", "Burnin", 1000, min = 0, step = 100),
        numericInput("thin", "Thinning factor", 1, min = 1, step = 1),
        numericInput("r",    "Link function range (2 covers the whole circle)",
                     2, min = 0.01, step = .1),
        numericInput("bwb",  "Proposal bandwith (MCMC tuning parameter)",
                     .05, min = 0.01, step = .01),
        br(),
        h3("Parameters provided as R code"),
        textInput("conj_prior",    "Conjugate prior values", "rep(0, 3)"),
        textOutput("conjprval"),
        textInput("bt_prior_musd", 
                  "Prior parameters for the normal prior for beta", 
                  "c(mu = 0, sd = 1)"),
        textOutput("btprval")

      ),


      tabItem(
        tabName = "fulldata",
        br(), br(),
        dataTableOutput("showdata")
      ),

      tabItem(
        tabName = "results",
        fluidRow(
          column(
            width = 6,
            box(
              width = NULL,
              textOutput("textoverview")
            ),
            box(
              width = NULL,
              title = "Coefficients",
              tableOutput("coeftable")
            ),
            box(
              width = NULL,
              title = "Hypothesis tests",
              uiOutput("hyptest")
            )
          ),
          column(
            width = 6,
            box(
              width = NULL,
              title = "Model fit (Information Criteria)",
              tableOutput("ICtable")
            )
          )
        )


        # h3("Hypothesis tests"),
        # tableOutput("bftables")
      ),
      tabItem(
        tabName = "plotout",
        fluidRow(
          column(
            width = 6,
            box( width = NULL,
                 title = "Prediction plot",
                 plotOutput("predictplot")
            ),
            box( width = NULL,
                 title = "MCMC Results",
                 plotOutput("tracestackplot")
            )
          ),
          column(
            width = 6,
            box( width = NULL,
                 title = "Mean Comparison density plot",
                 plotOutput("meancompplot")
            ),
            box( width = NULL,
                 title = "Mean Boxplot",
                 plotOutput("meanboxplot")
            )
          )

        )
      ),
      tabItem(
        tabName = "rtext",
        fluidRow(
          column(
            width = 6,
            box(
              width = NULL,
              title = "Overview",
              verbatimTextOutput("basetextprint")
            ),
            box(
              width = NULL,
              title = "MCMC Summary",
              verbatimTextOutput("mcmctextprint")
            ),
            box(
              width = NULL,
              title = "Bayes Factors and posterior model probabilities",
              verbatimTextOutput("bftextprint")
            )
          ),
          column(
            width = 6,
            box(
              width = NULL,
              title = "Full results object",
              verbatimTextOutput("alltextprint")
            )
          )
        )
      )
    )
  )
))