tabPanel('Scatter Plots', value = 'tab_rfm_scatter',
fluidPage(
fluidRow(
column(6, align = 'left',
h4('Scatter Plots'),
p("Examine the relationship between recency, frequency and monetary values.")
)
),
hr(),
fluidRow(
br(),
br(),
column(2),
column(8, align = 'center',
plotOutput('plot_scatter_1', height = '500px') %>%
withSpinner()
),
column(2)
),
fluidRow(
br(),
br(),
column(2),
column(8, align = 'center',
plotOutput('plot_scatter_2', height = '500px') %>%
withSpinner()
),
column(2)
),
fluidRow(
br(),
br(),
column(2),
column(8, align = 'center',
plotOutput('plot_scatter_3', height = '500px') %>%
withSpinner()
),
column(2)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.