Условная фильтрация данных

Question

У меня есть столбцы с населением и типом области в таблице данных, где я хочу, чтобы пользователь сделал условную фильтрацию (скажем, выберите популяцию> 15000 и планируется тип области). Я использую реактивную функцию, ареотип работает, а население не реагирует. Я думаю об использовании функции наблюдения, но я не знаю. Мой вопрос заключается в том, как сделать и реактивную и включить зависимость. Код:

    #UI 
    ui<-fluidpage(checkboxGroupInput(inputId = "popdensity", 
                                     label = " Population Per Km2:",
                                     choices = list(
                                       "< 15,000"=1, 
                                       "15,001 - 30,000"=2 , 
                                       ">30,000"=3
                                     ), 
                                     selected =list(1,2,3)
                                     ),


    selectInput(inputId = "area", 
                              label = " AreaType:",
                              choices = c(
                                "All",

                                unique(as.character(nakuru$AreaType))
                              ) 
                  ))

    #SERVER
server<-function(input,output)({
    output$table<-DT::renderDataTable({

        #filtering based on user selection

        dt<-reactive({
        df<-nakuru
         if(input$area!="All"){

          df<-df[df$AreaType==input$area,]

         }
        if(input$popdensity==1){
          df[df$PopDensity<=15000,]
        }
         if(input$popdensity==2){
          df[df$PopDensity>15000&df$PopDensity<=30000,]
        }
       if(input$popdensity==3){
          df[df$PopDensity>30000,]
        }

        df
        })
        DT::datatable(dt(),options = list(scrollX=TRUE))
      })
})

Данные Накуру Блестящее приложение макет изображения

Answer 1

Пожалуйста, посмотрите, решит ли это проблему. Вы действительно должны предоставить минимальный воспроизводимый пример, включая набор данных с использованием dput

library(shiny)
library(dplyr)

ui<-fluidPage(checkboxGroupInput(inputId = "popdensity",
                                 label = " Population Per Km2:",
                                 choices = list(
                                   "< 15,000"=1,
                                   "15,001 - 30,000"=2 ,
                                   ">30,000"=3
                                 ),
                                 selected =list(2,3)
),

selectInput(inputId = "area",
            label = " AreaType:",
            choices = c(
              "All",unique(as.character(nakuru$AreaType)))
),
dataTableOutput("filtered_table")
)

#SERVER
server<-function(input,output){

  dt<-reactive({
    df<-nakuru
    print(head(df))
    if(input$area!="All"){
      df<-df[df$AreaType==input$area,]

    }
    str(df)
    df1<- df %>%  filter(Populationperkm2 < 15000)

    df2<- df %>%  filter(Populationperkm2 > 15000 & Populationperkm2<=30000)
    df3<- df %>%  filter(Populationperkm2>30000)
    temp<- data.frame()

    if(1 %in% input$popdensity ){

      temp<-rbind(temp,df1)

    }

    if("2" %in% input$popdensity){

      temp<-rbind(temp,df2)
    }
    if("3" %in% input$popdensity){
      temp<-rbind(temp,df3)
    }
 temp
  })
  output$filtered_table<-DT::renderDataTable({
    DT::datatable(dt(),options = list(scrollX=TRUE))
  })
}

shinyApp(ui, server)

Answer 2

Трудно понять проблему без минимального воспроизводимого примера. Но, возможно, попробуйте это. Вывести реактивную часть за пределы renderDatatable порции

dt<-reactive({
    df<-nakuru
     if(input$area!="All"){

      df<-df[df$AreaType==input$area,]

     }
    if(input$popdensity==1){
      df[df$PopDensity<=15000,]
    }
     if(input$popdensity==2){
      df[df$PopDensity>15000&df$PopDensity<=30000,]
    }
   if(input$popdensity==3){
      df[df$PopDensity>30000,]
    }

    df
    })

output$table<-DT::renderDataTable({
DT::datatable(dt(),options = list(scrollX=TRUE))
  })