inst/app-rfm/logic/ui_rfm_home.R

In rsquaredacademy/xplorerr: Tools for Interactive Data Exploration

tabPanel("Home", value = "tab_rfm_home",
	fluidPage(
		
		fluidRow(
			column(12, align = 'center',
				h3('What type of data do you have?')
			)
		),

		br(),
		br(),

		fluidRow(
			column(1),
			column(2, align = 'right',
				img(src = 'summary1.png', width = '100px', height = '100px')
			),
			column(6, align = 'center',
				h4('Transaction Data'),
				p('Each row represents a transaction/order.')
			),
			column(2, align = 'left',
				br(),
				actionButton(
					inputId = 'click_transaction',
					label = 'Click Here',
					width = '100px'
				)
			),
			column(1)
		),

		br(),

		fluidRow(
			column(1),
			column(2, align = 'right',
				img(src = 'summary1.png', width = '100px', height = '100px')
			),
			column(6, align = 'center',
				h4('Customer Data'),
				p('Each row represents transactions of a customer. The data includes 
					the number of days since the last transaction.')
			),
			column(2, align = 'left',
				br(),
				actionButton(
					inputId = 'click_customer_1',
					label = 'Click Here',
					width = '100px'
				)
			),
			column(1)
		),

		fluidRow(
			column(1),
			column(2, align = 'right',
				img(src = 'summary1.png', width = '100px', height = '100px')
			),
			column(6, align = 'center',
				h4('Customer Data'),
				p('Each row represents transactions of a customer. The data includes 
					the date of the latest transaction.')
			),
			column(2, align = 'left',
				br(),
				actionButton(
					inputId = 'click_customer_2',
					label = 'Click Here',
					width = '100px'
				)
			),
			column(1)
		)

	)
)