Shiny调用renderDT时报错'data' must be 2-dimensional如何解决

• 核心原因：renderDT() 要求返回二维数据结构（数据框/矩阵）用于渲染，你提供的代码最后一行是赋值语句mydata$B[mydata$B=="Old Name"]<-"New Name"，R中赋值语句的返回值为右侧的赋值内容（即字符串"New Name"），DT接收到一维字符串就会触发该报错。
• 次要注意点：read_excel() 读取文件后默认返回tibble（tbl_df）类型，属于data.frame的子类，并非普通列表。如果需要和base R数据框操作完全兼容可显式转换为普通数据框。

代码修改点： #

1. 读取文件后可显式转为普通data.frame，避免tibble的特殊操作规则影响
2. 删除列时添加drop = FALSE参数，避免只剩1列时自动降维为向量
3. 数据处理完成后最后一行返回mydata对象给DT渲染

修改后完整可运行代码如下：

library(shiny)
library(readxl)
require(DT)

runApp(
  list(
    ui = fluidPage(
      titlePanel("Load Data"),
      sidebarLayout(
        sidebarPanel(
          fileInput('file1', 'Choose xlsx formatted file',
                    accept = c(".xlsx")
          )
        ),
        mainPanel(
          DTOutput('contents'))
      )
    ),
    server = function(input, output){
      
      output$contents <- renderDT({
        req(input$file1)
        
        inFile <- input$file1
        # 读取后转为普通data.frame
        mydata <- as.data.frame(read_excel(inFile$datapath, 1))
        # 删除第三列，添加drop=FALSE避免降维
        mydata <- mydata[, -3, drop = FALSE]
        # 修改值的操作逻辑没问题
        mydata$B[mydata$B == "Old Name"] <- "New Name"
        # 关键：最后返回处理完成的整个数据框
        return(mydata)
      })
      
    }
  )
)

如果需要确认mydata的存储类型，可以在读取文件后添加代码：

print(class(mydata))
print(is.data.frame(mydata))

运行App时在R控制台即可查看输出，tibble类型的返回结果会是c("tbl_df", "tbl", "data.frame")，is.data.frame返回TRUE，说明它本身符合data.frame的特性。

内容的提问来源于stack exchange，提问作者Will R