如何在R Shiny App中添加div内的按钮

Question

我在R Shiny App中创建了三个div，需要在这些div中添加按钮。如果我尝试通常的HTML方法，我会做这样的事情：

div("Here is some text inside the div", style = "color:green; font-size:20px; background-color: white; border: 1px solid #ccc; border-radius: 3px; margin: 10px 0; padding: 10px; width: 700px", <input type='submit' value='Dismiss'/>)

但这显然是失败的，因为div与R Shiny中的常规html完全不同。

如何在R Shiny App中获得div中的2个按钮（如图像）？

谢谢，

Answer 1

您可以使用HTML()函数呈现常规HTML。或者，您可以使用shiny::tags变量来创建任何有效的HTML标记

div("Somee text", style="someStyle", 
  tags$input(type="submit", value="Dismiss")
)

我发现Shiny-ifying所有UI代码最终比混合和匹配HTML和Shiny函数更清晰。

Answer 2

我发现，一旦你想对Shiny应用程序中的布局，样式和交互进行更多控制，最好将ui.R输出切换到你控制的html / css / js。 / p>

http://rstudio.github.io/shiny/tutorial/#html-ui