inst/app-rfm/ui/ui_segment_size.R

In xplorerr: Tools for Interactive Data Exploration

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()
			)

		)

	)

)