19

getwd()Rコンソールから直接フォルダを開くにはどうすればよいですか？これは、最近エクスポートしたものをそこに表示したい場合に便利です。グーグル検索は何も明らかにしませんでした、そして、私には関数を構築する能力がありません。

4

3 に答える 3

25

実際にファイルブラウザが必要な場合は、ディレクトリを開く関数を作成できます。これは、使用しているオペレーティングシステムに基づいて異なる方法で実行されますが、ほとんどのベースをカバーする必要があります

opendir <- function(dir = getwd()){
    if (.Platform['OS.type'] == "windows"){
        shell.exec(dir)
    } else {
        system(paste(Sys.getenv("R_BROWSER"), dir))
    }
}

クロスプラットフォームである必要がない場合は、OSのコードだけに減らすことができます。ただし、特定のディレクトリ内のファイルを表示したいだけの場合は、を使用dirするだけで十分です。

于 2012-08-27T03:10:47.047 に答える
6

dir()またはを使用list.files()して、現在の作業ディレクトリ内のファイルを表示file.choose()したり、ディレクトリを参照してファイルを選択したりできます。3つすべてがデフォルトで現在の作業ディレクトリになります。

于 2012-08-27T03:04:59.750 に答える
3

上記の関数が機能しなかったために回答を投稿しましたsystem-R内からの呼び出しを介してmacOSターミナルコマンドを使用して回避しました（以下のセッション情報）。

働き

opendir <- function(directory = getwd()){
  system(sprintf('open %s', shQuote(directory)))
}

セッション情報

> sessionInfo()
R version 3.6.0 (2019-04-26)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS High Sierra 10.13.6

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.6/Resources/lib/libRlapack.dylib

locale:
[1] en_CA.UTF-8/en_CA.UTF-8/en_CA.UTF-8/C/en_CA.UTF-8/en_CA.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils    
[5] datasets  methods   base     

other attached packages:
 [1] here_0.1          htmlwidgets_1.3  
 [3] openxlsx_4.1.0.1  tictoc_1.0       
 [5] plotly_4.9.0      jsonlite_1.6     
 [7] ggplot2_3.1.1     lubridate_1.7.4  
 [9] httr_1.4.0        data.table_1.12.2

loaded via a namespace (and not attached):
 [1] zip_2.0.2          Rcpp_1.0.1        
 [3] RColorBrewer_1.1-2 later_0.8.0       
 [5] pillar_1.4.0       compiler_3.6.0    
 [7] plyr_1.8.4         tools_3.6.0       
 [9] digest_0.6.19      packrat_0.5.0     
[11] tibble_2.1.1       gtable_0.3.0      
[13] viridisLite_0.3.0  pkgconfig_2.0.2   
[15] rlang_0.3.4        shiny_1.3.2       
[17] rstudioapi_0.10    crosstalk_1.0.0   
[19] yaml_2.2.0         withr_2.1.2       
[21] dplyr_0.8.1        stringr_1.4.0     
[23] rprojroot_1.3-2    grid_3.6.0        
[25] tidyselect_0.2.5   glue_1.3.1        
[27] R6_2.4.0           processx_3.3.1    
[29] purrr_0.3.2        tidyr_0.8.3       
[31] magrittr_1.5       ps_1.3.0          
[33] promises_1.0.1     backports_1.1.4   
[35] scales_1.0.0       htmltools_0.3.6   
[37] assertthat_0.2.1   xtable_1.8-4      
[39] mime_0.6           colorspace_1.4-1  
[41] httpuv_1.5.1       labeling_0.3      
[43] stringi_1.4.3      lazyeval_0.2.2    
[45] munsell_0.5.0      crayon_1.3.4
于 2019-10-03T08:41:58.717 に答える