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"))
))
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.