Hi @GraemeS. You may try to use table instead of column.
library(shiny)
ui <- fluidPage(
fluidRow(column(12, align = "center", "...")),
tags$table(style = "width: 100%",
tags$tr(tags$td(style = "width: 50%",
align = "right",
actionButton("Button", label = "BUTTON")),
tags$td(textOutput("TextOutput"))))
# fluidRow(
# column(6, align = "right", actionButton("Button", label = "BUTTON")),
# column(6, align = "left", textOutput("TextOutput"))
# )
)
server <- function(input, output) {
observeEvent(input$Button, {
output$TextOutput <- renderText("BUTTON PRESSED")
})
}
# Run the application
shinyApp(ui = ui, server = server)