在R闪亮的Action按钮中定位文本

Question

我想在给定按钮中放置资源活动文本，使得Activity位于按钮中的资源下方。目前，完整的单词因为按钮的空间较小而被隐藏，我不想增加空间。请帮忙。

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(

actionButton("buttonresinvthree", "Resource Activity",style="color: 
#000000; width:8%; ")
)
)
server <- function(input, output) { }
shinyApp(ui, server)

Answer 1

以下适用于我：

## app.R ##
library(shiny)
library(shinydashboard)
library(tableHTML)

ui <- dashboardPage(

 dashboardHeader(),
 dashboardSidebar(),
 dashboardBody(
  tags$head(tags$style(make_css(list('.btn', 'white-space', 'pre-wrap')))),
  actionButton("buttonresinvthree", HTML("Resource\nActivity"),
               style="color: #000000; width:8%; ")
 )
)

server <- function(input, output) { }

shinyApp(ui, server)

我添加tags$head...将CSS添加到按钮（类btn），并使用\n作为Resource\nActivity之间的分隔线。

结果如下：

Answer 2

将空白区域设置为正常：

A