Ю

Size: a a a
Ю
ЕТ
E
ЕТ
ЕТ
E
ЕТ
E
ЕТ
Ю
# only works in linux
# Install xclip first
# $ sudo apt-get install xclip
# write to clipboard
wclip <- function(x, sep="\t", row.names=FALSE, col.names=TRUE){
con <- pipe("xclip -selection clipboard -i", open="w")
write.table(x, con, sep=sep, row.names=row.names, col.names=col.names)
close(con)
}
#read from clipboard
rclip <- function(){
con <- pipe("xclip -selection clipboard -o")
d <- read.delim2(con)
return(d)
close(con)
}
# Example
wclip(1:10)
wclip(letters)
wclip(matrix(1:15, nrow = 5))
data <- rclip()
E
a
E
E
a
PU
a
a
PU
М