Nothing
tabPanel('Bar Chart', value = 'tab_rfm_barchart',
fluidPage(
fluidRow(
column(6, align = 'left',
h4('RFM Bar Chart'),
p("Examine the distribution of monetary scores for the different
combinations of frequency and recency scores.")
)
),
hr(),
fluidRow(
br(),
br(),
column(2),
column(8, align = 'center',
plotOutput('plot_barchart', height = '500px') %>%
withSpinner()
),
column(2)
)
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.