Menu 在闪亮的数据表上添加smAction

这是一个关于情节的例子

library(shiny)
library(shinyBS)
library(shinyMenus)

app <- shinyApp(
  ui = 
    fluidPage(
      smNavBar("testMenu", "shinyMB", full.width = TRUE, fixed = FALSE, 

               textInput("n", "Sample Size", value = 1000)
      ),

      plotOutput("testPlot"),

      smContextMenu("context1","testPlot",

                    smAction("action1", "Normal"),
                    smAction("action2", "Lognormal"),
                    smAction("action3", "Uniform")

      )

    ),
  server = 
    function(input, output, session) {
      output$testPlot <- renderPlot({
        plot(rnorm(input$n))
      })


    })

runApp(app)

库（闪亮）
图书馆（shinyBS）
图书馆（shinyMenus）
应用程序
library(shiny)
library(shinyBS)
library(shinyMenus)

app <- shinyApp(
  ui = basicPage(
    h2('The mtcars data'),

    dataTableOutput('mytable'),

      smContextMenu("context1","mytable",

                    smAction("action1", "Action1"),
                    smAction("action2", "Action2"),
                    smAction("action3", "Action3")

      )

    ),
  server = 
    function(input, output, session) {
      output$mytable <- renderDataTable({
        mtcars
      })


    })

runApp(app)