R/list_functions.R

In Nelson-Gon/shinymisc: A collection of illustrative sample shiny apps

library(shiny)
ui <- fluidPage(
  navbarPage("Hello World",
             tabPanel("list_functions",
                      "All functions",
                      
                      textInput("pkg_name", "Package"),
                      textOutput("all_funs")
             ))
)
server <- function(session, input, output){
  my_funs <- reactive({
    if(!req(input$pkg_name) %in% loadedNamespaces()){
      
      suppressPackageStartupMessages(
      library(req(input$pkg_name), character.only = TRUE)
      )
    }
    getNamespaceExports(req(input$pkg_name))
  })
  output$all_funs <- renderText(my_funs())
}


shinyApp(ui, server)