代码之家 › 专栏 › 技术社区 › firmo23

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

dt shiny r

0

firmo23 · 技术社区 · 7 年前

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

#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上按下命令键。在windows机器上,我相信它应该是控制键。或者使用shift选择多个相邻项。

1 回复 | 直到 7 年前

1

Maurits Evers 7 年前

下面是一个使用带有 shiny 显示如何获取所选行数的后端。

---
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键)。