Question

在Shiny App中，我想从本地读取一个表，将其显示为rhsonsontable，并用Sys.Date()覆盖其中一列，然后将更新后的表显示为rhsonsontable。

表function_table看起来像这样。

     client    fun    agency    loading_site   last_update_on_DB
       IKEA   mean        NA           Paris          2018-08-01
     Nestle    sum        NA          Berlin          2018-08-02
     Toyota   mean        NA          Munich          2018-07-01
          :      :         :               :                   :

这是我的服务器。R

# read a table
func_path <- '/...[FILE PASS].../function_table.csv'
function_table <- reactive({read.csv(func_path, header = T, sep = ',', stringsAsFactors = F)})

# convert table to rhandsontable object to display in the app
hot_func <- reactive({function_table() %>%
  rhandsontable(width = 1000, height = 1000) %>%
  hot_cols(readOnly = T) %>%
  hot_table(stretchH = "all" )})

# do some computations and overwrites the table
# ui.R has an action button (id = compute)
observeEvent({
   input$compute
       },{

          # some computations...

          # overwrite last_update_on_DB column with Sys.Date()
          function_table()[function_table()$client == input$client,]$last_update_on_DB <- Sys.Date()
   })

但是错误显示为：

反应：分配的左侧无效（NULL）

我也像下面一样遵循this page，但是又遇到了另一个错误：

# read a table
values <- reactiveValues()
func_path <- '/...[FILE PASS].../function_table.csv'
values$function_table <- reactive({read.csv(func_path, header = T, sep = ',', stringsAsFactors = F)})

# convert table to rhandsontable object to display in the app
hot_func <- reactive({values$function_table() %>%
  rhandsontable(width = 1000, height = 1000) %>%
  hot_cols(readOnly = T) %>%
  hot_table(stretchH = "all" )})

# do some computations and overwrites the table
# ui.R has an action button (id = compute)
observeEvent({
   input$compute
       },{

          # some computations...

          # overwrite last_update_on_DB column with Sys.Date()
          values$function_table <- values$function_table()
  values$function_table[values$function_table$client == input$client, ]$last_update_on_DB <- Sys.Date()
   })


Warning: Error in eval: tentative d'appliquer un objet qui n'est pas une fonction
(it's telling me that in the line of hot_func, values$function_table() is not a function)

有解决方案吗？

Answer 1

关注第一个示例：

您正在尝试为反应对象分配值。 function_table是反应式的，因此您只能获取其值，而不能通过function_table()[....] <- ....设置其值。

由于您还没有发布最小的可复制示例，因此很难确切知道如何解决此问题。

使用反应值解决此问题的一种方法。这是可以在服务器中分配和更改的值。这是一个示例：

server = function(input, output, session){
    current = reactiveValues()
    current$rhandsontable = read.csv(....) # your own code here to load the file on start up

    observeEvent(input$compute,{
        tmp = isolate(current$rhandsontable)
        tmp[tmp$client == input$client,]$last_update_on_DB <- Sys.Date()
        current$rhandsontable <- tmp
    }
}

可能不需要使用isolate(...)。它用于防止在检索其内容时重新评估反应性值。

此示例假定您正在服务器的开头加载固定/已知文件。如果要动态加载文件，则可能需要使用观察者来设置当前值。例如（伪代码）：

current = reactiveValues()
current$rhandsontable = NULL

observe(file_name,current$rhandsontable = read.csv(file_name))

闪亮：覆盖rhandsontable，分配的左侧无效（NULL）

1 个答案: