Как включить суффикс имени выходного $ sufix в функцию ввода $ sufix_rows_selected в R блестящий?

Question

Я пытаюсь получить суффикс имени output$sufix в R Shiny и включить его в функцию input$sufix_rows_selected. Таблица детализации пустует. Может кто-нибудь иметь представление о том, что я делаю неправильно?

Функция, которую я пытаюсь создать:

f.drilldata <- function(base.summary, base.drilldown,  sufix.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${sufix.output}_rows_selected"))
input = paste0(sufix.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)

Answer 1

Я нашел простое решение, просто добавив весь ввод (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)