R Shiny：用户定义的函数在常规 R 代码中运行良好，但在闪亮函数中失败

Question

我对 Shiny 很陌生，我正在尝试传递一个函数，该函数在数据框中创建老化括号，我在 Shiny 外部测试过这个函数到一个闪亮的应用程序中。

下面是Shiny外面的代码：

# Regular R Code
Aging <- function(data, Transaction.Date){
 if(missing(Transaction.Date)) stop("You forgot to specify Transaction Date")
 Transaction.Date <- deparse(substitute(Transaction.Date))
 data$year <- year(data[,Transaction.Date])
 data$Age <- car::recode(year(data[,Transaction.Date]), "year(Report.Date) = year(Report.Date); year(Report.Date)-1 = year(Report.Date)-1; else = paste(year(Report.Date)-2, 'And Prior')")
 return(data)
}

Debtors <- data.frame(Names = c("John", "Mary", "Charles", "Peter", "David", "Fabian", "Aggrey", "Elizabeth", "Anthony", "Catherine"), Amount = seq(from = 100000, by = 600, length.out = 10), Transaction.Date = seq.Date(from = as.Date("2016/1/1"), by = "quarter", length.out = 10))

Report.Date <- max(Debtors$Transaction.Date)

Aged.Data <- Aging(Debtors, Transaction.Date)

下面是我尝试创建但不起作用的 Shiny App：

library(shiny)
Aging <- function(data, Transaction.Date){
 if(missing(Transaction.Date)) stop("You forgot to specify Transaction Date")
 Transaction.Date <- deparse(substitute(Transaction.Date))
 data$year <- year(data[,Transaction.Date])
 data$Age <- car::recode(year(data[,Transaction.Date]), "year(Report.Date) = year(Report.Date); year(Report.Date)-1 = year(Report.Date)-1; else = paste(year(Report.Date)-2, 'And Prior')")
 return(data)
}

ui <- fluidPage(
dataTableOutput("Aged.Data")
)

server <- function(input, output) {
Data <- reactive({
Debtors <- data.frame(Names = c("John", "Mary", "Charles", "Peter", "David", "Fabian", "Aggrey", "Elizabeth", "Anthony", "Catherine"), Amount = seq(from = 100000, by = 600, length.out = 10), Transaction.Date = seq.Date(from = as.Date("2016/1/1"), by = "quarter", length.out = 10))

Report.Date <- max(Debtors$Transaction.Date)
Aged.Data <- Aging(Debtors, Transaction.Date)
})

output$Aged.Data <- renderDataTable(Data())

}

shinyApp(ui, server)

我得到的错误是：

in recode term:  else = paste(year(Report.Date)-2, 'And Prior')
message: Error in year(Report.Date) : object 'Report.Date' not found

我将非常感谢任何帮助。

约瑟夫。

Answer 1

这是一个简单的范围界定问题。

闪亮示例中的Aging 函数在全局范围内，它引用Report.Date。范围方面，Report.Date 只能从 Aging 访问，前提是它在函数本身中定义或者它也是一个全局变量。不闪亮的例子就是这种情况。

但在您的闪亮版本中，该变量仅在 server 函数内定义。 Aging 和 server 不共享任何变量。所以错误确实是，从全局范围的角度来看，Report.Date 不存在。

这里至少有三个选项：

1. 将Aging 函数移动到server 函数中（作为子函数），以便Aging 可以访问server 的范围。
2. 将Report.Date 移出server 作用域到全局作用域，并使用<<- 而不是<- 将其从server 更改。 （用于在超级作用域中分配变量的键。）
3. 将Report.Date 设为函数调用中的参数，而不是范围外的变量。然后，在 server 内，您可以使用所需的值调用它 Report.Date

基于这个简单的例子，我会说第三种解决方案是最干净的。

如果您需要更多解释，请随时发表评论。