Question

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

以下是示例代码。请注意，这只是我必须包含在使用lapply的闪亮应用程序中的示例代码。我闪亮的数字是一个选择输入。但是对于这个测试，我自己分配它。我是如何在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) ;
 })

Answer 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)) 
})

编辑：

如上所述，尽管海报需要一个理想输出的例子。

分配变量时的lapply问题

1 个答案: