【发布时间】:2022-01-14 08:17:43
【问题描述】:
我抓取了 2 个表格(A 和 B)。然后我按行合并它们(rbind)。当我启动它时,一切正常。当我想在闪亮的应用程序中使用它时,出现了问题。下面的表格结构和闪亮的显示。有什么建议吗?问题可能出在哪里?不幸的是,我不能显示代码,因为这是我的论文。非常感谢您的帮助。
如您所见,问题出在第三列。 B 表的所有行都带有 NA。合并后,A表中的所有数据也都是NA。
在闪亮的表中由 renderTable 显示。
【问题讨论】:
我抓取了 2 个表格(A 和 B)。然后我按行合并它们(rbind)。当我启动它时,一切正常。当我想在闪亮的应用程序中使用它时,出现了问题。下面的表格结构和闪亮的显示。有什么建议吗?问题可能出在哪里?不幸的是,我不能显示代码,因为这是我的论文。非常感谢您的帮助。
如您所见,问题出在第三列。 B 表的所有行都带有 NA。合并后,A表中的所有数据也都是NA。
在闪亮的表中由 renderTable 显示。
【问题讨论】:
我对你的问题没有答案,但我想写点东西,评论区没有足够的空间,所以我会写这个作为答案,最后删除。所以 - 我宁愿相信您在闪亮内部使用的代码有问题,并希望在您的帮助下检查这一点。我假设您在调试方面需要一些帮助,所以我将在下面发布代码:
library(shiny)
ui <- fluidPage(
tableOutput("table")
)
server <- function(input, output, session) {
my_df <- reactive({
data.frame(a = c(1, 2, 3),
b = c(4, 5, 6))
})
output$table <- renderTable({
my_df()
browser()
})
}
shinyApp(ui, server)
在上面的代码中,我制作了一个输出(表格输出)并且 - 在服务器端的响应式 - 我正在创建 data.frame。然后我在我的输出中使用这个反应函数 (output$plot)。但是,output$plot 中的最后一行是函数browser(),用于调试。您可以在控制台中尝试我的代码,并看到当您运行闪亮的应用程序时,它会立即移回控制台(但这是“调试状态”,因此控制台看起来有点不同,例如有一个红色的“停止”按钮方可用于关闭调试状态)。请运行我闪亮的应用程序,当您回到控制台时,在调试状态下,键入my_df() 以查看data.frame 对象。你能对你闪亮的应用程序做同样的事情吗?我的意思是,你能在renderTable 的最后一行使用browser() 函数吗?然后回来告诉控制台中显示时最后一列是否仅包含NA?如果不是,那么我会说您在 Shiny 中所做的事情与手动使用表格不同。
【讨论】: