progressbar max value

[antoine4ucsd]

Hello
I am trrying to vary the max value of progress bar but it is always set to 100... anything I am missing?

thank you for your help and for this amazing suite of tools!

# Define UI
ui <- dashboardPage(
        title = "Simple Progress Dashboard",
        sidebar = dashboardSidebar(
                disable = TRUE
        ),
        header = dashboardHeader(
                status = "lime",
                title = dashboardBrand(
                        title = "WHO Daily Report",
                        color = "olive",
                )
        ),
        body = dashboardBody(
                fluidRow(
                        bs4Card(
                                title = "Progress",
                                width = 6,
                                status = "primary",
                                solidHeader = TRUE,
                                shinydashboardPlus::progressBar(
                                        value = 50, 
                                        max=52,
                                        status = "info",
                                        striped = TRUE,
                                        animated = TRUE
                                )
                        )
                )
        )
)