将Flexdashboard无功输入值分配给数据框单元格

Question

我想将一些flexdashboard反应式输入值复制到数据框中，以便可以将它们导出到文件中。 此代码适用于y作为标量：

y <- reactive({input$data1})

但是此代码不适用于df数据框，其中的空列声明为numeric：

df[1, 1] <- reactive({input$data1})

错误：子分配类型修复中的类型不兼容（从闭包到双精度）

有人可以帮助我以正确的语法进行作业吗？ 谢谢...

不确定如何提交可复制的代码。 这是此问题的整个.Rmd：

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

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)

df <- data.frame(MinVals = numeric(), MaxVals = numeric())

```

Inputs {.sidebar data-width=275}
-----------------------------------------------------------------------

```{r}

tags$h3("Test It")

sliderInput("data1",
             label = "Some data",
             value = 50,
             min = 0,
             max = 100,
             step = 5,
             width = 200)


```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart A

```{r}

df[1, 1] <- reactive({input$data1})  # does not work

y <- reactive({input$data1}) # this works

renderValueBox({
    x <- y()
  valueBox(
    value = x,
    icon = "fa-area-chart",
    color = "orange")
})

```

Answer 1

也许您正在寻找：

```{r}
global <- reactiveValues(df = df)
observeEvent(input$data1, global$df[1, 1] <- input$data1)
renderPrint(global$df)
```