r - 如何在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))