Quiero cambiar el color de toda la fila cuando el usuario desmarca una casilla de verificación presente en una de las celdas. (Podrían ser varias filas)
Hasta ahora solo puedo cambiar el color de la celda que contiene la casilla de verificación en lugar de toda la fila. En este ejemplo, toda la fila 6 debe estar coloreada.
library(shiny) library(rhandsontable) # Define UI for application that draws a histogram ui <- fluidPage( rHandsontableOutput('table') ) # Define server logic required to draw a histogram server <- function(input, output) { df <- data.frame(alphabet = letters[1:10], include = TRUE) output$table <- rhandsontable::renderRHandsontable({ rhandsontable(df, height = 500) %>% hot_col(col = "include", renderer = " function (instance, td, row, col, prop, value, cellProperties) { Handsontable.renderers.CheckboxRenderer.apply(this, arguments); var col_value = instance.getData()[row][1] if (col_value === false) { td.style.background = 'pink'; } } ") }) } # Run the application shinyApp(ui = ui, server = server)Resuelto.
library(shiny) library(rhandsontable) # Define UI for application that draws a histogram ui <- fluidPage( rHandsontableOutput('table') ) # Define server logic required to draw a histogram server <- function(input, output) { df <- data.frame(alphabet = letters[1:10], include = TRUE) output$table <- rhandsontable::renderRHandsontable({ rhandsontable(df, height = 500) %>% hot_col(col = "include", renderer = " function (instance, td, row, col, prop, value, cellProperties) { Handsontable.renderers.CheckboxRenderer.apply(this, arguments); var col_value = instance.getData()[row][1] if (col_value === false) { td.style.background = 'pink'; } } ") %>% hot_col(col = "alphabet", renderer = " function (instance, td, row, col, prop, value, cellProperties) { Handsontable.renderers.TextRenderer.apply(this, arguments); var col_value = instance.getData()[row][1] if (col_value === false) { td.style.background = 'pink'; } } ") }) }