Я пытаюсь создать блестящее приложение, которое дает пользователю гибкость в выборе переменных для группировки и суммирования. Флажок будет иметь возможность выбора группы по переменным. Прямо сейчас я не дал переменные меры в качестве выбора, так как я боролся с группой по. Я хочу, чтобы числа были агрегированы на основе выбора.
library(shiny)
library(ggplot2) # for the diamonds dataset
library(shinydashboard)
library(dplyr)
y1<-diamonds
ui <- fluidPage(
checkboxGroupInput("variable", "Variables to show:",
c("cut","color","clarity"),selected = "cut"),
tableOutput("data"),
textOutput("result")
)
server <- function(input, output, session) {
base <- reactive({
groupby <- enquo(input$variable)
print(groupby)
res <-y1%>% group_by(!!!groupby,x) %>%
tally() %>%
ungroup() %>%
summarise(sum = sum(x)) %>%
pull()
res
})
output$result <- renderText({
input$variable
})
output$data<-renderTable({
base()
}
)
}
shinyApp(ui, server)
Спасибо, Хема