Wie mache ich einen Text fett und verwenden Sie eine Schriftart in einfügen-Funktion in R

Question

Ich möchte einen Text mit der Paste-Funktion in Fettschrift. Wie schreibe ich das in R? Danke, dass du dir das angeschaut hast.

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

Schliessen Sie Ihren Text mit <B> und </B> und verwenden 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))