R Html输出以显示每个函数的描述

我正在尝试构建一个r闪亮的应用程序，用户只需点击一下就可以了解每个功能。为此，我在下面的R中进行了编码。但是

打印（？输入$A）

不起作用。有人能帮忙吗

library(shinydashboard)
library(readxl)
out <- data.frame(baseFns = ls('package:base'))
ui <- dashboardPage(
  dashboardHeader(title = "Loading data"),
  dashboardSidebar(sidebarMenu(
    menuItem("Analysis", tabName = "Analysis", icon = icon("chart-bar"))
  )),
  dashboardBody(
    tabItems(tabItem(tabName = "Analysis",
                     fluidRow(box(selectInput("A","A",choices = c(levels(factor(out$baseFns))),width = "150px"),width = 2),
                              fluidRow(box(htmlOutput("Text"),width = 9)))
             )
    ))
)

server <- function(input,output){
  output$Text <- renderText({
    print(??input$A)
  })
}
shinyApp(ui, server)

库（ShinydaShashboard）
图书馆（readxl）
这里有一个方法：

library(shiny)
library(shinydashboard)
library(gbRd) # for Rd_fun
library(tools) # for Rd2HTML

out <- data.frame(baseFns = ls('package:base'))

ui <- dashboardPage(
  dashboardHeader(title = "Loading data"),
  dashboardSidebar(sidebarMenu(
    menuItem("Analysis", tabName = "Analysis", icon = icon("chart-bar"))
  )),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "Analysis",
        fluidRow(
          box(selectInput("A", "Topic", choices = levels(factor(out$baseFns)), 
                          width = "150px"), 
              width = 2),
          fluidRow(box(htmlOutput("helpfun"), width = 9))
        )
      )
    ))
)

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

  output$helpfun <- renderUI({
    Rd <- Rd_fun(help(input$A)) 
    outfile <- tempfile(fileext = ".html")
    Rd2HTML(Rd, outfile, package = "",
            stages = c("install", "render"))
    includeHTML(outfile)
  })

}

shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
图书馆（gbRd）#供研发之用
库（工具）#用于Rd2HTML
在
服务器上执行类似的操作
将起作用
输出$Text谢谢，但它不起作用。我得到错误
参数不是字符向量
无法重现您的错误。我看到的是if:参数中的
警告：错误长度为零
，您可以查看以处理该错误。不确定为什么会出现该错误。我刚刚将您的代码替换为我的：）不知道为什么，请您解释一下
output$helpfun@DevP
Rd_-fun
生成Rd对象的代码（请参见
？Rd_-fun
）。然后您可以将其传递到
Rd2HTML
以生成一个HTML文件。我不知道
stages
参数是什么，我是从
？Rd2HTML
复制的。最后，使用闪亮的函数
includeHTML
.Hi@stephane包含HTML文件。你能帮我做这件事吗