inst/app-blorr/logic/logic_filter.R

filt_ui <- eventReactive(input$button_filt_yes, {

	fluidRow(

		column(12, align = 'center',
					selectInput(
						inputId = 'dplyr_filter',
						label = 'Filter:',
						choices = '',
						selected = '',
						width = '120px'
					)
				),

				column(12, align = 'center',
					selectInput(
						inputId = 'dplyr_filt_op',
						label = 'Select Operator',
						choices = c('<', '>', '<=', '>=', '=='),
						selected = '',
						width = '120px'
					)
				),

				column(12, align = 'center',
					textInput(
						inputId = 'dplyr_filt_val',
						label = 'Value',
						value = '20',
						width = '120px'
					)
				),

		column(12, align = 'center',
	        br(),
	        br(),
	        actionButton(inputId = 'submit_dply_filt', label = 'Filter', width = '120px', icon = icon('check')),
	        bsTooltip("submit_dply_filt", "Click here to filter data.",
	                      "bottom", options = list(container = "body"))
	      )
	)	

})

output$filt_render <- renderUI(
	filt_ui()
)

observeEvent(input$button_filt_yes, {
	updateSelectInput(
  	session,
    inputId = "dplyr_filter",
    choices = names(final_sel$a),
    selected = names(final_sel$a)
  )
})

observeEvent(input$submit_dply_selvar, {
	updateSelectInput(
  	session,
    inputId = "dplyr_filter",
    choices = names(finalsel()),
    selected = names(finalsel())
  )
})



filt_data <- reactiveValues(p = NULL)

observeEvent(input$submit_dply_selvar, {
  filt_data$p <- final_sel$a
})

observeEvent(input$button_filt_yes, {
  filt_data$p <- final_sel$a
})

observeEvent(input$submit_dply_filt, {

  filt_data$p <- filt_data$p %>%
    filter_(paste(input$dplyr_filter, input$dplyr_filt_op, input$dplyr_filt_val))

})

observeEvent(input$button_filt_no, {
	filt_data$p <- final_sel$a
})

observeEvent(input$button_filt_no, {
	updateNavbarPage(session, 'mainpage', selected = 'tab_scr')
  updateNavlistPanel(session, 'navlist_trans', 'tab_screen')
})


filttrans <- eventReactive(input$button_filt_yes, {
	
	fluidRow(
			            	
		column(6, align = 'left',
			actionButton(inputId='filt2dvarsel', label="Select Variables", icon = icon("long-arrow-left"))
		),

		column(6, align = 'right',
			actionButton(inputId='filt2screen', label="Screen Data", icon = icon("long-arrow-right"))
		)

	)

})

output$filt_trans <- renderUI({
	filttrans()
})

observeEvent(input$filt2dvarsel, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_selvar')
})

observeEvent(input$filt2screen, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_scr')
  updateNavlistPanel(session, 'navlist_trans', 'tab_screen')
})


# filtered <- eventReactive(input$submit_dply_filt, {
#   k <- final_sel() %>%
#     filter_(paste(input$dplyr_filter, input$dplyr_filt_op, input$dplyr_filt_val))
#   k
#   # k <- filter_(final_sel(), paste(input$dplyr_filter, input$dplyr_filt_op, input$dplyr_filt_val))
#   # k
# })

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.