如何将数据表中包含的滑块值打印到表的另一列？

如何解决如何将数据表中包含的滑块值打印到表的另一列？

我在 data.table 中有滑块输入，并希望每行的 slider 值打印在表格的另一列中。我试图用 renderText 打印一个滑块输入值，但它也不起作用。

library(shiny)
library(DT)
library(data.table)

#ui part    

ui <- fluidPage(
dataTableOutput("tb"),actionButton("avgbtn","Average",class = "btn-success"),textoutput("text"))

#server part   

server <- function(input,output) {
output$tb<-renderDataTable(sliderdata[,c(1,3)],escape = FALSE,options = list(dom = 't',paging = FALSE,ordering = FALSE),editable = T)
output$text<-renderText({input$slider1})
      
   }
#code for creating sliders    

sliderdata<-data.table(slider=rep(0,5),silder_value=rep(0,5))    
for (i in seq(1,5)) {
sliderdata$slider_value[i]=sprintf(
'<input type="range" min="1" max="100" name="%s" value="%d" class="form-range"/>',paste("slider",i,sep = ""),i)
      }

shinyApp(ui = ui,server = server)