Есть ли функция R для применения фильтра для Renderdatatable - PullRequest
Новая
       11

Есть ли функция R для применения фильтра для Renderdatatable

0 голосов
/ 10 июля 2019

Есть ли функция R для применения фильтра в renderDatatable. Я преобразовал таблицу в матричную форму, но все равно получаю ошибку. Я получу вывод, если я применю renderPrint и verbatimTextOutput 

sample1 <- 1:3
library(shiny)
library(DT)
iris$New <- ifelse(iris$Sepal.Width>2.5,"greater than 2.5","Not Greater than 
2.5")
ui <- fluidPage(
sidebarLayout(
sidebarPanel(selectInput("x","Operations",choices = 
                           c("summary","stem","typeof","mode","birth"),
                         multiple=FALSE,selectize = TRUE)),
mainPanel(h6("Here it is"),
          dataTableOutput("message"),
          uiOutput("Species"),
          uiOutput("all"),
          uiOutput("New")
)
)
)
server <- function(input, output, session) 
{
r1 <- reactive({
if(input$x == "summary")
  { 
  req(input$Species)
  if(input$Species == "all")
  {
    table(iris$Species,iris$New[iris$New == input$New])
  } else {
    table(iris$Species,iris$New[iris$Species == input$Species & iris$New == 
  input$New])
  }}
  })
  output$message <- renderDataTable({r1()})
  output$Species <- renderUI({
  selectInput("Species", "species", 
            choices = c("all",as.character(unique(iris$Species))), multiple 
  = FALSE)
  })
  output$New <- renderUI({
  selectInput("New", "new", 
            choices = as.character(unique(iris$New)), multiple = FALSE)
  })
  }
  shinyApp(ui, server)

Могу ли я избавиться от этой ошибки.

...