R 分配变量时Lappy上的问题

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

下面是一个示例代码。请注意，这是我必须包含在使用Lappy的闪亮应用程序中的唯一示例代码。my Shining中的numoftrends是一个selectinput。但是对于这个测试，我自己分配它。既然我是新手，我该如何在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？感谢您的关注。不过有一个问题。如果trendDateRange来自dateRangeInput lapply1:numoftrends，functioni{trend.period感谢您的关注。不过有一个问题。如果trendDateRange来自dateRangeInput lapply1:numoftrends，functioni，我是否需要在Shirn中使用此代码{trend.period不用担心。谢谢您的时间。谢谢！

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