Nothing
tabPanel("Segment Size", value = "tab_segment_size",
fluidPage(
fluidRow(
column(6, align = 'left',
h4('Segment Distribution'),
p("Distribution of customers across the segments.")
)
),
hr(),
fluidRow(
br(),
br(),
column(12, align = 'center',
verbatimTextOutput('segment_size_out') %>%
withSpinner()
)
)
)
)
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.