如何将group_by_uu（）与闪亮和背面标记一起使用>；

我想让我的榜样起作用。当我不使用反刻度时，例如将

英里/加仑

更改为

英里/加仑

时，它会按列正确分组。然而，一旦我把它放在后面，它就不起作用了

library(shiny)
library(DT)
library(tidyverse)

ui <- fluidPage(

   titlePanel("Old Faithful Geyser Data"),

   sidebarLayout(
      sidebarPanel(

        selectInput("groups", "Choose Groupings", choices = "Miles Per Gallon", multiple = TRUE, selected = "")

      ),


      mainPanel(

        DT::dataTableOutput("data")

      )
   )
)


server <- function(input, output) {

  output$data <- DT::renderDataTable({

    mtcars %>%
      select(`MilesPerGallon` = mpg, cyl, wt) -> dat

    if(length(input$groups) == 0) {

     dat

    } else {

      dat %>%
        dplyr::group_by_(input$groups) %>%
        summarise(n = n())

    }


  })

}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（DT）
图书馆（tidyverse）
ui%
dplyr:：分组依据（输入$groups）%>%
总结（n=n（））
}
})
}
#运行应用程序
shinyApp（用户界面=用户界面，服务器=服务器）

使用接受字符串输入的

分组

library(shiny)
library(DT)
library(tidyverse)

ui <- fluidPage(

  titlePanel("Old Faithful Geyser Data"),
  sidebarLayout(
      sidebarPanel( 
      selectInput("groups", "Choose Groupings", choices = "Miles Per Gallon", 
                    multiple = TRUE, selected = "") 
),

mainPanel(  
  DT::dataTableOutput("data")
    )
  )
)

server <- function(input, output) {
    output$data <- DT::renderDataTable({
    mtcars %>%
      select(`Miles Per Gallon` = mpg, cyl, wt) -> dat

    if(length(input$groups) == 0) {
     dat
   } else {
      dat %>%
         dplyr::group_by_at(input$groups) %>%
         summarise(n = n())
     }
   })
}
# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（DT）
图书馆（tidyverse）
ui%
dplyr:：分组对象（输入$groups）%>%
总结（n=n（））
}
})
}
#运行应用程序
shinyApp（用户界面=用户界面，服务器=服务器）