R Shiny を使ってWebアプリを作って動くまでやってみる（9） プログラムのモジュール化とGIT

#ui.R
shinyUI(fluidPage(
    dashboardPage(
        dashboardHeader(title = "Psycho Scale Developer", disable = FALSE, titleWidth = "300px"),
        dashboardSidebar(
            disable = TRUE
        ),
        dashboardBody(
            navbarPage("Main Menus", id="mainTabs", selected = "dataUpload", 
                       # menu1 Data Upload
                       ui_01_001_dataUpload, 
                       
                       # menu2 Basic Stats
                       ui_02_000_basicStats,
                       
                       # menu3 Internal Consistency
                       ui_03_000_internalConsistency
                       
            ) # end of navBarPage

        ) # end of dashboardBody
    )
))

#global.R
library(shiny)
library(shinydashboard)
library(DT)
library(shinyWidgets)

source("ui_01_001_dataUpload.R", local = TRUE)
source("ui_02_000_basicStats.R", local = TRUE)
source("ui_03_000_internalConsistency.R", local = TRUE)

#ui_01_001_dataUpload.R
ui_01_001_dataUpload = 
tabPanel("Data Upload", value="dataUpload", icon = icon("file-upload"),
         tags$head(tags$style(".progress-bar{background-color:#bcbcbc;}")),
         fluidRow(
           column(width=12, align="center", br(),
                  div("Please use 'header' in the first row", style="font-size:16px; color:red; font-weight:bold; margin-bottom: 1em;"),
                  fileInput(inputId = "file1", label = tags$p("Choose CSV File", style="font-size:14px; margin-bottom: 0px;"),
                            accept = c(".csv"),
                            multiple = FALSE,
                            width = "50%",
                            buttonLabel = "Browse...",
                            placeholder = "No file selected"
                  )
                  
           )
         ), # end of fluidRow
         fluidRow(
           column(width=10, offset=1, align="center", br(),
                  uiOutput("quickLook")
           )
         ) # end of fluidRow
)

#ui_02_000_basicStats.R
ui_02_000_basicStats = 
tabPanel(title = "Basic Stats", value="basicStats", icon = icon("line-chart"),
         box(
           title = "Histogram",
           status = "primary",
           plotOutput("plot1", height = 200),
           height = 300
         )
)

#ui_03_000_internalConsistency.R
ui_03_000_internalConsistency = 
tabPanel(title="Internal Consistency", value="internalConsistency", icon = icon("table"))