Question

我想修改此应用程序：

https://demo.shinyapps.io/029-row-selection/

这样一次只能选择一行，这样我就可以获取所选行的第一列中的项目来绘制数据。有谁知道怎么做？

Answer 1

更新：您现在可以使用input$tableId_rows_selected中的server.R访问所选行。有关详细信息，请参阅here。

要选择唯一的行，您可以将示例的回调函数更改为：

callback = "function(table) {
      table.on('click.dt', 'tr', function() {
            table.$('tr.selected').removeClass('selected');
            $(this).toggleClass('selected');            
        Shiny.onInputChange('rows',
                            table.rows('.selected').data()[0][0]);
      });
    }"

当您单击某一行时，它基本上会删除所有选定的行（它们具有.selected类）并选择您单击的行。

我还更改了Shiny.onInputChange函数中的代码，以便它返回第一列中的数字。

Answer 2

呈现DataTable的R方法具有定义选择模式的参数。例如：

output$table1 <-
  DT::renderDataTable(dataSet,
                      selection = 'single')

可能的值是（＆＃39;多个＆＃39;是默认值）：

无
单
多个

如需进一步参考，您可以看到：http://rstudio.github.io/DT/shiny.html

编辑04/14/2016

在我使用单选择模式的设置中存在问题。

以下是我使用的版本：

> DT:::DataTablesVersion
[1] "1.10.7"
> packageVersion("DT")
[1] ‘0.1’

我面临的问题是视觉上你有一行选择，但是当你这样做时：

observeEvent(input$table1_rows_selected, {
  str(input$table1_rows_selected)
})

您将获得一个列表，其中包含已选中但未明确取消选择的所有行。换句话说，选择新行不会自动取消选择内部数据表逻辑中的上一行。这可能也是由DT包装器引起的，不确定。

这就是为什么我们目前使用JS作为解决方法的原因：

$(document).on('click', '#table1 table tr', function() {
    var selectedRowIds = $('#table1 .dataTables_scrollBody table.dataTable').DataTable().rows('.selected')[0];

    var selectedId = "";
    if (selectedRowIds.length === 1) {
        selectedId = $(this).children('td:eq(0)').text();
    } else {
      $('#table1 tbody tr').removeClass('selected');
    }
    Shiny.onInputChange("table1_selected_id", selectedId);
});

一旦你有了这个，你就能做到：

observeEvent(input$table1_selected_id, {
  str(input$table1_selected_id)
})

现在至少将正确的数据发送到您的服务器.R代码。不幸的是，您仍然会遇到表的问题，因为在内部它会跟踪选择哪些行，如果您切换页面，它将恢复错误的选择。但至少这纯粹是一个视觉缺陷，你的代码将有机会正常运行。所以这个解决方案实际上需要更多的工作。

Answer 3

你可以使用这个：

output$data_table <- renderDataTable(data(),options = list(pageLength = 9))

然后获取选定的行：

selected <- input$data_table_rows_selected

然后要从该行获取单元格，您可以使用（假设时间是您在这种情况下尝试获取的列的名称）：

time_x = data()[selected, "time"]

Selected 是所选行的索引，因此您需要将该索引与列名称一起使用。

Answer 4

以下代码以DT表格式显示数据框。用户将能够选择单行。检索并显示所选行。您可以在服务器的绘图块中编写绘图功能。

我希望这会有所帮助!!

         # Server.R
         shinyServer(function(input, output,session) {




          output$sampletable <- DT::renderDataTable({
          sampletable
          }, server = TRUE,selection = 'single')  

          output$selectedrow <- DT::renderDataTable({

          selectedrowindex <<-     input$sampletable_rows_selected[length(input$sampletable_rows_selected)]
         selectedrowindex <<- as.numeric(selectedrowindex)
         selectedrow <- (sampletable[selectedrowindex,])
         selectedrow



           })

          output$plots <- renderPlot({

          variable <- sampletable[selectedrowindex,1]
          #write your plot function


              })


          })

          #ui.R 
          shinyUI(navbarPage( "Single Row Selection",



                tabPanel("Row selection example",
                         sidebarLayout(sidebarPanel("Parameters"),
                             mainPanel(
                               DT::dataTableOutput("selectedrow"),   
                             DT::dataTableOutput("sampletable")

                           ))

                      )

                      ))

         # global.R 

        library(DT)
        library(shiny)
        selectedrowindex = 0

从Shiny App中的DataTable获取所选行

4 个答案: