## ui.R ##
labelMandatory <- function(label) {
tagList(
label,
span("*", class = "mandatory_star")
)
}
source("ui_utils.R", local = TRUE)
source("panel_medrec.R", local = TRUE)
source("panel_records.R", local = TRUE)
source("panel_longbone.R", local = TRUE)
source("panel_dentition.R", local = TRUE)
source("panel_fusion.R", local = TRUE)
source("panel_metadata.R", local = TRUE)
ui <- bootstrapPage(title = "KScollect",
# include font-awesome, datepicker
tags$head(tags$link(rel = "stylesheet", type = "text/css",
href = "shared/font-awesome/css/font-awesome.min.css"),
tags$link(rel = "stylesheet", type = "text/css",
href = "shared/datepicker/css/datepicker.css"),
tags$script(src = "shared/datepicker/js/bootstrap-datepicker.min.js"),
tags$script(src = "sF/shinyFiles.js"),
tags$link(rel = "stylesheet", type = "text/css",
href = "sF/styles.css"),
tags$link(rel = "stylesheet", type = "text/css",
href = "sF/fileIcons.css")
),
# set up shinyjs
shinyjs::useShinyjs(),
# include main.css
includeCSS("www/styles/main.css"),
includeCSS("www/styles/styles.css"),
# navbar partial
includeHTML("www/_navbar.html"),
# main content container
tags$div(class = "container-fluid main-content", tags$div(class = "row",
records_panel,
medrec_panel,
longbone_panel,
dentition_panel,
fusion_panel,
metadata_panel
)),
# footer partial
includeHTML("www/_footer.html")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.