在闪亮的应用程序中将两个操作按钮并排放置

Question

我正在尝试在侧边栏中的 Shiny 应用中放置两个操作按钮。这是可能吗？如果我可以保持简单，我不想求助于使用列

ui.R:
fluidPage(
 # Application title
 titlePanel("Place Two Buttons"),

 sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(

  actionButton("read", "Change"),
  hr(),
  actionButton("write", "Change") 
),


mainPanel(
  plotOutput("plot")
  )
)
)

和我的服务器：

server.R:
function(input, output, session) {

}

到目前为止，我发现的所有内容都是使用 css 表达式或使用 Bootstrappage。有什么帮助吗？

Answer 1

您可以删除hr() 以使两个按钮并排：

ui <- fluidPage(
  # Application title
  titlePanel("Place Two Buttons"),

  sidebarLayout(
    # Sidebar with a slider and selection inputs
    sidebarPanel(
      actionButton("read", "Change"),
      actionButton("write", "Change") 
    ),

    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output, session) {}
shinyApp( ui = ui, server = server )

这给出了这个：