R блестящее приложение DT: применять фильтры, используя больше, чем - PullRequest
Новая
       10

R блестящее приложение DT: применять фильтры, используя больше, чем

0 голосов
/ 15 октября 2018

Я создаю блестящее приложение, используя R, и внутри приложения мне нужно отобразить таблицу, в которой есть возможность применять фильтры к числовым, символьным и факторным столбцам.

Я использую пакет DT, и это пример кода: 

# packages
library(shiny)
library(DT)

# ui
ui <- fluidPage(
    br(),
    DT::dataTableOutput("my_iris")
)

# server
server <- function(input, output) {
    output$my_iris <- DT::renderDataTable({
        datatable(
            data = iris,
            filter = list(
                position = "top",
                clear = FALSE,
                plain = TRUE
            )
        )
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

Проблема в том, что мне нужно применить фильтры к числовым столбцам, таким как "Sepal.Length> 5"и я не могу сделать это, используя просто полосу прокрутки, реализованную в DT, поскольку, если я переместу полосу прокрутки, тогда применяемые фильтры будут похожи на [5, b], а я просто хочу фильтр, подобный (5, b).

Есть ли простой способ сделать это, используя R и DT?

РЕДАКТИРОВАТЬ: Я думаю, что, возможно, моя проблема может быть решена с помощью параметров noUiSlider , то естьБиблиотека Javascript использовалась для реализации фильтров, но я не знаю, какие опции нужно изменить и как реализовать изменения в DT.

...