Как исправить ширину строки в файле XLSM чтения в блестящем?

Question

Как мы можем зафиксировать ширину каждого ряда.Вот пример кода и пример файла данных ( пример данных ) для воспроизведения ошибки:

library(shiny)
library(readxl)

runApp(
  list(
    ui = fluidPage(
      titlePanel("Use readxl"),
      sidebarLayout(
        sidebarPanel(
          fileInput('file1', 'Choose xlsx file',
                    accept = c(".xlsx")
          )
        ),
        mainPanel(
          tableOutput('contents'))
      )
    ),
    server = function(input, output){
      output$contents <- renderTable({

        req(input$file1)

        inFile <- input$file1

        readxl::read_excel(inFile$datapath, 1)
      })
    }
  )
)

Как мы видим, ширина 1-й и 2-й строк не одинакова.Есть ли возможность использовать «DT» для фиксации ширины строки? Ширина строки для чтения xlsm

Answer 1

Если вы наберете ?renderTable в консоли R (или посмотрите на блестящий веб-сайт ), вы увидите страницу справки. Помимо прочего, он может быть полезен при вызове renderTable(). Попробуйте установить его большим, например,

output$contents <- renderTable({
  iris 
}, spacing = 'l')

Дайте мне знать, если это не сработает для вас