tabPanel('Heat Map', value = 'tab_rfm_heatmap',
fluidPage(
fluidRow(
column(6, align = 'left',
h4('RFM Heatmap'),
p("The heat map shows the average monetary value for different
categories of recency and frequency scores. Higher scores of frequency and
recency are characterized by higher average monetary value as indicated by
the darker areas in the heatmap.")
)
),
hr(),
fluidRow(
br(),
br(),
column(2),
column(8, align = 'center',
plotOutput('plot_heatmap', height = '500px') %>%
withSpinner()
),
column(2)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.