定义自定义标签

Question

我对闪亮的功能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")

Answer 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))
}