bottom align a button in R shiny

前端 未结 2 2029
北海茫月
北海茫月 2021-02-07 00:36

I cannot figure out a way to bottom align downloadButton with a selectizeInput, i.e.,

\"en

相关标签:
2条回答
  • 2021-02-07 01:12

    Other way to do it is to pass style argument in the column function.

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

    0 讨论(0)
  • 2021-02-07 01:37

    Found an ad-hoc fix with margin-top: 25px in the style 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) {
      }
    ))
    
    0 讨论(0)
提交回复
热议问题