带有连字符的错误分析字符串返回错误对象'top：'找不到

Question

似乎这里提出的许多类似问题都没有接受答案，我还没有找到对我有用的东西。

我正在创建一个具有下载按钮的闪亮应用程序。在一页上，需要在所有图下将下载按钮向下移到页面上。

这对我有用，但经过硬编码：

output$saveGraphRob <- renderUI({
  downloadButton("saveGraphRob1","Download", style = "margin-top:3500px")
})

我想做的就是允许将样式放置在所有图表下，无论有多少个图表。因此，例如，如果我的plot_count()是6，则应该是plot_count（）* 350，而不是3500px。

尝试返回错误：找不到对象“顶部：”

output$saveGraphRob <- renderUI({
  downloadButton("saveGraphRob1","Download", style = eval(parse(text=(paste0("margin-top:",plot_count()*350))))))
})

它正在尝试将边距顶部的连字符评估为负号，但我不确定解决方法是什么。

也可以使用其他解决方案来更改我的下载按钮的位置。

Answer 1

style=参数只是一个字符串。您不应该在那里使用eval(parse())（或几乎所有R代码都不能使用）。只需使用style=paste0("margin-top:", plot_count()*350, "px")