如何有条件地更改Shiny中的rhnosontable的CSS？

Question

在下面的示例中，如何更改标签$ style以便在 initial_stock 和 variable_predicted 之间更改最高数字的字体粗细？

>

基本上，我想要的是：如果initial_stock高于variable_predicted，则将其设为粗体，反之亦然。

我宁愿不通过rhandsontable条件渲染器执行此操作，因为由于错误，它破坏了我在该列上执行的其他格式。

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)