fluidPage(
# supress error messages in app
tags$style(
type = 'text/css',
".shiny-output-error{ visibility: hidden;}",
".shiny-output-error:before { visibility:hidden; }"
),
source("./ui_CustomError.R", local = T)[1],
fluidRow(conditionalPanel(
"output.ValPlots",
box(
withSpinner(plotlyOutput("CompoundCodeFractions", height = 450, width = 850)),
width = 10
)
))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.