R 如何使用tags（）将变量作为属性传递？

我正在尝试使用自定义UI，我希望传递此输出

server.R

output$myVar <- 10

htmlTemplate("index.html",
myVar=tags$div('data-transitiongoal'=myVar))

然后以经典方式从index.html调用if

index.html

{{myVar}}

部署应用程序时，出现以下错误：

错误：找不到对象“progressBarPartTimePerc1”

但是，我用一个数值代替，比如

'data-transitiongoal'=“20”

这个应用程序运行得很好

有什么办法解决吗？

试试： myVar=tags$div（'data-transitiongoal'=as.character（myVar）））

试试：

---

myVar=tags$div（'data-transitiongoal'=as.character（myVar））

不起作用，但谢谢不起作用，但谢谢