>source

내 모범이 작동하기를 원합니다. 백틱을 사용하지 않고 예를 들어 변경 Miles Per Gallon ...에 MilesPerGallon 그런 다음 열별로 올바르게 그룹화됩니다. 그러나 다시 진드기에 넣으면 작동하지 않습니다.

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)


  • 답변 # 1

    사용하다 group_by_at 문자열 입력을 허용합니다.

    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)
    
    

  • 이전 java - 형식 안전성 - class 에서 class
  • 다음 Java - 자바 - pojo로 키 및 값을 사용하여지도 데이터 구조에서 csv를로드하는 방법 :지도