作業が長引くと変数やコンソール、プロットがゴチャゴチャになりがちです。これらを一気に消去できれば、そんな問題を解決するパッケージの紹介です。なお、読み込んだパッケージも解除することが可能です。
パッケージバージョンは0.1.0。実行コマンドはwindows 7およびOS X 10.11.5のR version 3.3.0で確認しています。
パッケージのインストール
下記コマンドを実行してください。
#パッケージのインストール
install.packages("mise")
実行コマンド
詳細はコマンド、パッケージのヘルプを確認してください。
#パッケージの読み込み
library("mise")
###データ例の作成#####
n <- 100
TestData <- data.frame("Group" = sample(paste0("Group", 1:3), n, replace = TRUE),
"Data 1" = sample(rnorm(10), n, replace = TRUE),
"Data 2" = sample(LETTERS[1:10], n, replace = TRUE))
#欠損値を追加
TestData[50:100,] <- NA
TestData <- cbind(TestData, NAData = NA)
#構造確認
summary(TestData)
########
#ワークスペースやコンソールの内容を消去:miseコマンド
#変数内容削除:varオプション
#プロット内容削除:figsオプション
#コンソール内容削除:consoleオプション
#パッケージの読込解除:pkgsオプション;初期値FALSE
mise(vars = TRUE, figs = TRUE, console = TRUE, pkgs = TRUE)
#参考miseコマンドのコード
function (vars = TRUE, figs = TRUE, console = TRUE, pkgs = FALSE)
{
if (vars) {
where <- parent.frame()
rm(list = ls(envir = where), envir = where)
}
if (figs && !is.null(grDevices::dev.list())) {
grDevices::graphics.off()
}
if (console) {
if (Sys.getenv("RSTUDIO") == 1) {
cat("\f")
}
else {
cat(rep("\n", 50))
}
}
if (pkgs) {
extra.pkgs <- paste("package:", names(utils::sessionInfo()$otherPkgs),
sep = "")
lapply(extra.pkgs, detach, character.only = TRUE, unload = TRUE,
force = TRUE)
}
}
<environment: namespace:mise>
少しでも、あなたの解析が楽になりますように!!