library(shiny)
library(jqbr)
# Button to reset the build an remove all rules
ui <- fluidPage(
useQueryBuilder(),
queryBuilderInput(
inputId = "qb",
filters = list(
list(
id = "name",
type = "string"
)
)
),
actionButton("reset", "Reset")
)
server <- function(input, output) {
observeEvent(input$reset, {
updateQueryBuilder(
inputId = "qb",
reset = TRUE
)
})
}
if (interactive()) {
shinyApp(ui, server)
}
Run the code above in your browser using DataLab