Создайте план значений вероятности и, соответственно, покажите результаты, используя R блестящий

Question

Я новичок в R блестящий, ниже мой код R:

library(shiny)
runApp(
list(
ui = fluidPage(
  titlePanel("Upload & Results")
  sidebarLayout(
  sidebarPanel(
  fileInput('file1', 'Choose csv File',accept = c(".csv")
                )),

    mainPanel(
  tableOutput('contents'))

  )
),
server = function(input, output){
  output$contents <- renderTable({
     req(input$file1)
    inFile <- input$file1  
     df_test=read.csv(inFile$datapath, 1)
     df1_test= df_test

    Probabilty_Score = predict(classifier, type = 'response',newdata = 
    df1_test)
    Output = as.factor(ifelse(Probabilty_Score<0.55,0,1))

    cm2 = table(df_test$Result, Output)

    print(caret::confusionMatrix(cm2))

  })
}
)
)

Это дает мне требуемые результаты.Здесь я хочу изменить свой код:

1. Я хочу создать Number bar(0 to 100), который содержит значения вероятности.

2. Когда я изменяюprobability значения, мои результаты confusion Matrix должны соответственно измениться.

Может кто-нибудь, пожалуйста, помогите мне.