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

在闪亮的

1 个答案: