小编use*_*203的帖子

我一定错过了 R 中一个明显的东西。

我有一个向量 vec = c("v1","v2","v3")，我想沿着数据框中的列分布这个向量

Girth   Height  Volume  newcolumn
8.3      70     10.3    V1
8.6      65     10.3    V2
8.8      63     10.2    V3
10.5     72     16.4    V1
10.7     81     18.8    V2
10.8     83     19.7    V3
11       66     15.6    V1
11       75     18.2    V2
10.8     83     19.7    V3
11       66     15.6    V1
11       75     18.2    V2
11.1     80     22.6    V3

提前致谢。

我已经从模块定义了我的操作按钮，如下所示。

现在按下时它无法触发观察事件。我认为模块是隔离的且自给自足的，但似乎并非如此。将其放入我的服务器中，效果很好，但我不想弄乱我的服务器。

任何想法？

cool_UI <- function(id) {
  ns <- NS(id)
  tagList(
  uiOutput(ns("myUi"))
  )
}

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

  observeEvent(input$butonid,{
    print("Button from Module")
  })

  output$myUi <- renderUI({
    tabsetPanel(

      tabPanel(title = "sometitle",actionButton("butonid","My Button"))
    )
  })
}

library(shiny)

ui <- fluidPage(
  cool_UI("myUi")
)

server <- function(input, output, session) {
  callModule(cool,"myUi")
}

shinyApp(ui, server)