• R Shiny Applications in Finance, Medicine, Pharma and Education Industry
    by Loan Robinson
  • Preface
    • About this book
    • What you will gain
    • Prerequisites
  • About the Author
  • Basic Shiny Application
  • 1 Introduction
  • 2 Basic Shiny Application
  • 3 Frontend/ User Interface UI
    • 3.1 titlePanel()
    • 3.2 sidebarLayout()
      • 3.2.1 sidebarPanel()
      • 3.2.2 mainPanel()
    • 3.3 Footer of the Application
  • 4 Backend Server
    • 4.1 Outputs - render()
      • 4.1.1 renderUI()
      • 4.1.2 renderPlot()
      • 4.1.3 renderDT()
      • 4.1.4 downloadHandler()
    • 4.2 Reactivitiy()
      • 4.2.1 reactive()
      • 4.2.2 reactiveValue()
      • 4.2.3 observeEvent() & updateTabsetPanel()
  • 5 Case Study
    • 5.1 Basic Application Structure
    • 5.2 Completed Basic Application R Codes
  • Stock Market Forcasting Application
  • 6 Introduction
  • 7 Stock Market Forcasting Application
  • 8 Frontend/ User Interface UI
    • 8.1 ShinyDashboard Structure
    • 8.2 The User Interface
      • 8.2.1 skin()
      • 8.2.2 header()
      • 8.2.3 sidebar()
      • 8.2.4 controlbar()
    • 8.3 The Output Interface
      • 8.3.1 body()
    • 8.4 The Footer
      • 8.4.1 footer()
  • 9 Backend Server
    • 9.1 Stock Symbols Templates
    • 9.2 The Individual Stock Symbol Output
      • 9.2.1 plotly package
      • 9.2.2 ggplot2 package
  • Google Trend Visualization Application
  • 10 Introduction
  • 11 Google Trend Visualization Application
  • 12 Frontend/ User Interface UI
    • 12.1 The user inputs
      • 12.1.1 Add a search term
      • 12.1.2 Google product Input with selectInput()
      • 12.1.3 Time Period Inputs
        • 12.1.3.1 Default Time Period from the Library
        • 12.1.3.2 Select Specific Dates Input
    • 12.2 The outputs
      • 12.2.1 The information boxes
      • 12.2.2 Compared breakdown by Region
      • 12.2.3 3D Relative Network Plot
      • 12.2.4 Interest Over Time Plot
      • 12.2.5 Related Queries Tables
  • 13 Backend Server
    • 13.1 Data
    • 13.2 The Information Boxes
      • 13.2.1 The individual information box
      • 13.2.2 Using lapply()
    • 13.3 Compared breakdown by Region
    • 13.4 3D Relative Network Plot
    • 13.5 Interest Over Time Plot
      • 13.5.1 Bar Plot
      • 13.5.2 Line Plot
    • 13.6 Related Queries Tables
  • Clinical Trials Application
  • 14 Introduction
  • 15 Clinical Trials Shiny Application
  • 16 Frontend/ User Interface UI
    • 16.1 Summary
      • 16.1.1 Population Tab
      • 16.1.2 Baseline Characteristic Tab
      • 16.1.3 Data Tab
    • 16.2 Demographic Tab
      • 16.2.1 Figures Tab
      • 16.2.2 Table Tab
    • 16.3 Report Tab
    • 16.4 Contact Tab
  • 17 Backend Server
  • Probability Distribution Shiny Application
  • 18 Introduction
  • 19 Frontend/ User Interface UI
    • 19.1 Sidebar Panel
      • 19.1.1 Distribution
      • 19.1.2 Area and Critical Value
    • 19.2 Mainbar Panel
  • Built with Bookdown + RStudio

Chapter 8 Frontend/ User Interface UI

Let’s start with the ‘User Interface UI / Frontend’ design, let’s start with the ‘UI’ codes

ui = dashboardPage(
  skin = "midnight",
  header = source("header.R", local = TRUE)$value,
  sidebar = source("sidebar.R", local = TRUE)$value,
  body = dashboardBody(
    shinyjs::useShinyjs(),
    shinyjs::extendShinyjs(text = jsRefreshCode, functions = "refresh"), 
    shinyalert::useShinyalert(),
    br(),
    fluidRow( uiOutput("boxes")),br(),
    fluidRow(column(width = 6,uiOutput("plot")),
             column(width = 6,uiOutput("plot_area"))),
    fluidRow(column(width = 10, offset = 1,uiOutput("plot_line")))

  ),
  controlbar = dashboardControlbar(
    tagList(
      fluidRow(column(width = 8, offset = 2,br(),
      actionButton("refresh","Refresh",icon("refresh", lib = "font-awesome"), 
      width = "100%",
      style = "color: #fff; background-color: #DD6B55; border-color: #DD6B55"))),
      helpText("This is refresh button, it will help you to reset your application 
               back to default.", 
      style = "padding-left : 10px; padding-right : 10px;")
      )
  ),
  footer = dashboardFooter(left = HTML("<span style='font-size:12px;'>
  <a href='https://www.loankimrobinson.com'>Author: Loan Kim Robinson </a></span><br>
  <span style='font-size:12px;'>Email: loankimrobinson@gmail.com</span><br>"),
                           right = "San Diego, Feb 7th 2019")
)