始终可以为工具提示创建一个专用的新文件，也可以为工具提示创建多个文件。

工具提示文件示例

在这个示例文件中，每个工具提示及其关联的服务器都 Package 在一个函数中。这可防止全局对象四处浮动。我们将在下一个文件中使用这些对象

• • tooltips.R**

# Tooltip file

# MA Period Tool Tips
MAPeriod_ui <- function() {
  shinyBS::bsTooltip(
    id = 'MAPeriod',
    title = 'Enter averaging period in days. You may add more than one, separated by a space',
    placement = 'right',
    trigger = 'hover'
  )
}

MAPeriod_server <- function(session) {
  shinyBS::addTooltip(
    session,
    'MAPeriod',
    'Enter averaging period in days. You may add more than one, separated by a space',
    'right'
  )
}

# Other tooltips...

使用工具提示文件

要使用工具提示文件，我们将对其进行源代码并将其放置到新环境中。你可以随便叫它什么，在这里我叫它tooltips。要访问在该文件中创建的工具提示，只需使用$索引tooltips环境，然后将该对象作为函数调用。示例如下。

• • app.R**

library(shiny)

# load the tooltips into a new environment
tooltips <- new.env()
source("tooltips.R", local = tooltips)

ui <- fluidPage(
  # add the tooltips using the new environment we created
  tooltips$MAPeriod_ui()
)

server <- function(input, output, session) {
  # add the tooltip server as well, making sure to pass the session to the fxn
  tooltips$MAPeriod_server(session)
}

shinyApp(ui, server)

当然，你不必将对象存储为函数，但这样更安全。您还可以创建多个工具提示文件，并将其全部源代码导入tooltips env中。
让我知道如果这对你有意义!