2015-03-10 17 views
12

non riesco a capire un modo per allineare fondo downloadButton con un selectizeInput, vale a dire,fondo allineare un pulsante R lucido

enter image description here

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

Posizionamento align="bottom" ovunque e ovunque non genera un messaggio di errore, ma non ha nemmeno l'effetto desiderato. Ho provato a giocare con i tag stile dei pulsanti, ma ho approfondito la mia profondità.

risposta

15

Trovato un ad-hoc fissare con margin-top: 25px nel tag stile ...

enter image description here

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

sì che stavo per suggerire esaminando questo come il nome del selectinput 'Tipo di file' influenza il posizionamento –

+1

Questo non sembra fare alcuna differenza per me quando ho provato. Comunque, sto usando 'uiOutput()'. Questo potrebbe fare la differenza ?? – theforestecologist

6

Altro modo per farlo è quello di passare style argomento della funzione di colonna.

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