Реактивная фильтрация / поднабор фрейма данных в блестящем

Это, вероятно, не делает этого, это ваша оболочка, завершающая команду, так как вы использовали ее раньше.

Вы можете взглянуть на свою историю, набрав history или отредактировав ~/.bash_history. Вы можете отредактировать свою историю из файла ~/.bash_history, или вы можете ввести history, затем введите номер строки с git checkout myBranch, а затем используйте history -d {line number here}. В крайнем случае вы можете использовать команду history -c, чтобы полностью уничтожить историю.

1
задан PoGibas 23 February 2019 в 10:00
поделиться

1 ответ

Я заменил ifelse на простое if условие. Я предполагаю, что это более безопасно, так как пайпинг к filter и затем использование ifelse может привести к ошибке. Рассмотрим этот код сервера:

library(shiny)
server <- function(input, output) { 
    selectdata <- reactive({
        # Give back original data (no filter is needed)
        if (any(input$cut == "All")) {
            diamonds
        } else {
            # Subset data
            # You can also use: base::subset(diamonds, cut %in% input$cut)
            dplyr::filter(diamonds, cut %in% input$cut)
        }
    })
    output$table <- DT::renderDT({
        selectdata()
    }, options = list(scrollX = TRUE))
}
0
ответ дан PoGibas 23 February 2019 в 10:00
поделиться
Другие вопросы по тегам:

Похожие вопросы: