错误renderDataTable

Question

当我试图运行该代码作为R A闪亮的应用程序，我面对这个错误：

Error in 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】这个params是：

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) 
    }) 

希望这有助于！