Question

我希望能够从DT中选择多行，并且具有以flexdashboard指标表示的列值的累积百分比。我需要从选定的行调用，因为我打算在crosstalk中使用它，其中行将从散点图或地图中选择。

这个玩具示例允许我生成一个DT，我可以点击第2-10行，打印的selectedRow()将显示Petal.width列的累积总和，并且仪表将精确地渲染总和我多么想要它。

library(shiny)
library(DT)
library(flexdashboard)
shinyApp(
  ui = fluidPage(
    textOutput('list'),
    DTOutput('table'),
    flexdashboard::gaugeOutput("plt1")
  ),
  server = function(input, output, session) {

    iris2<-iris %>% mutate(perc=round((Petal.Width/sum(Petal.Width))*100,1))

    selectedRow <- eventReactive(input$table_rows_selected,{
      selrow<-cumsum(iris2$perc)[c(input$table_rows_selected)]
      tail(selrow, n=1)
    })

    output$plt1 <- flexdashboard::renderGauge({
      gauge(selectedRow(), min = 0, max = 100, symbol = '%', gaugeSectors(
        success = c(80, 100), warning = c(40, 79), danger = c(0, 39)))
    })

    output$list<-renderText({
      selectedRow()
    })

    output$table <- renderDT({iris2})

  }
)

ui <- fluidPage(
  mainPanel(
    verbatimTextOutput('list'),
    dataTableOutput('table')
  )
)

但是，如果我选择第2-10行，然后选择第一行，则仪表将重置为仅存在于第一行中的值。我查看DT documentation并找不到任何明显的方法来更改此内容，因此我尝试仅选择cumsum中selectedRow()值的尾部，但这没有用。

有没有办法获得Petal.width的被动选择累积和，无论选择DT行的顺序如何？

Answer 1

使用sum()代替cumsum()似乎对我有用。

library(shiny)
library(DT)
library(tidyverse)
library(flexdashboard)
shinyApp(
 ui = fluidPage(
textOutput('list'),
DTOutput('table'),
flexdashboard::gaugeOutput("plt1")
),
server = function(input, output, session) {

iris2<-iris %>% mutate(perc=round((Petal.Width/sum(Petal.Width))*100,1))

selectedRow <- eventReactive(input$table_rows_selected,{
  selrow<-sum(iris2$perc[c(input$table_rows_selected)])

})

output$plt1 <- flexdashboard::renderGauge({
  gauge(selectedRow(), min = 0, max = 100, symbol = '%', gaugeSectors(
    success = c(80, 100), warning = c(40, 79), danger = c(0, 39)))
})

output$list<-renderText({
  selectedRow()
})

output$table <- renderDT({iris2})

})

计算DT中所选行的累积值

1 个答案: