根据来自另一个rhandon表单元闪亮的值更新rhandson表单元

问题描述

我正在尝试根据用户在另一个rhandson表中引入的值来更新rhandson表中的给定单元格。

基本上，我想从第一张表的第二列中提取第二张表的第二列中引入的值。

示例：我将值50放在表格2的第一行“预算”列中，并希望从表1的第一行“预算”中减去该值。

我改编了here中的示例：

library(shiny)
library(rhandsontable)

channel <- c("Budget")
start.date <- as.Date("2017-01-01")
end.date <- as.Date("2017-01-03")
date.range1 <- as.Date((seq(start.date,end.date,by="day")),origin = "1970-01-01")
date.range1 <- as.data.frame(date.range1)

date.range2 <- as.Date((seq(start.date,origin = "1970-01-01")
date.range2 <- as.data.frame(date.range2)

colnames(date.range1) <- c("date")
colnames(date.range2) <- c("date")

date.range1[channel] <- 1000
date.range2[channel] <- 0

table1 <- date.range1
table2 <- date.range2
#Define the tables.

ui <- fluidPage(
  br(),fluidRow(
    column(4,rHandsontableOutput("table1output")),column(4,rHandsontableOutput("table2output"))
  ))

server <- function(input,output,session){
  table <- reactiveValues()
  table$table1 <- table1
  table$table2 <- table2
  
  #Define the tables
  
  output$table1output <- renderRHandsontable({rhandsontable(table$table1)})
  output$table2output <- renderRHandsontable({rhandsontable(table$table2)})
  
  observeEvent(input$table1output,{
    df <- hot_to_r(input$table1output)
    df <- as.data.frame(df)
    #table$table1 <- df
  },ignoreInit = TRUE,ignoreNULL = TRUE
  )
  
  observeEvent(input$table2output,{
    df <- hot_to_r(input$table2output)
    df <- as.data.frame(df)
  },ignoreNULL = TRUE
  )
  
}

shinyApp(ui = ui,server = server)

解决方法

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

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

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

r r rhandsontable shiny