Update progress bar check to try on windows

app.R

library(shiny)
library(shinyWidgets)

moduleUI = function(id){
    ns = NS(id)
    
    tagList(actionButton(inputId = ns('update'),label = 'update'),
            progressBar(id = "progressBar", value = 50),
            checkboxInput(inputId = ns('checkbox'),label = 'shinyCheckbox',value = FALSE))
}

moduleServer = function(input,output,session){
    observeEvent(input$update,{
        print("I'm being observed")
        updateCheckboxInput(session,'checkbox',value = TRUE)
        updateProgressBar(session = session, id = "progressBar", value = 100)
        
    })
}


ui = fluidPage(
    moduleUI(id = 'module')
)


server = function(input,output,session){
    callModule(moduleServer,'module')
}

shinyApp(ui = ui, server = server)