проблема при передаче аргумента для вывода $ arg в R Shiny

Question

Приведенный ниже код работает, когда он не находится в функции:

inputdf <- s %>%
filter(status == 'Open', next_step_action != 'Comment') %>%
arrange(desc(created_date)) %>%
select(link,
       age,
       assignee,
       next_step,
       title,
       description,
       created_date,
       update_date,
       tags)

output$assigndt = DT::renderDataTable(inputdf,
                                    options = list(paging = FALSE, autoWidth = TRUE),
                                    escape = FALSE)

Вышеописанное работает просто отлично.если я пытаюсь превратить это в функцию, я не могу понять, как использовать аргумент для вывода $ assigndt:

  dtconfig <- function(inputdf, op){
inputdf <- s %>%
  filter(status == 'Open', next_step_action != 'Comment') %>%
  arrange(desc(created_date)) %>%
  select(link,
         age,
         assignee,
         next_step,
         title,
         description,
         created_date,
         update_date,
         tags)

output$op = DT::renderDataTable(inputdf,
                                      options = list(paging = FALSE, autoWidth = TRUE),
                                      escape = FALSE)
}

dtconfig(assigned, assigndt)

Аргумент inputdf работает, но аргумент op не работает.Как передать аргумент для вывода $?

Answer 1

Было бы лучше, если бы вы опубликовали пример complete , чтобы мы могли легко попробовать.

Как насчет выполнения

output$op <<- DT::renderDataTable.....

вместо

output$op = DT::renderDataTable.....

в вашей функции?Это работает?<<- - нелокальное назначение.Я не уверен, что это правильно, хотя.

В противном случае вы, вероятно, можете сделать:

dtconfig <- function(inputdf, op){
s %>%
  filter(status == 'Open', next_step_action != 'Comment') %>%
  arrange(desc(created_date)) %>%
  select(link,
         age,
         assignee,
         next_step,
         title,
         description,
         created_date,
         update_date,
         tags)
}

output$op <- DT::renderDataTable(dtconfig(assigned, assigndt),
                                      options = list(paging = FALSE, autoWidth = TRUE),
                                      escape = FALSE)

Но я не уверен, так как я не знаю, что такое s, assigned и т. Д. Надеюсь, это сработает.