在 R Shiny 中旋转可反应的 headers
Rotate headers of a reactable in R Shiny
请参阅下面一个非常简单的 R shiny 应用程序,该应用程序呈现可反应。
https://kormir.shinyapps.io/reactable_example/
library(shiny)
library(reactable)
ui <- fluidPage(
tags$head(tags$style(HTML('.ReactTable {border-collapse:collapse; }
.ReactTable .rt-thead .rt-td, .ReactTable .rt-thead .rt-th {
height: 200px;
word-wrap: break-word;
transform:
translate(10px, -25px)
rotate(-80deg);
}'))),
reactableOutput('rt')
)
server <- function(input, output) {
output$rt <- renderReactable({
reactable(mtcars[1:4,1:5], fullWidth = F)
})
}
# Run the application
shinyApp(ui = ui, server = server)
在 tags$head 中你可以看到我尝试旋转 headers 但结果很糟糕:
有没有更简单的方法来正确旋转 headers?
谢谢
不确定您的预期结果是什么样的,但是这个怎么样:
library(shiny)
library(reactable)
ui <- fluidPage(reactableOutput('rt'))
server <- function(input, output) {
output$rt <- renderReactable({
reactable(
mtcars[1:4, 1:5],
fullWidth = F,
defaultColDef = colDef(
align = "center",
minWidth = 70,
headerStyle = list(
`white-space` = "nowrap",
`transform-origin` = "50% 50%",
transform = "rotate(-90deg)",
`margin-top` = "10px",
`margin-bottom` = "10px",
borderColor = "#ffffff"
)
)
)
})
}
shinyApp(ui = ui, server = server)
这个 answer 对到达这里很有用。
请参阅下面一个非常简单的 R shiny 应用程序,该应用程序呈现可反应。
https://kormir.shinyapps.io/reactable_example/
library(shiny)
library(reactable)
ui <- fluidPage(
tags$head(tags$style(HTML('.ReactTable {border-collapse:collapse; }
.ReactTable .rt-thead .rt-td, .ReactTable .rt-thead .rt-th {
height: 200px;
word-wrap: break-word;
transform:
translate(10px, -25px)
rotate(-80deg);
}'))),
reactableOutput('rt')
)
server <- function(input, output) {
output$rt <- renderReactable({
reactable(mtcars[1:4,1:5], fullWidth = F)
})
}
# Run the application
shinyApp(ui = ui, server = server)
在 tags$head 中你可以看到我尝试旋转 headers 但结果很糟糕:
有没有更简单的方法来正确旋转 headers?
谢谢
不确定您的预期结果是什么样的,但是这个怎么样:
library(shiny)
library(reactable)
ui <- fluidPage(reactableOutput('rt'))
server <- function(input, output) {
output$rt <- renderReactable({
reactable(
mtcars[1:4, 1:5],
fullWidth = F,
defaultColDef = colDef(
align = "center",
minWidth = 70,
headerStyle = list(
`white-space` = "nowrap",
`transform-origin` = "50% 50%",
transform = "rotate(-90deg)",
`margin-top` = "10px",
`margin-bottom` = "10px",
borderColor = "#ffffff"
)
)
)
})
}
shinyApp(ui = ui, server = server)
这个 answer 对到达这里很有用。