if (FALSE) { # interactive()
popover(
shiny::actionButton("btn", "A button"),
"Popover body content...",
title = "Popover title"
)
library(shiny)
ui <- page_fixed(
card(class = "mt-5",
card_header(
popover(
uiOutput("card_title", inline = TRUE),
title = "Provide a new title",
textInput("card_title", NULL, "An editable title")
)
),
"The card body..."
)
)
server <- function(input, output) {
output$card_title <- renderUI({
list(input$card_title, bsicons::bs_icon("pencil-square"))
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab