Я создал панель управления R Shiny с датируемым выводом. Проблема, с которой я борюсь, заключается в том, что я хочу, чтобы «подписи к данным» были на немецком языке.
Например, я хочу, чтобы поле поиска объекта данных было помечено как "Suche:"
Я нашел этот фрагмент кода, который прекрасно работает. Но я не могу найти документацию или справочную страницу, которая дает полный список аргументов списка, которые могут быть переданы на язык.
options(DT.options = list(pageLength = 5, language = list(search = 'Filter:')))
Я также получил совет установить для тега "html lang" значение "de". Я не очень знаком с использованием HTML в Shiny (панель инструментов), поэтому я не знаю, как это реализовать.
Любая помощь приветствуется! Спасибо, ребята!
Редактировать: я добавил упрощенную версию своего кода:
library(semantic.dashboard)
# ui
ui <-dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
### some input,
### some plotOutput (output$plot),
### some dataTableOutput (output$table) (based on brushed points in the plotOuput)
)
)
# server
server <- function(input, output) {
### This works but I can't find any other arguments that can be passed to language:
options(DT.options = list(pageLength = 5, language = list(search = 'Filter:')))
data <- ### some data
output$plot <- renderPlot({
### some plot based on data
})
output$table <- DT::renderDataTable({
req(input$plot_brush)
brushedPoints(data, brush = input$plot_brush) %>%
select(### some variables)
})
# shinyApp
shinyApp(ui, server)