Html 将标题板右侧的actionButton置于闪亮的位置
我正在用这个UI构建一个闪亮的应用程序。这里是Html 将标题板右侧的actionButton置于闪亮的位置,html,css,r,shiny,Html,Css,R,Shiny,我正在用这个UI构建一个闪亮的应用程序。这里是nhl logo.png ui您可以在包含按钮的span中添加标题。span和div之间的区别在于span是内联的(一个div是一个块) ui您可以在包含按钮的span中添加标题。span和div之间的区别在于span是内联的(一个div是一个块) ui填充选项可能适合您,您可以像这样查看:div(style=“position:absolute;right:2em;top:10px;”,…@AlexanderLeow您的div似乎可以工作,但按钮
nhl logo.png
ui您可以在包含按钮的span
中添加标题。span
和div
之间的区别在于span
是内联的(一个div
是一个块)
ui您可以在包含按钮的span
中添加标题。span
和div
之间的区别在于span
是内联的(一个div
是一个块)
ui填充选项可能适合您,您可以像这样查看:div(style=“position:absolute;right:2em;top:10px;”,…
@AlexanderLeow您的div
似乎可以工作,但按钮正好位于右上边框。有没有可能我可以稍微降低按钮的高度,使其不在边框旁边?只需在右:
和上:
后面的数字,它们定义了到右边和顶部的距离,如下所示名称为says.padding选项可能适用于您,您可以像这样查看:div(style=“position:absolute;right:2em;top:10px;”,…
@AlexanderLeow您的div
似乎可以工作,但按钮正好位于右上边框。有没有可能我可以稍微降低按钮的高度,使其不在边框旁边?只需在右:
和上:
后面的数字,它们定义了到右边和顶部的距离,如下所示名字上写着。
ui <- fluidPage(
titlePanel(tagList(
img(src = "nhl-logo.png", height = 60, width = 60),
"PLAY-BY-PLAY"),
windowTitle = "NHL Play-by-Play"),
div(style = "position:absolute;right:2em;",
actionButton('load_inputs', 'Load inputs'),
actionButton('save_inputs', 'Save inputs')
),
hr(),
fluidRow(...)
ui <- fluidPage(
titlePanel(tagList(
img(src = "nhl-logo.png", height = 60, width = 60),
span("PLAY-BY-PLAY",
span(actionButton('load_inputs', 'Load inputs'),
actionButton('save_inputs', 'Save inputs'),
style = "position:absolute;right:2em;")
)
),
windowTitle = "NHL Play-by-Play"
),
hr(),
fluidRow()
)
server <- function(input, output, session) {
}
shinyApp(ui, server)