Unten richten Sie eine Schaltfläche in R glänzend aus

Question 1

Ich kann keine Möglichkeit finden, unten auszurichten downloadButton mit einer selectizeInputdh,

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) {
  }
))

Platzierung align="bottom" irgendwo und überall wirft keine Fehlermeldung, hat aber auch nicht den gewünschten Effekt. Ich habe versucht, mit den Stil-Tags der Schaltflächen herumzuspielen, bin aber weit über meine Tiefe hinaus.

Question 2

Ad-hoc-Fix mit gefunden margin-top: 25px im Style-Tag …

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) {
  }
))

Question 3

Ein anderer Weg, es zu tun, ist zu bestehen style Argument in der Spaltenfunktion.


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) {
        }
))