使导航栏标签在R中垂直居中

在R中使导航栏标签垂直居中的方法是使用CSS样式来控制导航栏的外观。具体步骤如下：

首先，在HTML文件中创建一个导航栏，可以使用<nav>标签来定义导航栏，使用<ul>和<li>标签来创建导航栏的列表项。

<nav>
  <ul>
    <li><a href="#">标签1</a></li>
    <li><a href="#">标签2</a></li>
    <li><a href="#">标签3</a></li>
  </ul>
</nav>

在CSS样式表中，为导航栏的列表项设置样式。使用display: flex;和align-items: center;属性可以实现垂直居中。

nav ul {
  display: flex;
  list-style-type: none;
  padding: 0;
  margin: 0;
}

nav li {
  margin-right: 10px;
}

nav li a {
  text-decoration: none;
  color: black;
  padding: 5px;
  border: 1px solid black;
  display: flex;
  align-items: center;
}

将CSS样式表应用到R中的导航栏标签。可以使用HTML()函数将HTML代码嵌入到R中，并使用tags$style()函数将CSS样式表嵌入到HTML中。

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      nav ul {
        display: flex;
        list-style-type: none;
        padding: 0;
        margin: 0;
      }

      nav li {
        margin-right: 10px;
      }

      nav li a {
        text-decoration: none;
        color: black;
        padding: 5px;
        border: 1px solid black;
        display: flex;
        align-items: center;
      }
    "))
  ),
  nav(
    ul(
      li(a("标签1", href = "#")),
      li(a("标签2", href = "#")),
      li(a("标签3", href = "#"))
    )
  )
)

server <- function(input, output) {
  
}

shinyApp(ui, server)

这样，导航栏的标签就会在R中垂直居中显示。