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("MultiScatterPlot", height = 450, width = 850)),
width = 10
),
box(
uiOutput("MultiMeasure1"),
uiOutput("MultiMeasure2"),
uiOutput("MultiDimension"),
width = 2
)
))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.