0
241
VisualizaçõesCalendario Toastui en shiny: cambia el color de fondo del calendario para días específicos
Estoy tratando de cambiar el color de fondo de días específicos en un calendario de toastui en brillante. Intenté usar javascript para hacerlo pero no funcionó.
library(shiny) library(toastui) options(shiny.launch.browser = T) ui <- fluidPage( tags$script( HTML( "var x = [1,3,5,6]; x.map((n,i) => document.querySelectorAll('.tui-full-calendar-weekday-grid-line.tui-full-calendar-near-month-day').item(n).style.backgroundColor = '#00ff004c');" ) ), calendarOutput("my_calendar") ) server <- function(input, output) { output$my_calendar <- renderCalendar({ calendar( defaultDate = Sys.Date(), useNavigation = TRUE ) }) } if (interactive()) shinyApp(ui = ui, server = server)Ejecuto javascrip en la consola del navegador y allí funciona. La imagen muestra lo que quiero.
·
Juan Pablo Isaza
1 Respostas
Responde à pergunta0
Obtuve lo que quería usando shinyjs y observando _dates
library(shiny) library(toastui) library(shinyjs) options(shiny.launch.browser = T) ui <- fluidPage( shinyjs::useShinyjs(), calendarOutput("my_calendar") ) server <- function(input, output) { output$my_calendar <- renderCalendar({ calendar( defaultDate = Sys.Date(), useNavigation = TRUE ) }) observeEvent(input$my_calendar_dates, { shinyjs::runjs(" var x = [1,3,5,6]; x.map((n,i) => document.querySelectorAll('.tui-full-calendar-weekday-grid-line.tui-full-calendar-near-month-day').item(n).style.backgroundColor = '#00ff004c'); ") }) } if (interactive()) shinyApp(ui = ui, server = server)
·
Juan Pablo Isaza
Relatório
Responde à pergunta