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

编程问答 2022-11-21

问题描述

我在 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)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

dtrrshinysliderslider