inst/app/ui.R

In JGCRI/GCAM-dashboard: An Interactive Dashboard for Exploring GCAM Scenario Data

library(shiny)
library(GCAMdashboard)

# Define UI for application that draws a histogram
shinyUI(fluidPage(
  # Application title
  titlePanel("GCAM Dashboard"),

  # Sidebar with user controls
  sidebarLayout(
    sidebarPanel(
        fileInput('projectFile', 'GCAM Project Data File'),
        fluidRow(
            column(8,
                   selectInput('plotScenario', 'Select Scenario to Plot', choices=list()))),
        fluidRow(
            column(8,
                   selectInput('plotQuery', 'Select Query to Plot',
                               choices=list())),
            column(4,
                   checkboxInput('inclSpatial', 'Include Spatial Queries', value=TRUE))
            ),
        checkboxInput('diffCheck', 'Plot Difference vs Another Scenario'),
        conditionalPanel(
            condition = "input.diffCheck == true",
            fluidRow(column(8,
                            selectInput('diffScenario', 'Select Difference Scenario', choices=list())))
        )
    ),

    # main display area
    mainPanel(
        tabsetPanel(
            tabPanel('Project Info',
                h2('Project Information'),
                h3('Project file: '),
                verbatimTextOutput('projFilename'),
                h3('Project data size: '),
                verbatimTextOutput('projectSize'),
                h3('Scenarios in project file:'),
                verbatimTextOutput('scenarios'),
                selectInput('scenarioInput','Select scenarios to see available queries:',
                            choices=list(), multiple=TRUE),
                h3('Queries present in ALL selected scenarios:'),
                verbatimTextOutput('queries')
            ),

            tabPanel('Map View',
                h3(textOutput('mapName', inline=TRUE),align='center'),
                plotOutput('mapPlot',height='600px'),
                sliderInput('mapYear', 'Year', width='80%', min=2005, max=2100, step=5, value=2050,
                            sep='', animate = TRUE),
                h3('Options'),
                selectInput('mapProjection', 'Map Type',
                            choices=c(Global='global',
                            USA='usa',
                            China='china',
                            Africa='africa',
                            `Latin America and Caribbean`='lac'),
                            selected = 'global'),
               ## placeholders downward to make room for the map projection
                     ## selector
                     br(),
                     br(),
                     br(),
                     br()
            ),

            tabPanel('Time View',
                plotOutput('timePlot', height='600px'),
                h3('Options'),
                selectInput('tvSubcatVar', 'Break totals into subcategories by:',
                            choices=c('none','region')),
                h4('Regions'),
                fluidRow(
                checkboxInput('tvFilterCheck',
                              'Limit plot to selected regions')),
                fluidRow(
                    column(1,checkboxGroupInput('tvRgns5', 'Asia-Pacific',
                                                choices=asiapac.rgns)),
                    column(1,checkboxGroupInput('tvRgns2',
                                                'Latin America and Caribbean',
                                                choices=lac.rgns), offset=2),
                    column(1,checkboxGroupInput('tvRgns1', 'Africa',
                                                choices=africa.rgns), offset=2),
                    column(1,checkboxGroupInput('tvRgns4', 'Europe',
                                                choices=europe.rgns), offset=2),
                    column(1,checkboxGroupInput('tvRgns3', 'North America',
                                       choices=north.america.rgns), offset=2)
                )
            )

        )  # tabset panel

    ) #  main Panel
  )   # sidebar layout
))