Как условно изменить CSS rhandsontable в Shiny? - PullRequest
Новая
       30

Как условно изменить CSS rhandsontable в Shiny?

0 голосов
/ 17 октября 2018

В приведенном ниже примере, как я могу изменить его так, чтобы теги $ style изменяли вес шрифта наибольшего числа между initial_stock и variable_predicted ?

По сути, я хочу: если initial_stock выше, чем variable_predicted, то выделите его жирным шрифтом и наоборот.

Я бы предпочел не делать это через условный рендеринг условного рендеринга, потому что он нарушает другое форматирование, которое я делаю в столбце из-за ошибок. 

library(shiny)
library(rhandsontable)

# Define UI for application that draws a histogram
ui <- fluidPage(
        # Show a plot of the generated distribution
        mainPanel(
            tags$head(tags$style(HTML('
                                      #hot tr:nth-child(2) td:nth-child(4) {
                                      font-weight: 900;
                                      }'))),
            rHandsontableOutput("hot")
        )
    )

server <- function(input, output) {


    output$hot <- renderRHandsontable({
        df <- data.frame(
            dept = c(rep('FIREDEPT', 5), rep('WATERDEPT', 5)),
            month = 201808:201812,
            initial_stock = sample(75884:85347, 10),
            variable_predicted = sample(50000:100000, 10),
            variable2_predicted= sample(1:100, 10) / 100)

        rhandsontable(df)
    })
}

# Run the application 
shinyApp(ui = ui, server = server)
...