suppressPackageStartupMessages(library(shiny))
suppressPackageStartupMessages(library(DT))
suppressPackageStartupMessages(library(shinyjs))
suppressPackageStartupMessages(library(shinydashboard))
suppressPackageStartupMessages(library(bdchecks))
suppressPackageStartupMessages(library(bdutilities.app))
shinyUI(dashboardPage(
#Header Title
dashboardHeader(title = "bdclean", dropdownMenuOutput("messageMenu")),
# ------------- Sidebar -------------------
dashboardSidebar(
sidebarMenu(
id = "sideBar",
menuItem(
"Add Data",
tabName = "add",
icon = icon("plus-circle")
),
menuItem(
"Configure Cleaning",
tabName = "configure",
icon = icon("wrench")
),
menuItem("Flag & Clean", tabName = "flag", icon = icon("flag")),
menuItem(
"Data & Cleaning Reports",
tabName = "document",
icon = icon("file")
),
menuItem("Citations", tabName = "citTab", icon = icon("bookmark"))
)
),
# ------------- End of Sidebar -------------------
dashboardBody(
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "style.css"),
tags$link(rel = "stylesheet", type = "text/css", href = "checkbox.css"),
tags$link(rel= "shortcut icon", href= "bdclean_favicon_3.png")
),
useShinyjs(),
tabItems(
# ------------- Add Data Module -------------------
tabItem("add",
fluidRow(div(
# -------------------------------
bdutilities.app::mod_add_data_ui("bdFileInput", "User data (.csv format)"),
tagList(
bdutilities.app::mod_darwinize_ui("darwinize")
),
# -------------------------------
column(
12,
div(
id = "dataToConfigureDiv",
actionButton("dataToConfigure", "Next: Configure Cleaning")
),
div(class = "progressStep", taskItem(
value = 15, color = "orange",
"Step 1 of 6"
))
)
))),
# ------------- End of Add Data Module -------------------
# ------------- Cleaning Configuration Module -------------------
tabItem("configure",
fluidRow(column(
12,
h1("Configure Cleaning"),
column(
12,
tabsetPanel(
type = "tabs",
id = "questionnaireTab",
tabPanel(
"Option 01: Questionnaire ",
value = 'option1',
# -------------------------------
questionnaireUI("questionnaireMod")
# -------------------------------
),
tabPanel(
"Option 02: Customized Checks",
value = 'option2',
# -------------------------------
customizedCheckUI("customCheckMod")
# -------------------------------
),
div(class = "progressStep", taskItem(
value = 30, color = "green",
"Step 2 of 6"
))
),
div(class = "completedButton", actionButton("configureToFlag", "Next: Flagging"))
)
))),
# ------------- End of Cleaning Configuration Module -------------------
# ------------- Flagging Module -------------------
tabItem("flag",
fluidRow(column(
12,
column(
12,
# -------------------------------
FlaggingUI("flaggingMod"),
# -------------------------------
div(class = "progressStep", taskItem(
value = 45, color = "yellow",
"Step 3 of 6"
)),
uiOutput("cleanedResultsUI")
)
))),
# ------------- End of Flagging Module -------------------
# ------------- Documentation Module -------------------
tabItem("document",
fluidRow(column(
12,
column(
12,
h1("Artifacts and Reports"),
br(),
# -------------------------------
uiOutput("documentContentUI")
)
))),
tabItem("citTab",
fluidRow(column(
12,
column(12,
h1("Package Citations"),
bdutilities.app::mod_citation_ui("bdcite", "bdclean")
)
)))
)
# ------------- End of Documentation Module -------------------
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.