ペースト機能でテキストを太字にしてフォントを使用するには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))