1

目的は、for ループ内で現在の作業ディレクトリを変更し、ファイルの検索など、他の作業を行うことです。パスはジェネリック変数に格納されます。このために実行しているRコードは次のとおりです。

require("foreach")

# The following lines are generated by an external tool and stored in filePath.info 
# Loaded via source("filePaths.info")
result1 <- '/home/user/folder1' 
result2 <- '/home/user/folder2'
result3 <- '/home/user/folder3' 
number_results <- 3

# So I know that I have all in all 3 folders with results by number_results 
# and that the variable name that contains the path to the results is generic: 
# string "result" plus 1:number_results.

# Now I want to switch to each result path and do some computation within each folder
start_dir <- getwd()
print(paste0("start_dir: ",start_dir))

# For every result folder switch into the directory of the folder
foreach(i=1:number_results) %do% { 
# for (i in 1:number_results){ leads to the same output

    # Assign path in variable, not the variable name as string: current_variable <- result1 (not string "result1")
    current_variable <- eval(parse(text = paste0("result", i)))
    print(paste0(current_variable, " in interation_", i))
    # Set working directory to string in variable current_variable
    current_dir <- setwd(current_variable)
    print(paste0("current_dir: ",current_dir))

    # DO SOME OTHER STUFF WITH FILES IN THE CURRENT FOLDER
}

# Switch back into original directory
current_dir <- setwd(start_dir)
print(paste0("end_dir: ",current_dir))

出力は次のとおりです...

[1] "start_dir: /home/user"
[1] "/home/user/folder1 in interation_1"
[1] "current_dir: /home/user"
[1] "/home/user/folder2 in interation_2"
[1] "current_dir: /home/user/folder1"
[1] "/home/user/folder3 in interation_3"
[1] "current_dir: /home/user/folder2"
[1] "end_dir: /home/user/folder3"

...私はこれを期待していましたが：

[1] "start_dir: /home/user"
[1] "/home/user/folder1 in interation_1"
[1] "current_dir: /home/user/folder1"
[1] "/home/user/folder2 in interation_2"
[1] "current_dir: /home/user/folder2"
[1] "/home/user/folder3 in interation_3"
[1] "current_dir: /home/user/folder3"
[1] "end_dir: /home/user/"

したがって、 current_dir に割り当てられたパスがやや「遅れている」ことがわかります...

これはなぜですか？私は R の専門家とはほど遠いので、何がこの動作を引き起こしているのか、そして最も重要なこととして、望ましい動作を実現する方法がわかりません。したがって、ヘルプ、ヒント、コードの修正/最適化は大歓迎です!

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Platform: x86_64-pc-linux-gnu (64-bit)
4

1 に答える 1

2

ヘルプページから?setwd...

setwdは、変更前の現在のディレクトリを、目に見えないように、 と同じ規則で返しますgetwd。成功しない場合 (実装されていない場合を含む)、エラーが発生します。

だからあなたがするとき

current_dir <- setwd(current_variable)
print(paste0("current_dir: ",current_dir))

「現在の」ディレクトリを取得していません。前のディレクトリを取得しています。getwd()現在のものを取得するために使用する必要があります

setwd(current_variable)
current_dir <- getwd()
print(paste0("current_dir: ",current_dir))
于 2016-09-16T15:48:09.130 に答える