底部对齐 R shiny 中的按钮

Question

我想不出将 downloadButton 与 selectizeInput 底部对齐的方法，即

library(shiny)

runApp(list(
  ui = shinyUI(fluidPage(
    fluidRow(align="bottom",
      column(12, align="bottom",
             h4("Download Options:"),
             fluidRow(align="bottom", 
                      column(6, selectizeInput("plot_dl", "File Type", width="100%",  
                                               choices = list("PDF"="pdf","PNG"="png"))),
                      column(3, downloadButton('plot1_dl', 'Left Plot')),
                      column(3, downloadButton('plot2_dl', 'Right Plot'))
             )
      )
    ),
    tags$style(type='text/css', "#plot1_dl { width:100%; vertical-align:bottom}"),
    tags$style(type='text/css', "#plot2_dl { width:100%;}")
  )),
  server = function(input, output) {
  }
))

随处放置align="bottom"不会抛出错误消息，但也没有达到预期的效果。尝试使用按钮的样式标签，但超出了我的理解范围。

Answer 1

在样式标签中找到了 margin-top: 25px 的临时修复...

library(shiny)

runApp(list(
  ui = shinyUI(fluidPage(
     h4("Download Options:"),
     fluidRow(
       column(6, selectizeInput("plot_dl", "File Type", width="100%",
                                choices = list("PDF"="pdf","PNG"="png"))),
       column(3, downloadButton('plot1_dl', 'Left Plot')),
       column(3, downloadButton('plot2_dl', 'Right Plot'))
     ),
     tags$style(type='text/css', "#plot1_dl { width:100%; margin-top: 25px;}"),
     tags$style(type='text/css', "#plot2_dl { width:100%; margin-top: 25px;}")
  )),
  server = function(input, output) {
  }
))

Answer 2

其他方法是在列函数中传递 style 参数。

<pre> runApp(list( ui = shinyUI(fluidPage( h4("Download Options:"), fluidRow( column(6, selectizeInput("plot_dl", "File Type", width="100%", choices = list("PDF"="pdf","PNG"="png"))), column(3, style = "margin-top: 25px;", downloadButton('plot1_dl', 'Left Plot')), column(3, style = "margin-top: 25px;", downloadButton('plot2_dl', 'Right Plot')) ) )), server = function(input, output) { } )) </pre>

底部对齐 R shiny 中的按钮

bottom align a button in R shiny

html

css

r

fluid-layout

shiny