r - 在 shiny 中使用 gvisTable 中的选择

Question

小问题:如何在 shiny 中使用/获取 gvisTable 的选择？

我可以用这样的 DT 包来实现:

library(DT)
library(shiny)

server <- function(input, output) {
  output$dt <- renderDataTable({
    datatable(cbind(c(1,2,3,4,5),c(5,4,3,2,1)))
  })

  output$dtselect <- renderText({

    input$dt_rows_selected

  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      "Selected Rows from Datatable in Text Output"
    ),
    mainPanel(dataTableOutput("dt"),
              textOutput("dtselect"))
  )
)

shinyApp(ui = ui, server = server)

是否可以用 gvis 获得相同的选择？我在谷歌上搜索了很多，但找不到有人用 shiny 复制相同的内容。

Answer 1

你可以添加一个listener到options，并像我一样将它绑定(bind)到一个名为text的变量

rm(list = ls())
library(shiny)
library(googleVis)

mydata <- as.data.frame(cbind(c(1,2,3,4,5),c(5,4,3,2,1)))

server <- function(input, output) {
  output$myTable <- renderGvis({
    gvisTable(mydata, chartid = "mydata", 
              options = list(gvis.listener.jscode = "var text = data.getValue(chart.getSelection()[0].row,0);Shiny.onInputChange('text', text.toString());"))})
  output$dtselect <- renderText({input$text})
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      "Selected Rows from Datatable in Text Output"
    ),
    mainPanel(htmlOutput("myTable"),textOutput("dtselect"))
  )
)

shinyApp(ui = ui, server = server)