Question

不是一个闪亮的程序员。简单的问题。在Flexdashboard应用程序中进行rhansontable。如何访问用户更新的列？示例代码：

---
title: "Test"
runtime: shiny
output: 
      flexdashboard::flex_dashboard:
      orientation: columns
      vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
require(dplyr)
require(tidyverse)
require(rhandsontable)

hour <- 1:24
required <- c(2, 2, 2, 2, 2, 2, 8, 8, 8, 8, 4, 4, 3, 3, 3, 3, 6, 6, 5, 5, 5, 5, 3, 3)
required <- as.integer(required)
on_duty <- as.integer(rep(0, 24))
start <- on_duty

df <- data.frame(hour, required, on_duty, start)

```
Inputs {.sidebar data-width=w}
-----------------------------------------------------------------------

```{r Inputs}

```

Column {data-width=200}
-----------------------------------------------------------------------

### Chart A

```{r}

global <- reactiveValues(df = df)

rHandsontableOutput("dftbl1")

    output$dftbl1 = renderRHandsontable({
    rhandsontable(global$df, selectCallback = TRUE, readOnly = FALSE)
    })

```

因此代码呈现了表格。用户可以通过编辑表格单元格来更新表格。但是，如何引用更新后的表将表列传递给使用actionButton调用的函数呢？我发现的复杂示例很难解读。感谢任何反馈。史蒂夫·M

Answer 1

您可以按以下方式使用hot_to_r

modified_table <- reactive({
  hot_to_r(req(input$table_id)) ## req!
})

可以访问表的当前状态，包括用户的修改。之所以需要req是因为hot_to_r无法处理NULL个。 table_id应该是您用于renderRHandsontable返回值的输出ID。

output$table_id <- renderRHandsontable({ 
  rhandsontable(initial_table) ## need to call converter
})

您所指的复杂示例（例如this one，＃64-81）允许表的双向连接，从某种意义上来说，可以从用户和服务器上更新它们。但是，在此概述的这个简单设置中，modified_table是用reactive创建的，因此只能由用户更新。

我完全同意，如果返回值为{，则可以通过允许NULL中的hot_to_r和自动调用rhandsontable中的renderRHandsontable来使该程序包更加用户友好{1}}，但这是您必须使用的。

这是一个演示此设置的完整应用

data.frame

为了访问特定的列，可以在反应性上下文中使用library(shiny) library(rhandsontable) ui <- fluidPage( rHandsontableOutput("table_id"), tableOutput("second_table") ) server <- function(input, output, session) { initial_table <- head(iris) output$table_id <- renderRHandsontable({ rhandsontable(initial_table) ## need to call converter }) modified_table <- reactive({ hot_to_r(req(input$table_id)) ## req! }) output$second_table <- renderTable({ modified_table() }) } shinyApp(ui, server)。

Flexdashboard，Rhansontable：如何以编程方式访问用户更新的表？

1 个答案: