renderDataTable

Question

当我尝试将此代码作为R中的Shiny应用程序运行时，我遇到了这个错误：

  

renderDataTable（{：unused argument（rownames = FALSE）

）出错

output$table <- renderDataTable({

if(is.null(fdata()))
{return ()}

if(input$flevel=="Weekly")
{
  if(input$flevel2=="Store")
  {
    data<-fdata()
    data <- data[data$SKU == input$xcol,]
    data <- data[data$Store == input$ycol,]
    data
  }
  else if(input$flevel2=="Region")
  {
    data<-fdata()
    data <- data[data$SKU == input$xcol,]
    data <- data[data$Region == input$ycol,]
    # data <- aggregate(Sales~Date+SKU+Region_Name,data = data,FUN = sum,na.rm=TRUE)
    data
  }
}
else if(input$flevel=="Monthly")
{
  if(input$flevel2=="Store")
  {
    dmsales<-MonthManp()
    data<-dmsales[[4]]
    data <- data[data$SKU == input$xcol,]
    data <- data[data$Store == input$ycol,]
    data
  }
  else if(input$flevel2=="Region")
  {
    dmsales<-MonthManp()
    data<-dmsales[[4]]
    data <- data[data$SKU == input$xcol,]
    data <- data[data$Region == input$ycol,]
    data
    # data <- aggregate(Sales~Date+product_id+loc_id+Channel_Name,data = data,FUN = sum,na.rm=TRUE)
  }
} }, options = list(searching = FALSE),rownames=FALSE)

我的所有括号都已正确关闭，rownames位于数据表内，而不是选项选项卡。任何人都可以帮助我。我是Shiny的新手。

Answer 1

renderDataTable是：

renderDataTable(expr, options = NULL, searchDelay = 500,
  callback = "function(oTable) {}", escape = TRUE, env = parent.frame(),
  quoted = FALSE, outputArgs = list())

您可以使用以下格式：

  output$table <- DT::renderDataTable({
    DT::datatable(df,options = list(searching=FALSE),rownames= FALSE)
  })

希望这有帮助！