2017-04-21 57 views
0

我有一個R代碼,它使用lapply來顯示每個TrendDateRange的值。我沒有得到我應該預期的東西分配變量時在lapply上發出的問題

這裏是一個示例代碼。請注意,這只是示例代碼,我必須包括在使用lapply的閃亮應用程序中。我閃亮的數字是一個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) ; 
}) 
+0

使用get? 'trend.period < - get(paste0(「trendDateRange」,i))' – zx8754

+0

感謝您關注此事。一個問題,但。如果trendDateRange來自dateRangeInput lapply(1:numoftrends,function(i)){trend.period < - input [[get(paste0(「trendDateRange」,i))]]],我是否需要使用此代碼; – aotearoa

回答

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

編輯:

喜歡的東西上面,雖然期望的輸出的一個例子是從海報需要。

+0

感謝您研究這個問題,但是如果trendDateRange來自dateRangeInput lapply(1:numoftrends,function(i)){trend.period < - input [[get (paste0(「trendDateRange」,i))]]; – aotearoa

+0

不知道,會更好,如果你試過:) – MLEN

+0

不用擔心,謝謝你的時間。 – aotearoa