Fix snippets syntax error

Author: jdavis

UltiSnips/r.snippets

@@ -104,8 +104,8 @@ tapply(${1:vector}, ${2:index}, ${0:function})
 endsnippet
 
 snippet rapply "rapply function"
-endsnippet
 rapply(${1:list}, ${0:function})
+endsnippet
 
 snippet pl "Plot function"
 plot(${1:x}, ${0:y})