在 rhandsontable Shiny 环境中使用 dplyr mutate

编程问答 2022-05-17

问题描述

我正在开始创建一个使用 rhandsontable 的 Shiny 应用程序。虽然我还有其他输入要合并，但我只想先完成这个：使用 dplyr mutate 对一行（除了一列）的值求和。我在执行此操作时遇到问题。

这是我的代码：

ui <- fluidPage(
  rHandsontableOutput("table")
)

server <- function(input,output){
  df <- data.frame(Category = c("cat_1","cat_2","cat_3","cat_4"),Subsection_1 = c(rep(3,4)),Subsection_2 = c(rep(3,Subsection_3 = c(3,3,3),Total = c(rep(3,4)))
  values <- reactiveValues(data = df)
  output$table <- renderRHandsontable({rhandsontable(values$data)})
  
  observeEvent(input$table$changes$changes,{
    values$data <- hot_to_r(input$table)
    values$data <- data %>% mutate(Total,Total = rowSums(select(.,-c(cat_1,Total))))
  })
}
shinyApp(ui = ui,server = server)

所以我试图总结行，不包括 cat_1。我看到了一些关于使用过滤器的问题，但我没有看到其他 dplyr 函数。

感谢您的帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

dplyrdplyrrrrhandsontableshiny