在闪亮中定义自定义标签答案

【问题标题】：Define custom tags in shiny在闪亮中定义自定义标签
【发布时间】：2016-10-15 03:35:35
【问题描述】：

我对闪亮的函数tag 有点困惑。例如，如果要定义自定义标签；例如，我想定义一个 FONT 标签然后我会做类似的事情

shiny::tag("FONT", varArgs = list("size=2", "color"))

现在我将如何使用我定义的标签。例如，使用预定义的标签，我可以做类似的事情

library(shiny)
tags$p("This is my paragraphs")

我希望在一个包中使用这些。

2016 年 10 月 14 日更新

Geovany 提供的以下功能（稍作修改）应该可以工作

myFont <- function(cont = "", size = 2, color = "#000000") {
  shiny::tag("FONT", varArgs = list(size = size, color = color, cont))
}

myFont("This is my test")

【问题讨论】：

标签： r shiny

【解决方案1】：

shiny::tag 函数创建 HTML 标记并在参数中定义它。如文档中所述：

命名列表项成为属性，未命名列表项成为子项。

您可以创建一个函数来简化您的工作：

myFont <- function(size = 2, color = "#000000") {
  shiny::tag("FONT", varArgs = list(size = size, color = color))
}

该函数将返回如下内容： <FONT size="2" color="#000000"></FONT>

这是另一个与tags$p 非常相似的示例，但也定义了一个类。

myP <- function(cont = "", class = "abc") {
  shiny::tag("p", varArgs = list(class = class, cont))  
}

调用函数为：myP("hello") 将返回：<p class="abc">hello</p>

希望对你有帮助。

更新功能以满足要求

myFont <- function(cont = "", size = 2, color = "#000000") {
  shiny::tag("FONT", varArgs = list(cont, size = size, color = color))
}

【讨论】：

感谢文档有意义；我认为myfont 是失踪儿童。我修改了类似于myP 的函数，将cont 作为孩子包含在内。我编辑了上面的原始帖子以包含修改后的功能。
由于我不知道FONT标签的预期结果，也没有添加cont，所以我也放了MyP的例子。很高兴知道它可以帮助您解决问题。