How can one change the text (I need basically the translation to another language) of the expand button (which is created by full_screen = TRUE
) and the close button in the full screen?
MWE:
library(shiny)
library(bslib)
# Define UI
ui <- fluidPage(
theme = bs_theme(bootswatch = "minty"),
titlePanel("Table in a card()"),
mainPanel(
card(
title = "Data Table",
full_screen = TRUE,
tableOutput("mytable")
)
)
)
# Define server logic
server <- function(input, output) {
# Generate sample data
data <- data.frame(
Name = c("John", "Jane", "Alice", "Bob", "Charlie", "David"),
Age = c(25, 30, 35, 40, 45, 50),
Score = c(80, 75, 90, 85, 88, 92)
)
# Render table
output$mytable <- renderTable({
filtered_data <- data
})
}
# Run application
shinyApp(ui = ui, server = server)