我正在使用fillPage()
. 对于一个能够垂直拉伸的盒子,定义这个盒子的所有元素都需要有一个style = "height: 100%"
属性(或者我被告知)。有没有办法附加/更新style
元素和所有子元素的属性?
我已经制定了一个似乎适用于我的案例的实现,但我可能遗漏了一些细节。
library(htmltools)
tagAppendAttributesAll <- function(x, ...) {
if (!is.list(x)) return(x)
if (inherits(x, "shiny.tag.list")) {
x[] <- purrr::map(x[], tagAppendAttributesAll, ...)
x
} else {
x <- tagSetChildren(
x,
list = purrr::map(x$children[], tagAppendAttributesAll, ...)
)
tagAppendAttributes(x, ...)
}
}
tagSetFullHeightAll <- function(x) {
tagAppendAttributesAll(x, style = "height: 100%;")
}
print(tagSetFullHeightAll(
div(
div(
div("test"),
style = "height: 400px; "
)
)
))
#> <div style="height: 100%;">
#> <div style="height: 400px; height: 100%;">
#> <div style="height: 100%;"></div>
#> </div>
#> </div>
由reprex 包(v0.2.1.9000)于 2019 年 4 月 29 日创建