web-dev-qa-db-ja.com

HTML出力Rで太字のテキストを光沢のあるものにする

再現可能な例：

require(shiny)
runApp(list(ui = pageWithSidebar(
headerPanel("Example"),
  sidebarPanel(
    sliderInput("index", 
                label = "Select a number",
                min = 1,
                max = 4,
                step = 1,
                value = 2)),
  mainPanel(
  htmlOutput("text")
  )),
server = function(input, output) {
  output$text <- renderUI({
    HTML(paste(c("banana","raccoon","duck","grapefruit")))
  })
}
))

boldで表示されるインデックス（デフォルトでは「アライグマ」）に対応するWordと、通常のフォントで他の単語を表示したいと思います。

私が行った場合：

HTML(
<b>paste(c("banana","raccoon","duck","grapefruit")[input$index])<\b>,
paste(c("banana","raccoon","duck","grapefruit")[setdiff(1:4,input$index)])
)

エラー（<は認識されません）...

htmlrformattingshiny
14
Antoine

もう一度試してください、これは役に立ちますか？

require(shiny)

fruits <- c("banana","raccoon","duck","grapefruit")

runApp(list(ui = pageWithSidebar(
  headerPanel("Example"),
  sidebarPanel(
    sliderInput("index", 
                label = "Select a number",
                min = 1,
                max = 4,
                step = 1,
                value = 2)),
  mainPanel(
    htmlOutput("text")
  )),
  server = function(input, output) {
    output$text <- renderUI({
      fruits[input$index] <- paste("<b>",fruits[input$index],"</b>")
      HTML(paste(fruits))
    })
  }
))
21
Sebastian

これはあなたを助けるかもしれません：

shinyApp(
  ui <- basicPage(
    uiOutput(outputId = "text")

  ),
  server <- function(input,output){

    output$text <- renderText({
      HTML(paste0("<b>","bold","</b>", " not bold"))
    })

  })

それはあなたが探していたものですか？

7
Sebastian

HTML関数を使用するように設定されていない場合は、代わりにstrong(paste(character_vector[index]))を使用できるはずです。

3
JasonAizkalns