Code Editor for app.R

library(shiny)
library(bslib)

ui <- fluidPage(
  theme = bs_theme(version = 5),
 layout_column_wrap(
   width = "200px",
   card(
    card_body(
      fillable = TRUE,
      "Here's some", tags$i("inline"), "text",
      actionButton("btn1", "A button")
    ),
   ),
   card(
    card_body(
      fillable = FALSE,
      "Here's some", tags$i("inline"), "text",
      actionButton("btn2", "A button")
    )
   )
 )
)

server <- function(input, output) {}

shinyApp(ui, server)