如何在 R 的粘贴功能中加粗文本并使用字体

Question

我想使用粘贴功能将文本加粗。我如何在 R 中编写代码？感谢您对此进行调查。

observeEvent(input$submit3,{

if (input$submit3==0) return()

tagList(
  lapply(1:input$numoftrends, function(j) {
    trend.period <- input[[paste0("trendDateRange", j)]]
    trend1 <- substr(trend.period[1],1,7)
    trend2 <- substr(trend.period[2],1,7)

    output[[paste0('Text', j)]] <- renderText({
      #paste(" ")  ## add space in between text
      paste('Trend Date Range', j, ': ', trend1 ,' - ', trend2)
    })
  })
  )
})

Answer 1

用<B> 和</B> 将您的文本括起来并使用htmlOutput：

library("shiny")
server <-function(input, output) {
  output$text <- renderText({
    paste('<B>Trend Date Range</B>')
  })
}

ui <-fluidPage( htmlOutput("text"))

runApp(list(ui = ui, server = server))