đáy sắp xếp một nút trong R bóng

Question

tôi không thể tìm ra một cách để class đáy downloadButton với một selectizeInput, tức là,

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

Đặt align="bottom" bất cứ nơi nào và ở khắp mọi nơi không ném một thông báo lỗi, nhưng cũng không có hiệu ứng mong muốn. Cố gắng chơi xung quanh với các thẻ phong cách của các nút, nhưng cũng ra chiều sâu của tôi.

Answer 1

Tìm thấy một ad-hoc sửa chữa với margin-top: 25px trong thẻ style ...

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

cách khác để làm điều đó là để vượt qua style luận trong hàm cột.

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