我正在更新几个月前构建的Shiny应用程序,发现表输出有一些非常奇怪的行为。现在,基本上每个单元格都包含一个字符,而不是它应该包含的字符串或完整数字。
此示例将问题最小化。
library(shiny)
ui <- fluidPage(
titlePanel("Reproducible Example"),
sidebarLayout(
sidebarPanel(
sliderInput("minprice", label = "Minimum diamond price",
min = 326, max = 18823, value = 1000)
),
mainPanel(
dataTableOutput("table"),
)
)
)
server <- function(input, output) {
data(diamonds)
diamond_filt <- eventReactive(input$minprice, {
diamonds %>%
filter(price >= input$minprice)
})
output$table <- renderDataTable(diamond_filt(),
options = list(pageLength = 10))
}
shinyApp(ui = ui, server = server)
这也给了我标题中指出的错误,将我重定向到a datatables manual page。但是我仍然不知道出了什么问题。
此代码曾经有效(因为它在应用程序中有效),有人知道发生了什么吗?