Блог

Я пытаюсь напечатать заголовок типа :

Доступно 45%

С 45% жирным шрифтом, как это, и я создал этот код :

 h4(paste0("There is ", strong(as.character(prctnage)), strong("%"), " available"))  

Вот результат :

There is lt;stronggt;45lt;stronggt;lt;stronggt;%lt;stronggt; available

Есть какие-нибудь предложения?

Смотрите ?h4 : … аргументы ожидают:

Атрибуты тегов (именованные аргументы) и дочерние элементы (безымянные аргументы)

В вашем примере paste0 in h4 преобразует теги в строку.

 library(shiny) library(htmltools)  percentage lt;- 10  ui lt;- fluidPage(  h4("There is ", strong(paste0(percentage, "%")), " available"),  # another option:  h4(HTML(paste0("There is ", strong(as.character(percentage)), strong("%"), " available"))) )  server lt;- function(input, output, session) {   }  

shinyApp(пользовательский интерфейс, сервер)

Другим вариантом было бы снова пометить символы как HTML, используя HTML()