#css #r #shiny
#css #r #блестящий
Вопрос:
Как мне отрегулировать расстояние между концом таблицы и предложением «Разместить очень близко к столу»?
R Script
library("shiny")
library("shinydashboard")
shinyApp(
ui = dashboardPage(
dashboardHeader(disable = TRUE),
dashboardSidebar(width = 0),
body <- dashboardBody(
fluidRow(
tabBox(
id = "tabset1", height = "250px",
tabPanel("Tab1", "First tab content"),
tabPanel("Tab2", "Tab content 2")
),
),
fluidRow(htmlOutput("last_updated"))
)
),
server = function(input, output) {
# The currently selected tab from the first box
output$tabset1Selected <- renderText({
input$tabset1
})
output$last_updated <- renderText({
paste("<font size='1px;'>amp;ensp;amp;ensp;Place very close to table</font>")
})
}
)
Ответ №1:
Возможность:
body <- dashboardBody(
div(
style = "display: flex; flex-direction: column;",
tabBox(
id = "tabset1", height = "250px",
tabPanel("Tab1", "First tab content"),
tabPanel("Tab2", "Tab content 2")
),
div(style = "margin-top: -20px;"),
htmlOutput("last_updated")
)
)
Комментарии:
1. Я всегда использовал fluidPage для макета блестящей страницы. Ваш ответ использует «flex» вместо fluidPage для наложения макета? Существуют ли общие правила, когда вы будете использовать fluidPage и когда вы будете использовать Flex?
2. @ixodid Ты имеешь в виду fluidRow ? A
fluidRow
— это просто adiv
с определенным классом, предназначенный для содержания некоторыхcolumn
элементов. Здесь я использую flexbox в направлении столбца, чтобы наложить укладку. Сначала я подумал, что flexbox не нужен, потому что элементы HTML укладываются «по умолчанию», но по какой-то причине (конечно, свойство CSStabBox
) здесь это не так.