Мне нужно динамически обновлять виджет knobInput из функции reactivePoll, но значение knobInput не работает. Как я могу это исправить?

Question

#
# My fluidpage using a single knobInput.
# Take a look at value entry where i put the textOutput("percent_air")
#
ui <- fluidPage(
    titlePanel("knobInput Teste"),
    mainPanel(
        fluidRow(
            column(3, 
                knobInput(
                    inputId = "knob1",
                    skin = NULL,
                    readOnly = TRUE,
                    label = h4("AIR Percent"),
                    value = textOutput("percent_air"),
                    min = 0,
                    displayPrevious = TRUE,
                    fgColor = "#00ccff",
                    inputColor = "#428BCA",
                    displayInput = TRUE,
                    immediate = TRUE
                ),
                    "outside, the value  normally appears", h1(textOutput("percent_air"))
            )
        )
    )
)
# 
# My server block returning the PC_AIR field from a remote database
# The result is storaged on "output$percent_air" variable
#
server <- shinyServer(function(input, output, session) {
    get_last_db <- reactivePoll(1000,session,
    checkFunc = function() {
        if (TRUE) {
            dbGetQuery(COn,"SELECT PC_AIR FROM TB_FLOW_METER ORDER BY ID DESC LIMIT 1;")
        }
        else{ "" }
        },
        valueFunc = function() {
            data_record <- dbGetQuery(COn, "SELECT PC_AIR FROM TB_FLOW_METER ORDER BY ID DESC LIMIT 1;")
            return(data_record)
        }
    )
    output$percent_air <- renderText({
        get_last_db()$PC_AIR
    })
})
# 
# Finally run the application...
#
shinyApp(ui = ui, server = server)

Мне нужно динамически обновлять виджеты knobInput (точнее их числовое c значение), загруженные из функции reactivePoll. Я должен сказать, что у меня есть некоторое представление об использовании reactivePoll с другими виджетами #, которые работают нормально, но knobInput, похоже, не работает. Может ли кто-нибудь здесь помочь мне в этом? Как вы можете видеть, textOutput ("percent_air"), присвоенный значению, внутри knobInput не работает, но снаружи работает нормально.

Пожалуйста, взгляните на этот файл gif