0
239
ViewsCalendario 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 answers
Answer question0
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
Report
Answer question