0
242
VistasCalendario 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 Respuestas
Responde la pregunta0
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
Denunciar
Responde la pregunta