inst/app-inferr/ui/ui_filter.R

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=lheslEn5icc#t=02m30s', '_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')
		)

	)

)

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on Feb. 28, 2019, 5:05 p.m.