显示由闪亮应用程序中的复选框选中的数据表的行数

Question

我有一个简单的闪亮应用程序。

<T extends Serializable>

我需要做的是在sidebarPanel的#ui.r navbarPage( "Application", tabPanel("General", sidebarLayout( sidebarPanel( uiOutput("tex2") ), mainPanel( DT::dataTableOutput("hot3") ) ))) #server.r library(shiny) library(DT) library(tidyverse) server <- function(input, output,session) { output$tex2<-renderUI({ numericInput("text2","Rows selected", value = 1, min=1 ) }) output$hot3 <-DT::renderDataTable( iris%>% rowid_to_column("Row") %>% mutate(Row = ""), rownames = FALSE, extensions = "Select", options = list( columnDefs = list(list(className = "select-checkbox", targets = 0, orderable = FALSE)), select = list(style = "os", selector = "td:first-child")), selection=list(mode="single") ) } 的数据表中显示所选的行数。该数字已经显示在表格下方，但我也希望在numericInput()中使用它。如果要选择多个项目，则需要在Mac上按住Command键。在Windows计算机上，它应该是我相信的控制键。或使用shift键选择多个相邻项目。

Answer 1

这是一个最小示例，该示例使用带有shiny后端的RMarkdown文档来说明如何获取所选行数。

---
title: "Untitled"
output: html_document
runtime: shiny
---

```{r echo=FALSE}
library(DT)
library(tidyverse)
dataTableOutput("irisTable")
output$irisTable <- renderDataTable(
    iris %>% rowid_to_column("Row") %>% mutate(Row = ""),
    rownames = FALSE,
    extensions = "Select",
    options = list(
        columnDefs = list(list(className = "select-checkbox", targets = 0, orderable = FALSE)),
        select = list(style = "multi", selector = "td:first-child")
        ))

p("Selected rows are...")
renderText(input$irisTable_rows_selected)
```

请注意，与我对your previous post的回答相比，我已将select.style的行为更改为select = list(style = "multi", selector = "td:first-child")；这样，您只需单击行即可选择多个条目（而不必按住Command / Ctrl键）。