From 80bac34890f3f8502dec6096017993ad777a0516 Mon Sep 17 00:00:00 2001
From: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Thu, 17 Nov 2022 23:22:19 +0200
Subject: [PATCH] add snippet to write table

---
 r.snippets.txt | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/r.snippets.txt b/r.snippets.txt
index 213ab3d..58a78bd 100644
--- a/r.snippets.txt
+++ b/r.snippets.txt
@@ -54,7 +54,7 @@ snippet fun
 		${0}
 	}
 
-snippet readData
+snippet readTable
 	myDT <- data.table::fread(file = ${1:fileName},
 				sep = "${2:delimiter}",
 				skip = 0,
@@ -64,6 +64,16 @@ snippet readData
 				nThread = `r as.integer(system(command = "sysctl -n hw.physicalcpu", intern = T))`)
 	${0}
 
+snippet writeTable
+	write.table(
+	  x = ${1:TableVar},
+	  file = ${2:fileName},
+	  quote = F,
+	  sep = "${3:delimiter}",
+	  row.names = F,
+	  col.names = T)
+	${0}    
+
 snippet gsubstitute
 	gsub("${1:Find}","${2:Replace}",${3:variable}, fixed = T)
 	${0}