如何在shiny中固定读取xlsm文件的行宽？

在shiny中固定读取xlsm文件的行宽，可以通过以下步骤实现：

1. 首先，确保已经安装了shiny和readxl等相关包。可以使用以下命令安装：

install.packages("shiny")
install.packages("readxl")

1. 在shiny的UI部分，添加一个文件上传的输入组件，用于选择要读取的xlsm文件。例如：

fileInput("file", "选择xlsm文件", accept = c(".xlsm"))

1. 在shiny的server部分，使用readxl包的read_excel函数读取xlsm文件，并将其存储为数据框。同时，使用shiny的renderDataTable函数将数据框渲染为可交互的表格。例如：

output$table <- renderDataTable({
  req(input$file)
  df <- readxl::read_excel(input$file$datapath)
  df
})

1. 默认情况下，shiny会根据表格内容自动调整列宽。如果要固定行宽，可以使用shiny的columnDefs选项来设置列的宽度。例如，将每一列的宽度设置为100像素：

output$table <- renderDataTable({
  req(input$file)
  df <- readxl::read_excel(input$file$datapath)
  datatable(df, options = list(columnDefs = list(list(width = '100px', targets = "_all"))))
})

这样，在shiny应用程序中选择并读取xlsm文件后，表格将以固定的行宽显示。

注意：以上代码中使用了shiny的datatable函数来渲染表格，需要确保已经安装了DT包。可以使用以下命令安装：

install.packages("DT")

推荐的腾讯云相关产品：腾讯云服务器（https://cloud.tencent.com/product/cvm）