×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
# クリップボードからデータフレームを読み込む関数
# psychパッケージのread.clipboardの名前を変えただけである
# データフレーム名 <- read.c()
read.c <- function (header = TRUE, ...) {
MAC <- Sys.info()[1] == "Darwin"
if (!MAC) {
if (header)
return(read.table(file("clipboard"), header = TRUE,
...))
else return(read.table(file("clipboard"), ...))
}
else {
if (header) {
return(read.table(pipe("pbpaste"), header = TRUE,
...))
}
else {
return(read.table(pipe("pbpaste"), ...))
}
}
}
# 書き出すのもそのうちどうにかしよう
# 適当にやってみたらできた
write.c <- function(x) {
x <- write.table(x=x, "clipboard", sep="\t", row.names=FALSE, quote=FALSE)
}
# write.c(データフレーム名)
# psychパッケージのread.clipboardの名前を変えただけである
# データフレーム名 <- read.c()
read.c <- function (header = TRUE, ...) {
MAC <- Sys.info()[1] == "Darwin"
if (!MAC) {
if (header)
return(read.table(file("clipboard"), header = TRUE,
...))
else return(read.table(file("clipboard"), ...))
}
else {
if (header) {
return(read.table(pipe("pbpaste"), header = TRUE,
...))
}
else {
return(read.table(pipe("pbpaste"), ...))
}
}
}
# 適当にやってみたらできた
write.c <- function(x) {
x <- write.table(x=x, "clipboard", sep="\t", row.names=FALSE, quote=FALSE)
}
# write.c(データフレーム名)
PR
Comment
Trackback
Trackback URL
Comment form
