尝试在R中的Shiny应用程序中制作频率表时收到错误

Question

我在这里Count variable in one data.table for each category in a different data.frame R上提到了另一个问题，因为我正在做几乎相同的事情，除了在闪亮的应用程序中。

当我尝试使用以下代码行时，出现此错误：variable lengths differ (found for 'NAME')：

merge(b, aggregate(cbind(FailCount = PASS_FAIL == "F") ~ NAME, a, sum), 
             by.x = 'Name', by.y = 'NAME')

有光泽的应用程序将获得输入input$stuff，因此在我的情况下，此行代码如下所示：

merge(b, aggregate(cbind(FailCount = PASS_FAIL == "F") ~ input$stuff, a, sum), 
             by.x = 'Name', by.y = 'input$stuff')

我尝试摆脱by.y = 'input$stuff'，但仍然收到错误消息。我正在尝试获取包含名称，计数（频率）和失败计数的频率表。

请注意，引用的链接中的可复制示例可以用于我的问题。

欢迎任何帮助/建议。谢谢！

Answer 1

事实证明，这适用于闪亮的数据表。

b <- a[, .(Count = .N, "Failure Count" = sum(PASS_FAIL == "F")), c(input$stuff)]
names(b)[names(b) == c(input$stuff)] <- "Name"

我不确定这是由于语法，data.table要求还是某些奇怪的闪亮问题引起的，但这是我可以运行的唯一代码，而不会在应用程序内产生错误并使我的一半代码崩溃。