R光沢のあるスライダーの問題

Question

こんにちは光沢のあるアプリを設定しようとしていますが、設定したスライダーからデータにアクセスできません。何らかの理由でinput$slider1[1]は整数ではないので、Num_adultsと比較することはできません。はです。

これは私がスライダ

server<-function(input,output){ 
    output$bar1 <- renderPlot({ 
    AllData1 <- AllData[!is.na(AllData$Num_adults),] 
     AllData1$Num_adults <- as.numeric(AllData1$Num_adults) 
     filter(AllData1$Num_adults >= input$slider1[1], AllData1$Num_adults <= input$slider1[2]) 
    ggplot(AllData1, aes(x=AllData1$Num_adults) + geom_histogram) 
    }) 
} 

にアクセスしようとすると、これは私がスライダーを設定するコードであるコードです。どんな助けもありがとうございます。ありがとう！ （私はデータなしでテストすることはできませんが）、これは動作するはずですし、サーバーのコードの変更

ui<-fluidPage(
    titlePanel(a(span("Data on Recipients of MSF.", style="color:purple"))), 
    sidebarLayout(
    sidebarPanel(
     helpText("For the first graphic, you can..."), 

     sliderInput(inputId = "slider1", 
        label = h3("Number of adults in a household"), 
        min = 0, max = 8, value = c(1,2))), 

    mainPanel(plotOutput("bar1")) 
)) 

shinyApp(ui=ui, server=server) 

Answer 1

：

library(dplyr) 
server<-function(input,output){ 
    output$bar1 <- renderPlot({ 
    AllData1 <- AllData[!is.na(AllData$Num_adults), ] 
    AllData1 <- filter(AllData1, Num_adults >= input$slider1[1] & 
            Num_adults <= input$slider1[2]) 
    ggplot(AllData1, aes(x = Num_adults)) + geom_histogram() 
    }) 
} 

あなたはfilter呼び出しに組み込むことにより、NAフィルタリングを簡素化することができますが、それはないです必須。