Я использую виджет sliderTextInput из пакета shiningWidgets. Ползунок работает нормально, но моя метка для ползунка не отображается. Вместо моей метки отображается «[object Object]». Как я могу исправить эту проблему? Вот мой репрекс.
# reprex for slider problem
library(shiny)
library(shinyWidgets)
dateD <- seq.Date(as.Date("2017-01-01"),
Sys.Date()-1,by="day")
dateC <- character()
for (i in 1:length(dateD)) {
dateC[i] <- format(dateD[i],"%b %d, %Y")
}
strtRang <- c(dateC[1],dateC[length(dateC)])
ui <- fluidPage(
sliderTextInput("Dates",
label="Choose starting and ending dates:",
choices=dateC,
selected=strtRang,
dragRange = TRUE,
width="100%")
)
server <- function(input, output,session) {
observe({
updateSliderTextInput(session,inputId="Dates",
tags$b(tags$span(style="color:blue",
label="Choose starting and ending dates:")),
choices = dateC,
selected=strtRang)
})
}
shinyApp(ui, server)
Вы пытались заменить
tags$b(tags$span(style="color:blue", label="Choose starting and ending dates:"))
наlabel="Choose starting and ending dates:"
?Кажется, у вас проблема с вложением. Вы передаете
label=
функцииtags$span()
, а не функцииupdateSliderTextInput()
.