diff --git a/r.snippets.txt b/r.snippets.txt
index e4f5246..213ab3d 100644
--- a/r.snippets.txt
+++ b/r.snippets.txt
@@ -208,4 +208,8 @@ snippet parallelRDS
 	
 snippet objectSize
 	format(object.size(${1:Var1}), units = "MB", standard = "SI")
+	
+snippet unMelt
+	mat <- data.table::dcast.data.table(${1:myDT}, ${2:row} ~ ${3:col}, value.var = "${4:value}")
+	${0}
 	
\ No newline at end of file