【问题标题】:Issue on lapply when assigning a variable分配变量时出现 lapply 问题
【发布时间】:2017-04-21 18:11:54
【问题描述】:

我有一个 R 代码,它使用 lapply 来显示每个 TrendDateRange 的值。我没有得到预期的结果

这是一个示例代码。请注意,这只是我必须包含在使用 lapply 的闪亮应用程序中的示例代码。我闪亮的 numoftrends 是一个选择输入。但是对于这个测试,我是自己分配的。我如何在 R 中编码,因为我是新手。感谢您对此进行调查。

 trendDateRange1 <- c("2011-01-01","2011-12-31")
 trendDateRange2 <- c("2012-01-01","2012-12-31")
 trendDateRange3 <- c("2013-01-01","2013-12-31")

 numoftrends  = 1;

 lapply(1:numoftrends, function(i) {
   trend.period <- paste0("trendDateRange", i) ;
 })

【问题讨论】:

  • 使用get? trend.period &lt;- get(paste0("trendDateRange", i))
  • 感谢您对此进行调查。一个问题。如果 trendDateRange 来自 dateRangeInput lapply(1:numoftrends, function(i) { trend.period

标签: r for-loop shiny lapply


【解决方案1】:
trendDateRange1 <- c("2011-01-01","2011-12-31")
trendDateRange2 <- c("2012-01-01","2012-12-31")
trendDateRange3 <- c("2013-01-01","2013-12-31")

numoftrends  = 3

lapply(1:numoftrends, function(i) {
  trend.period <- get(paste0("trendDateRange", i)) 
})

编辑:

类似于上面的内容,尽管需要从海报中获得所需输出的示例。

【讨论】:

  • 感谢您对此进行调查。一个问题。如果 trendDateRange 来自 dateRangeInput lapply(1:numoftrends, function(i) { trend.period
  • 不用担心。谢谢你的时间。欣赏!
猜你喜欢
  • 1970-01-01
  • 2021-02-13
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
相关资源
最近更新 更多