代码之家 › 专栏 › 技术社区 › Laura

在有光泽的环境中创建和显示向量

shiny r

Laura · 技术社区 · 3 年前

我在使用闪亮的反应性环境时遇到了问题。我的问题是向量没有完成。每次我按下按钮,输出都会转到下面的行,但会删除上一个元素。

这是我的代码:

---
title: "teste"
author: "Teste1"
date: "03/01/2022"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


```{r}

actionButton("action1", "Press Button")


```


```{r, echo= FALSE, message = FALSE}

reactive({
  u <- input$action1
  
  w<- u + 2651641684
  
x <- c()
    
  x[input$action1] <- paste("Texto",format(Sys.time(), "%S"))
   
 print(x)
  }) 
```

为什么当我 print(x) 当我按下按钮时,向量不存储前面的元素?

有什么帮助吗?

1 回复 | 直到 3 年前

Limey 3 年前

这能满足你的需求吗?

    ---
    title: "teste"
    author: "Teste1"
    date: "03/01/2022"
    output: html_document
    runtime: shiny
    ---

    ```{r setup, include=FALSE}
    knitr::opts_chunk$set(echo = TRUE)
    ```

    ```{r}
    actionButton("action1", "Press Button")
    ```


    ```{r, echo= FALSE, message = FALSE}
    v <- reactiveValues(x=c(), u=0)

    observeEvent(input$action1, {
      v$u <- v$u + 1
      w <- v$u + 2651641684
      v$x[v$u] <- paste("Texto",format(Sys.time(), "%S"))
      print(v$x)
    }) 
    ```

推荐文章

Navi · if语句在函数中不能解释为逻辑语句

2 年前

Lev · 指定checkboxGroupInput中行之间的填充

2 年前

emr2 · 如何根据屏幕上的文本输入更新SelectizeInput

3 年前

TarJae · 渲染徽标。pdf输出的页眉中的png-Rmarkdown

3 年前

hugh_man · 过滤和调整数据表

3 年前

Anxofs · 在进行全局搜索时,对于大型矩阵(50K行x 15列),DT非常慢

3 年前

firmo23 · 基于另一个updateselectInput()的值更新updateselectInput()

3 年前

anorlondo · 将传单弹出窗口保持在视图中(R)

3 年前

hugh_man · 尝试应用条件筛选器时出错

3 年前

epam employee · renderUI不适用于fillPage

6 年前