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
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.