我不太清楚你想用flextable实现什么。当你将flextable对象传递给rhandsontable时，你的代码返回一个错误。你只能有两个。你可以使用flextable或rhandsontable创建你的表。但是不可能先创建一个具有固定列宽的flextable，然后再转换它如果你想要后者，那么你必须使用rhandsontable包提供的选项来设置列宽。
从调整rhandsontable大小的文档中，您可以使用hot_cols()的colWidths=参数设置列宽。此外，rhandsontable()有一个参数rowHeaderWidth来设置行名称列的宽度。
下面我将rowHeaderWidth设置为200，并使用数字向量将第一列的宽度设置为100，将第二列和第三列的宽度设置为50。
注意事项：对于列布局，您总共只有12列，即当您希望两个表都在一行中时，将两个表的列宽设置为7将不起作用。因此，我将两个表的宽度设置为6。

library(shinydashboard)
library(shiny)
library(rhandsontable)

df1 <- data.frame(
  "Сolumn1" = as.character(),
  "Column2" = as.numeric(),
  "Сolumn3" = as.character()
)

df2 <- data.frame(
  "Сolumn1" = as.character(),
  "Column2" = as.numeric(),
  "Сolumn3" = as.character()
)

ui <- dashboardPage(
  dashboardHeader(title = "Assets"),
  dashboardSidebar(
    menuItem("Home", tabName = "home"),
    menuItem("Current assets",
      tabName = "CurrentAssets",
      menuSubItem("Inventory", tabName = "inventory")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "inventory",
        column(
          width = 6,
          "df1",
          rHandsontableOutput("Table1")
        ),
        column(
          width = 6,
          "df2",
          rHandsontableOutput("Table2")
        )
      )
    )
  )
)

server <- function(input, output, session) {
  output$Table1 <- renderRHandsontable({
    rhandsontable(df1, stretch = "all", rowHeaderWidth = 200) |> 
      hot_cols(colWidths = c(100, 50, 50))
  })

  output$Table2 <- renderRHandsontable({
    rhandsontable(df2, stretch = "all", rowHeaderWidth = 200) |> 
      hot_cols(colWidths = c(100, 50, 50))
  })
}

shinyApp(ui, server)

字符串

的数据