inst/ui/ui.R

library(shinydashboard)
library(leaflet)
library(shiny)
library(rCharts)

main_title <- 'Adveq Investment Distribution'

logo_row <- 
  fluidRow(
    column( # logo
      width = 4, 
      img(src = 'Adveq_Logo_300dpi_CMYK.jpg', 
          width ='195', 
          height ='61',
          title = 'Adveq',
          alt = 'Adveq')
    ),
    column( # title
      width = 8, 
      h2(main_title)
    )
  )


left_side <-
  column(width = 8,
         box(width = NULL, solidHeader = TRUE,
             leafletOutput("investmap", height = 700)
         ),
         box(width = NULL,solidHeader = TRUE,
             uiOutput("investTable")
         )
  )



var_select <-
  column(width = 6,
         selectInput("variable", "Variable",
                     choices = c(
                       "multiple" = "multiple",
                       "FMV" = "fmv"
                     ),selected = "multiple"))

currency_select <- 
  column(width = 6,
         conditionalPanel(
           condition = "input.variable == 'fmv'",
           selectInput("currency", "Currency",
                       choices = c(
                         "EUR" = "EUR",
                         "USD" = "USD"
                       ))))

chart_region <- 
  div(showOutput("investChart", "highcharts")
    , class = "span4")



right_side <- 
  column(width = 4,
         var_select,
         currency_select,
         chart_region
  )



main_row <-
  fluidRow(left_side,right_side)



shinyUI(fluidPage(logo_row,main_row))
agstudy/tempo_repo documentation built on May 11, 2019, 11:23 p.m.