unten eine Schaltfläche in R glänzend

ausrichten ich nicht einen Weg nach unten align downloadButton mit einem selectizeInput herausfinden können, das heißt,unten eine Schaltfläche in R glänzend

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

align="bottom" überall platzieren und überall eine Fehlermeldung nicht wirft, hat aber auch nicht den gewünschten Effekt. Habe versucht, mit den Style-Tags der Buttons herumzuspielen, aber weit über meine Tiefe hinaus.

Quelle

2015-03-10 gjabel

Gefunden ein Ad-hoc-fix mit margin-top: 25px im Stil-Tag ...

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

Quelle

2015-03-10 10:32:46 gjabel

ja ich in diesem suchen, wie der Name des selectinput ‚Dateityp‘ empfehlen, würde wirkt sich auf die Platzierung –

Dies scheint keinen Unterschied für mich zu machen, wenn ich es versuchen. Allerdings verwende ich 'uiOutput()'. Könnte das einen Unterschied machen? – theforestecologist

anderer Weg, es zu tun ist, style Argument in der Spalte Funktion zu übergeben.

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

Quelle

2017-08-29 09:18:33 r4ndomw4lk

Antwort

Verwandte Themen