时间戳

首页 > 解决方案 > R中的循环和renderText闪亮

r - R中的循环和renderText闪亮

问题描述

我正在尝试遍历数据框并在 R 闪亮中打印输出。这是运行良好的代码的独立示例。但是一旦我renderText在闪亮的空白输出中使用它。我在这里做错了什么。

renderText({


emp.data <- data.frame(
  emp_id = c (1:5), 
  emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),
  salary = c(623.3,515.2,611.0,729.0,843.25), 

  start_date = as.Date(c("2012-01-01", "2013-09-23", "2014-11-15", "2014-05-11",
                         "2015-03-27")),
  stringsAsFactors = FALSE
)
for (row in 1:nrow(emp.data)) {
  name <- emp.data[row, "emp_name"]
  salary  <- emp.data[row, "salary"]



 print( paste(" Employee ", name ,"has a total of ",salary," dollars"))

}   
          }


    })

我textOutput在 UI 中使用

标签： rshiny

解决方案

像这样的东西

library(tidyverse)


renderText({

emp.data <- data.frame(
  emp_id = c (1:5), 
  emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),
  salary = c(623.3,515.2,611.0,729.0,843.25), 

  start_date = as.Date(c("2012-01-01", "2013-09-23", "2014-11-15", "2014-05-11",
                         "2015-03-27")),
  stringsAsFactors = FALSE
)

df_text <- c()
for (row in 1:nrow(emp.data)) {
  name <- emp.data[row, "emp_name"]
  salary  <- emp.data[row, "salary"]
  df_text[row] <- paste(" Employee ", name ,"has a total of ",salary," dollars")
}  

  df_text

  })

推荐阅读