我试图制作一个由javascript输入的输入文本框。 在ui.r中输入正常,但那时我无法从server.R获取输入数据。 以下是我的代码。
-- ui.r
tags$script(src="datetimepicker_css.js"),
textInput(inputId = "sDate", label = "start date"),
tags$img(src="cal.gif", onclick="javascript:NewCssCal('sDate','yyyyMMdd','dropdown',true,'24')", style="cursor:pointer")
-- server.r
date <- reactive({
getDate <- input$sDate
getDate
})
当我使用javascript输入日期时,getDate没有数据。 (有一个日历图标。当我点击它时,它显示一个日历。我可以选择日期和时间) 当我使用键盘输入日期时,getDate有数据。 (在这种情况下,我只是直接单击文本框,我输入日期和时间)
答案 0 :(得分:1)
Shiny.unbindAll(),Shiny.bindAll()是非常有用的功能。 我只是添加了这些功能,然后解决了这个问题。
// .js文件
function keydown()
{
Shiny.unbindAll()
.......
Shiny.bindAll()
}
感谢。