Входной фильтр не работает для реактивной старшей диаграммы - PullRequest
Новая
       33

Входной фильтр не работает для реактивной старшей диаграммы

0 голосов
/ 17 ноября 2018

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

library(flexdashboard)
library(highcharter)
library(DT)
library(dplyr)
library(shiny)

full_sql <- read.csv('clean.csv')
service_choice <- full_sql$Service


selectInput(inputId = "testsvc", 
            label = 'Services', service_choice)


ages_by_group <- full_sql %>%
        group_by(Pediatric.Patient.Age.Grouper) %>%
        summarise('Number of Patients' = n())

output$coolplot <- renderHighchart(
    hchart(
      ages_by_group  %>%
        filter('Service' >= input$testsvc), 
      type = "column", 
      hcaes(x = Pediatric.Patient.Age.Grouper, y = `Number of Patients`), 
      color = ocqi_colors("blue"), 
      dataLabels = list(enabled = TRUE)) %>%  
    hc_ocqi_opts() %>% 
    hc_add_theme(hc_theme_ocqi()) %>% 
    hc_title(text = list("Number of Patients by Age Groups"),
             align = "left") %>% 
    hc_credits(enabled = TRUE, text = "Data Source: CDW, Chart Type: Bar") %>%
    hc_yAxis(title = list(text = "Number of Patients")) %>% 
    hc_xAxis(title = list(text = "Age Group")) 
    )

1 Ответ

0 голосов
/ 17 ноября 2018

Вам, вероятно, нужно - 

ages_by_group  %>%
  filter(Service %in% input$testsvc)
...