0

我正在尝试output$suffix在 R Shiny 中获取名称的后缀并将其合并到input$suffix_rows_selected函数中。向下钻取表为空。有人知道我做错了什么吗?

我正在尝试构建的功能:

f.drilldata <- function(base.summary, base.drilldown,  suffix.output, group_var){ 

group = enquo(group_var)
base.summary = base.summary %>% mutate(var = !!group)
base.drilldown = base.drilldown %>% mutate(var = !!group)

#input = expr(!!glue("input${suffix.output}_rows_selected"))
input = paste0(suffix.output,'_rows_selected')

validate(need(length(input[[input]]) > 0, ''))
selected_rows <- base.summary[as.integer(input[[input]]), ]$var

base.drilldown[base.drilldown$var %in% selected_rows, ]
}
错误示例:
library("dplyr")
library("shiny")
library("DT")

tbl.summary <- group_by(iris, Species) %>% summarise(Count = n())
tbl.drilldown <- iris

ui <- fluidPage(
DTOutput("output.summary.name")
, DTOutput("output.drilldown.name"))

server <- function(input, output){

# display the data that is available to be drilled down
output$output.summary.name <- renderDT(tbl.summary)

# subset the records to the row that was clicked through f.drilldata function
drilldata <- reactive({ f.drilldata(tbl.summary, tbl.drilldown, 'output.summary.name', Species)  })

# display the subsetted data
output$output.drilldown.name <- renderDT(drilldata())}

shinyApp(ui, server)
有效但超出 f.drilldata 函数的示例
library("dplyr")
library("shiny")
library("DT")

tbl.summary <- group_by(iris, Species) %>% summarise(Count = n())
tbl.drilldown <- iris

ui <- fluidPage(
DTOutput("output.summary.name")
, DTOutput("output.drilldown.name"))


server <- function(input, output){

output$output.summary.name <- renderDT(tbl.summary)

drilldata <- reactive({ validate( need(length(input$output.summary.name_rows_selected) > 0, "Select rows to drill down!")) 
selected_species <- 
tbl.summary[as.integer(input$output.summary.name_rows_selected), ]$Species
tbl.drilldown[tbl.drilldown$Species %in% selected_species, ]  })

output$output.drilldown.name <- renderDT(drilldata())}

shinyApp(ui, server)
4

1 回答 1

0

我找到了一个简单的解决方案,只需将整个输入 (input$output.summary.name_rows_selected) 添加为函数的参数,如下所示。

library("dplyr")
library("shiny")
library("DT")


f.drilldata <- function(base.summary, base.drilldown,  input, group_var){ 

group = enquo(group_var)
base.summary = base.summary %>% mutate(var = !!group)
base.drilldown = base.drilldown %>% mutate(var = !!group)

validate(need(length(input) > 0, ''))
selected_rows <- base.summary[as.integer(input), ]$var

base.drilldown[base.drilldown$var %in% selected_rows, ]
}

tbl.summary <- group_by(iris, Species) %>% summarise(Count = n())
tbl.drilldown <- iris

ui <- fluidPage(
DTOutput("output.summary.name")
, DTOutput("output.drilldown.name"))

server <- function(input, output){
output$output.summary.name <- renderDT(tbl.summary)

drilldata <- reactive({ f.drilldata(tbl.summary, tbl.drilldown, 
                                    input$output.summary.name_rows_selected, Species)  })

output$output.drilldown.name <- renderDT(drilldata())}

shinyApp(ui, server)
于 2019-10-29T12:20:51.903 回答