由网友(过来我抱你)分享简介：我在shinydashboard的标题上放置了一个操作按钮，它会自动打开默认的邮件应用程序并填充To：行。但是，当我调整按钮的大小时，可折叠的侧边栏标题和主标题不对齐(请参阅下面的图片作为参考)。此外，我已经在如下位置查看了这些帖子：Aligning a text with variable length in th...

我在shinydashboard的标题上放置了一个操作按钮，它会自动打开默认的邮件应用程序并填充To：行。但是，当我调整按钮的大小时，可折叠的侧边栏标题和主标题不对齐(请参阅下面的图片作为参考)。

此外，我已经在如下位置查看了这些帖子：

Aligning a text with variable length in the middle of dashboard header Align header elements in shiny dashboard

然而，关注它们并没有为我的问题提供足够的帮助。以下是复印件：

library(shiny)
library(shinydashboard)
library(shinyjs)
library(shinydashboardPlus)
library(htmltools)
library(DT)


ui <- shinydashboardPlus::dashboardPage(
  options = list(sidebarExpandOnHover = TRUE),
  header = shinydashboardPlus::dashboardHeader(disable = FALSE,
                                               tags$li(class = "dropdown",
                                                       
                                                       
                                                       tags$a(actionButton(inputId = "email1", label = "",
                                                                           icon = icon("envelope", lib = "font-awesome")
                                                                           ,
                                                                           style='height: 20px; width: 30px;
                                                                        margin-top: 0px; margin-right: 0px;
                                                                        margin-bottom: 0px; padding:4px 4px 20px 4px;'
                                                       ),
                                                       href="mailto:my_awesome_email_address.com")),
                                               
                                               
                                               
                                               title = tagList(
                                                 tags$span(
                                                   class = "logo-mini", "small"
                                                 ),
                                                 tags$span(
                                                   class = "logo-lg", "LONGER TEXT"
                                                 )
                                               )),
  sidebar = shinydashboardPlus::dashboardSidebar(
    minified= TRUE,
    collapsed = TRUE,
    
    sidebarMenu(
    ),
    tags$script(JS("document.getElementsByClassName('sidebar-toggle')[0].style.visibility = 'hidden';"))
    
  ),
  body = shinydashboard::dashboardBody(
    tabItems(
      
      tabItem(tabName = "mainPanel_1",
              box(
              )
      )
    ),
    controlbar = NULL,
    footer = NULL
  )
)


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

shinyApp(ui, server)

如有任何帮助或提示，将不胜感激。

推荐答案

对您的按钮使用此样式：

style='height: 20px;
    background: transparent;
    border: none;
    font-size: 2rem;
    transform: translate(5%, -30%);'