r - 条件付きの光沢のあるダッシュボード ボックスのステータス/スタイル

Question

基本的に、ユーザーに警告を通知するために、いくつかの入力を条件として、shinydashboard ボックスのステータス/スタイルを変更したいと考えています (以下の例を参照)。実際、shinyjs とその extendShinyjs 機能を使用して、問題を解決することができました。しかし、shinyjs の removeClass / addClass 関数に基づく最初の試みが失敗した理由を理解したいと思います。そこで、私の質問は次のとおりです。以下のサンプル アプリの 2 番目のボックスのアプローチが失敗するのはなぜですか?

アプリを実行するときは、12 より大きい値を入力してください;)

library(shiny)
library(shinydashboard)
library(shinyjs)

jscode <- "
shinyjs.warningBox = function(boxid) {
$('#' + boxid).parent().removeClass('box-success').addClass('box-warning');
};
shinyjs.successBox = function(boxid) {
$('#' + boxid).parent().removeClass('box-warning').addClass('box-success');
}
"

dbBody <- dashboardBody(
    useShinyjs(),
    extendShinyjs(text = jscode),

    box(
        id = "input-box-1",
        title = "Here it works", 
        status = "success",
        solidHeader = TRUE,

        numericInput(
            inputId = "n1", 
            label = "Do not enter anything larger than 12", 
            value = 10)
    ),

    box(
        id = "input-box-2",
        title = "Here it doesn't", 
        status = "success",
        solidHeader = TRUE,

        numericInput(
            inputId = "n2", 
            label = "Do not enter anything larger than 12", 
            value = 10)
    )
)

server <- function(input, output) {
    observe({
        if (input$n1 > 12) js$warningBox("input-box-1")
        else js$successBox("input-box-1")
    })

    observe({
        selector <- "$('#input-box-2').parent()"
        if (input$n2 > 12) {
            shinyjs::removeClass(
                selector = selector, class = "box-success")
            shinyjs::addClass(
                selector = selector, class = "box-warning")
        } else {
            shinyjs::removeClass(
                selector = selector, class = "box-warning")
            shinyjs::addClass(
                selector = selector, class = "box-success")
        }
    })
}

shinyApp(
    ui = dashboardPage(
        dashboardHeader(title = "Box styles"),
        dashboardSidebar(),
        dbBody
    ),
    server = server
)