показать сумму конкретных столбцов на основе значений rhandsontable - PullRequest
Новая
       73

показать сумму конкретных столбцов на основе значений rhandsontable

0 голосов
/ 25 октября 2018

Я пытаюсь создать блестящее приложение, которое показывало бы сумму столбца (скажем, mtcars $ mpg), когда строки выбирались пользователями.например, если щелкнуть первые два поля в rhandsontable, то ниже я должен увидеть сумму 21 и 21. Я не могу обернуть голову вокруг этого, и я сделал этот код до сих пор: 

 library(shiny)
library(rhandsontable)

ui=fluidPage(
  rHandsontableOutput('table'),
  textOutput ('selected')
)

server=function(input,output,session)({

  df <- data.frame(head(transform(mtcars,  Selected = as.logical(NA)  )))

  output$table=renderRHandsontable(
    rhandsontable(df,selectCallback = TRUE,readOnly = FALSE)
  )
  output$selected<-renderText({

  })
}) # end server
shinyApp(ui = ui, server = server)

Есть ли способ достичь этого?

1 Ответ

0 голосов
/ 25 октября 2018

Я нашел способ!сначала сохраняя rhandsontable в качестве объекта r, а затем применяя функцию подмножества и агрегирования, затем отображая результат в виде таблицы:

я могу использовать реактив как этот 

  tab1 <- reactive({
  if(!is.null(input$table )) {
    nt <- hot_to_r(input$table)
    nt.1<- subset(nt, Selected == TRUE, select = c(mpg,gear))
    nt.2 <- aggregate(nt.1$mpg ~ nt.1$gear , data = nt.1 , FUN = 'sum')  }
  })

: -)

...