if (FALSE) { # interactive()
library(S7)
library(shiny)
# call_filter_input() is used inside filterInput() methods
method(filterInput, class_numeric) <- function(x, ...) {
call_filter_input(x, sliderInput, ...)
}
# call_update_filter_input() is used inside updateFilterInput() methods
method(updateFilterInput, class_numeric) <- function(x, ...) {
call_update_filter_input(x, updateSliderInput, ...)
}
}
Run the code above in your browser using DataLab