在闪亮的应用程序中使用 if else 的条件值，使用 tidyverse 和 dplyr 来分组和过滤数据集

我有一个简单的闪亮的，它使用反应性来呈现描述性统计数据。不过，我想用ifelse在 tidyverse 管道内（并且不编写大量代码）。但是，我无法做到这一点。我查了之前的post https://stackoverflow.com/a/44695376/5893454但它也不起作用。我想这部分接近我想要的：

 students_results <- reactive({
    ds %>%
      
    if (input$all_quest == TRUE) {  do nothing here!! } else {  
      filter(domain == input$domain) %>%
        group_by(input$quest)
    }
    summarise(mean(test))

这段代码100%有效，

library(shiny)
library(tidyverse)
library(DT)
ds <- data.frame(quest = c(2,4,6,8), domain = c("language", "motor"), test = rnorm(120, 10,1))

ui <- fluidPage(
  
  sidebarLayout(
    tabPanel("student",
             sidebarPanel(
               selectInput("domain", "domain", selected = "language", choices = c("language", "motor")),
               selectInput("quest", "Questionnaire", selected = "2", choices = unique(ds$quest)),
               checkboxInput("all_quest",
                             label = "Show all questionnaires",
                             value = FALSE)
             )
    ),
    
    mainPanel(
      dataTableOutput("table")
    )
  )
)
server <- function(input, output) {
  
  students_results <- reactive({
    if (input$all_quest == TRUE) {
      ds %>% 
        group_by(quest, domain) %>% 
        summarise(mean(test))
    } 
    else   {
      ds %>% 
        filter(domain == input$domain) %>%
        group_by(input$quest) %>% 
        summarise(mean(test))
      
    }
  })
  
  output$table <- renderDataTable({
    students_results()
  }
  )
}
shinyApp(ui = ui, server = server)

• 请检查下面的 akrun 回复。一切正常。

我们可能需要使用{}阻止之间的代码%>%

 students_results <- reactive({
    ds %>%
      {
        if (input$all_quest == TRUE) {
          . 
            } else {
          {.} %>%
           filter(domain == input$domain) %>%
           group_by(input$quest) 
       } 
        
        }%>%
    summarise(mean(test))
  })