Rで解析：フォルダのコピーや作成など「pathological」パッケージの紹介とパッケージに依存しない方法

install.packages("pathological")

library("pathological")
library("tcltk")

#ファイルの保存先を指定
setwd(paste(as.character(tkchooseDirectory(title = "保存先を選択"), sep = "", collapse ="")))

###フォルダのコピーコマンド#####
#フォルダのコピー:copy_dir(source_dir = "コピー元のフォルダ", target_dir = "コピー先のフォルダ")
copy_dir(source_dir = R.home("library"),
         target_dir = file.path(getwd(), "ライブラリー"))

#コピー元のフォルダ内にあるフォルダの内容を含めてコピー:recursiveオプションで指定
#初期値はTRUEです
copy_dir(R.home("library"), file.path(getwd(), "etc2"), recursive = FALSE)

#ファイルの上書き設定:overwriteオプションで指定
#初期値はFALSEです
copy_dir(R.home("library"), file.path(getwd(), "etc2"), overwrite = FALSE)
########

#フォルダの作成コマンド
create_dirs("てすと")

#Rプロファイルファイルパスを表示
#作成していなければNAが返されます
r_profile()

#パッケージが保存されているフォルダパスを取得
system_file()
#特定のパッケージを指定することができます
system_file(package = "stats")

#一時フォルダを表示
temp_dir()

#一時ファイルを表示
temp_file()

#ファイルの保存先を指定（ワーキングディレクトリ（作業フォルダ）を指定しています）
library("tcltk")
setwd(paste(as.character(tkchooseDirectory(title = "保存先を選択"), sep = "", collapse ="")))

#作業フォルダにフォルダを作成
dir.create("てすと")

#ファイルの作成
cat("てすとてすと", file = "てすと.txt")

#ファイルのコピー
file.copy("てすと.txt", "テスト.txt")

#ファイルの名前変更
file.rename("テスト.txt", "テスト2.txt")

#ファイルをダイアログで選択してパスを取得
file.choose()

#指定したディレクトリに存在するフォルダやファイル名を取得
#そのまま実行すると作業フォルダになります
dir()

#Rのバージョンや使用しているOS情報を表示
sessionInfo()

#Rのホームディレクトリを表示
R.home()

#パッケージのHELPを表示
help("パッケージ名")