R如何使列名垂直

Question

我有下面的代码来使用excelR输出一个mtcar表。我想把列名放在垂直位置而不是水平位置，我该怎么做？它需要在excelR包中，因为用户需要更新一些信息。谢谢

library(shiny)
library(excelR)
ui <- fluidPage(
excelOutput("v1")
)
server <- function(input, output, session) {
df <- reactive({mtcars})
output$v1 = renderExcel({
excelTable(df())
})
}
shinyApp(ui, server)

编辑：

下面gdevaux的回答非常感谢，他向我展示了它在他的电脑上运行。但不知何故，我们无法弄清楚出了什么问题，它在我的Mac或Windows上不工作，尝试了safari和chrome，R版本更新并尝试从外部浏览器打开。

其他人能运行下面的代码看看是否有效吗？如果有人知道我的代码不起作用的原因是什么？

Answer 1

你可以用CSS来实现。查看有关文本方向属性的CSS文档，了解方向的各种可能性。

library(shiny)
library(excelR)
ui <- fluidPage(

# add CSS
tags$head(
tags$style(HTML("
#your_table .resizable {
writing-mode: vertical-rl;
-webkit-text-orientation: sideways;
text-orientation: sideways;
}
"))
),

div(
id = "your_table",
excelOutput("v1")
)

)
server <- function(input, output, session) {
df <- reactive({mtcars})

output$v1 = renderExcel({
excelTable(df())
})
}
shinyApp(ui, server)

编辑：不能在RStudio查看器窗格或窗口中工作，必须使用"编辑"；运行外部"；