时间戳

首页 > 解决方案 > 样式 R 闪亮的标题面板标签$a 文本

r - 样式 R 闪亮的标题面板标签$a 文本

问题描述

我正在尝试在 my 中包含一个额外的标题行R Shiny titlePanel，这是一个超链接，因此我正在使用tags$a函数，并希望它的字体大小比第一个标题行更小。

这是代码：

library(shiny)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    hist(x, breaks = bins, col = "#75AADB", border = "white",
         xlab = "Waiting time to next eruption (in mins)",
         main = "Histogram of waiting times")
  })
}

ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  titlePanel(tags$a("Shiny Tutorial",href="https://shiny.rstudio.com/articles/basics.html")),
  
  sidebarLayout(
    sidebarPanel(
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    
    mainPanel(
      plotOutput(outputId = "distPlot")
    )
  )
)

shinyApp(ui, server)

如你看到的： 在此处输入图像描述

第一个标题行："Hello Shiny!"和第二个："Shiny Tutorial"具有相同的字体大小，但我希望第二个标题标题具有较小的字体大小。

另外，知道如何将这两个标题放在同一行吗？

标签： rshinytags

解决方案

我认为您不小心创建了重复的 titlePanel，我不喜欢。

但是，保持这种状态，这对我有用，您可以根据典型的 HTML 调整h1最大和h6最小的大小。

如果您尝试类似...

  titlePanel("Hello Shiny!", windowTitle = "Hello Shiny!"),
  titlePanel(tags$h4(
    tags$a("Shiny Tutorial",href="https://shiny.rstudio.com/articles/basics.html")
    )
    ),

请注意，如果没有参数windowTitle = ...，您浏览器中的窗口标题将成为tags$a(...)函数中的 HTML 文本。

推荐阅读