[英]renderUI does not work with fillPage
我有以下简单工作的闪亮应用程序:
if (interactive()) {
ui <- fillPage(
fillRow(
fillCol(".", style = "background-color: red;", height = "10%"),
fillCol(".", style = "background-color: blue;", height = "10%")
)
)
server <- function(input, output, session) {}
shinyApp(ui, server)
}
结果正是我想要的,但是如果我尝试使用renderUI
实现相同的效果, renderUI
得到一个空页面。
我试图用下面的代码来做到这一点:
if (interactive()) {
ui <- fillPage(
uiOutput("back")
)
server <- function(input, output, session) {
output$back <- renderUI({
fillRow(
fillCol(".", style = "background-color: red;", height = "10%"),
fillCol(".", style = "background-color: blue;", height = "10%")
)
})
}
shinyApp(ui, server)
}
当使用height:100%
工作时,这是一个典型的问题。 uiOutput的使用将在您周围为renderUI
的结果添加一个div,不幸的是,该div的默认高度为0。 该固定也将这个div的高度设置为100%
。
if (interactive()) {
ui <- fillPage(
uiOutput("back",style = "height:100%;")
)
server <- function(input, output, session) {
output$back <- renderUI({
fillRow(
fillCol(".", style = "background-color: red;", height = "10%"),
fillCol(".", style = "background-color: blue;", height = "10%")
)
})
}
shinyApp(ui, server)
}
希望这可以帮助!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.