我正在R Shiny中构建一个具有百分比滑块的仪表板。我正在尝试使其成为反应性函数，以便在用户移动滑块时调整数据表。但是我一直在尝试使它动态化，尽管代码没有出错，但仍然无法正常工作。下面的代码段：

ui <- dashboardPage(

  dashboardBody(fluidRow(column(width=3,sliderInput("slider","Threshold:",100,post = " %",50))))

)

server <- shinyServer(function(input,output,session){

reactive({

Value = as.character(c(input$slider))

})  

  output$Data_Table <- 

    renderTable({  

  Tbl_Data[which(Tbl_Data[,5]>input$Value),]

    })    

})

shinyApp(ui,server)

任何帮助将不胜感激。

谢谢

编辑-在下面测试数据，很抱歉，我不知道如何以表格格式放置数据：

公司帐户价值使用量 美国广播公司史密斯先生187,729,185 100,000,000 187.73％ 史密斯夫人181,479,755 200,000 90.74％ GHI琼斯先生97,219,166 200,000 48.61％ JKL琼斯太太91,070,604 300,000 30.36％