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))

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

1 个答案: