tabPanel('Customer Data - II', value = 'tab_rfm_customer_score_2',
# check box for transcation or customer data
fluidPage(
fluidRow(
column(6, align = 'left',
h4('RFM Analysis'),
p('Recency, frequency and monetary value analysis for customer level data i.e. each row represents
transactions of a customer and the data includes the date of the latest transaction.')
),
column(6, align = 'right',
actionButton(inputId='rvsp1', label="Help", icon = icon("question-circle"),
onclick ="window.open('https://rfm.rsquaredacademy.com/reference/rfm_table_customer_2.html', '_blank')")
)
),
hr(),
fluidRow(
column(2, align = "right",
br(),
h5("Unique ID:")
),
column(2, align = "left",
selectInput("rfm_customer_id_c_2", label = '',
choices = "", selected = "", width = '150px'
),
bsTooltip("rfm_customer_id_c_2", "Select the variable representing the unique id of the customer.",
"bottom", options = list(container = "body")
)
),
column(2, align = "right",
br(),
h5("Orders:")
),
column(2, align = "left",
selectInput("rfm_n_transactions_c_2", label = '',
choices = "", selected = "", width = '150px'
),
bsTooltip("rfm_n_transactions_c_2", "Select the variable representing the number of orders/purchases.",
"bottom", options = list(container = "body")
)
),
column(2, align = "right",
br(),
h6("Latest Transaction Date:")
),
column(2, align = "left",
selectInput("rfm_order_date_c", label = '',
choices = "", selected = "", width = '150px'
),
bsTooltip("rfm_order_date_c", "Select the variable representing the date of the latest order/transaction.",
"bottom", options = list(container = "body")
)
)
),
fluidRow(
column(2, align = "right",
br(),
h5("Revenue:")
),
column(2, align = "left",
selectInput("rfm_total_revenue_c_2", label = '',
choices = "", selected = "", width = '150px'
),
bsTooltip("rfm_total_revenue_c_2", "Select the variable representing the total revenue from the customer.",
"bottom", options = list(container = "body")
)
),
column(2, align = "right",
br(),
h5("Analysis Date:")
),
column(2, align = "left",
dateInput("rfm_analysis_date_c_2", label = '', width = '150px'),
bsTooltip("rfm_analysis_date_c_2", "Select the date of analysis.",
"bottom", options = list(container = "body")
)
),
column(2, align = "right",
br(),
h5("Recency Bins:")
),
column(2, align = "left",
numericInput("rfm_recency_bins_c_2", label = '',
min = 1, step = 1, value = 5, width = '150px'
),
bsTooltip("rfm_recency_bins_c_2", "Specify the number of bins for recency.",
"bottom", options = list(container = "body")
)
)
),
fluidRow(
column(2, align = "right",
br(),
h5("Frequency Bins:")
),
column(2, align = "left",
numericInput("rfm_frequency_bins_c_2", label = '',
min = 1, step = 1, value = 5, width = '150px'
),
bsTooltip("rfm_frequency_bins_c_2", "Specify the number of bins for frequency.",
"bottom", options = list(container = "body")
)
),
column(2, align = "right",
br(),
h5("Monetary Bins:")
),
column(2, align = "left",
numericInput("rfm_monetary_bins_c_2", label = '',
min = 1, step = 1, value = 5, width = '150px'
),
bsTooltip("rfm_monetary_bins_c_2", "Specify the number of bins for monetary value",
"bottom", options = list(container = "body")
)
)
),
br(),
fluidRow(
column(12, align = "center",
actionButton(inputId = 'submit_rfm_customer_score_2', label = 'Submit', width = '120px', icon = icon('check')),
bsTooltip("submit_rfm_customer_score_2", "Click here to view RFM score.",
"bottom", options = list(container = "body"))
)
),
fluidRow(
br(),
dataTableOutput('rfm_customer_score_out_2') %>%
withSpinner()
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.