inst/shiny/sdcApp/ui.R

library(shiny)

addResourcePath("sdcwww", file.path(
  getShinyOption(".appDir", getwd()),
  "www")
)

shinyUI(
  navbarPage(id="mainnav", theme = paste0("sdcwww/", getShinyOption(".guitheme")), title = "sdcMicro GUI",
    tabPanel("About/Help", uiOutput("ui_about")),
    tabPanel("Microdata", uiOutput("ui_inputdata")),
    tabPanel("Anonymize", uiOutput("ui_anonymize")),
    tabPanel("Risk/Utility", uiOutput("ui_results")),
    tabPanel("Export Data", uiOutput("ui_export")),
    tabPanel("Reproducibility", uiOutput("ui_script")),
    tabPanel("Undo", uiOutput("ui_undo")),
    header = tags$head(tags$script(
      src = paste0("sdcwww/", getShinyOption(".guijsfile"))
    ))
  )
)
sdcTools/sdcMicro documentation built on March 15, 2024, 12:32 p.m.