Вставка таблицы данных в текстовый файл

Я написал функцию, которая позволяет мне брать четыре столбца данных из буфера обмена, разделять их, добавлять дополнительный столбец, рекомбинировать его и экспортировать как текстовый файл.

xyztoinp <- function(x) {
    x <- read.table(file="clipboard") 
    a <- x[,-1] 
    b <- x[,1]
    c <- ifelse(b == "C", 6,
    ifelse (b == "O", 8,ifelse (b == "H", 1, 3)))
    x <- cbind(b,c,a)
    write.table(x, file="IRCoutput", quote = FALSE,
    sep = "\t", row.names = FALSE, col.names = FALSE)
}

У меня есть два вопроса: -

Можно ли создать файл с таблицей, которую я создал с помощью этой функции, так, чтобы таблица вставлялась в середину некоторого текста?

Например

text_text_text_text_text_text_text_
text_text_text_text_text_text_text_

Neatly formated table

text_text_text_text_text_text_text_
text_text_text_text_text_text_text_

Во-вторых, я попытался изменить функцию так, чтобы она принимала имя файла в качестве переменной; т.е. xyztoinp <- function(x, NewFileName) {

И т.д ... Но это не привело к выводу с новым именем файла; кто-нибудь знает, как это делается?

Вот мой рабочий код,

Xyztoinp <- функция (x) {
x <- read.table (file = "clipboard")
a <- x [, - 1]
b <- x [, 1]
c <- ifelse (b == "C", 6,
ifelse (b == "O", 8,
ifelse (b == "H", 1, 3)))
х <- cbind (b, c, a)
zz <- file ("NewFile.inp", "w")
cat ("текст", "текст",
"текст",
"",
"текст",
"текст",
"текст", file = zz, sep = "\ n")
write.table (x, file = zz, quote = FALSE,
sep = "\ t", row.names = FALSE, col.names = FALSE)
cat ("текст", file = zz)
закрыть (zz)
}

Всем спасибо, особенно @Greg. ps Невозможно изменить имя файла в функции, но я доволен вышесказанным.