2017-04-21 13 views
0

lapply inorderを使用して各TrendDateRangeの値を表示するRコードがあります。私が期待しているものが得られません変数を割り当てるときにlapplyの問題

ここにサンプルコードがあります。これはlapplyを使用する私の光沢のあるアプリに含める必要があるサンプルコードに過ぎないことに注意してください。私の輝きの中のnumrerendsは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

これを見ていただきありがとうございます。しかし、1つの質問。 trendDateRangeがdateRangeInputから来た場合、このコードを光沢のある状態で使用する必要がありますか? lapply(1:numoftrends、function(i){ trend.period < - input [[get(paste)(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)) 
}) 

EDIT:上記のような

何か、所望の出力の例は、ポスターから必要とされるであろうが。

+0

trendDateRangeがdateRangeInputから来た場合、このコードを光沢のあるものにする必要がありますか? lapply(1:numoftrends、function(i){ trend.period < - input [get (paste0( "trendDateRange"、i))]]; – aotearoa

+0

あなたが試してみると分かりません:) – MLEN

+0

あなたの時間をありがとう、ありがとうございます! – aotearoa

関連する問題