与闪亮按钮

Question

任何人都可以帮助使此按钮与其他输入小部件垂直内联（在视觉上，而不是从CSS的角度）吗？

require(shiny)

ui = fluidPage(
  verticalLayout(
    fluidRow(style = "background-color: orange;",
       column(3, actionButton('button', 'A button')),
       column(3, textInput('text', 'text', width = '100%')),
       column(3, selectizeInput('selectize1', 'letters', letters, multiple=TRUE)),
       column(3, selectizeInput('selectize2', 'LETTERS', LETTERS, multiple=TRUE))
    )
  )
)

server = function(input, output, session) { NULL }

shinyApp(ui = ui, server = server)

谢谢

Answer 1

使用div（）函数编辑html元素

function Step(cellNr):
    foreach neighborNr in neighbors_of(cellNr):
        if array_value(neighborNr) < array_value(cellNr) AND cell_is_not_marked(neighborNr):
            mark_cell(neighborNr)
            Step(neighborNr)
Step(centerNr)

Answer 2

做到了：

tags$head(tags$style(HTML("#button { margin-top: 25px; } ")))