L oop и renderText в R shiny

Question

Я пытаюсь l oop через фрейм данных и вывод на печать в R shiny. Вот автономный пример кода, который отлично работает. Но как только я использую 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

Answer 1

Примерно так

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

  })