我正在嘗試列印一個標題，如：
有45%可用
用45% 這樣的粗體，我生成了這個代碼：
h4(paste0("There is ", strong(as.character(prctnage)), strong("%"), " available"))
這是輸出：
There is <strong>45<strong><strong>%<strong> available
有什么建議嗎？
uj5u.com熱心網友回復：
請參閱?h4：...引數期望：
標記屬性（命名引數）和子項（未命名引數）
在您的示例paste0中，h4將標簽轉換為字串。
library(shiny)
library(htmltools)
percentage <- 10
ui <- fluidPage(
h4("There is ", strong(paste0(percentage, "%")), " available"),
# another option:
h4(HTML(paste0("There is ", strong(as.character(percentage)), strong("%"), " available")))
)
server <- function(input, output, session) {
}
閃亮應用程式（用戶界面，服務器）
另一種選擇是使用再次將字符標記為 HTML HTML()
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/377896.html