inst/app-blorr/ui/ui_filter.R

In rsquaredacademy/xplorerr: Tools for Interactive Data Exploration

tabPanel('Filter', value = 'tab_filter',

	fluidPage(

		fluidRow(
      column(6, align = 'left',
        h4('Filter Data'),
        p('Click on Yes to filter data.')
      ),
      column(6, align = 'right',
        actionButton(inputId='fildatalink', label="Demo", icon = icon("video-camera"),
          onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=02m34s', '_blank')")
      )
    ),
    hr(),

		fluidRow(

			column(12, align = 'center',
				h4('Do you want to filter data?')
			),

			column(6, align = 'right',
				actionButton(
					inputId = 'button_filt_yes',
					label = 'Yes',
					width = '120px'
				)
			),

			column(6, align = 'left',
				actionButton(
					inputId = 'button_filt_no',
					label = 'No',
					width = '120px'
				)
			)

		),

		br(),
		br(),

		fluidRow(
			uiOutput('filt_render')
		),

		fluidRow(
			uiOutput('filt_trans')
		)

	)

)