# Looping and iterative snippets for=for(%cursor% in %cursor%)%block_cursor% while=while(%cursor% == %cursor%)%block_cursor% if=if(%cursor% == %cursor%)%block_cursor% else=else%block_cursor% elseif=else if(%cursor% == %cursor%)%block_cursor% ifelse=if(%cursor% == %cursor%)%block_cursor%else%block_cursor% ifelseif=if(%cursor% == %cursor%)%block_cursor%else if(%cursor% == %cursor%)%block_cursor% apply=apply(%cursor%, %cursor%,\n\tFUN = %cursor%) sapply=sapply(%cursor%,\n\tFUN = %cursor%) lapply=lapply(%cursor%,\n\tFUN = %cursor%) # Graphics devices autoclosing png=png(%cursor%)\n\ndev.off() pdf=pdf(%cursor%)\n\ndev.off() bmp=bmp(%cursor%)\n\ndev.off() postscript=ps(%cursor%)\n\ndev.off() jpeg=jpeg(%cursor%)\n\ndev.off() sink=sink(%cursor%)\n\nsink() # Misc. function= <- function(%cursor%)%block_cursor% try= tryCatch(%cursor%,\n\terror = %cursor%) collapse=paste(%cursor%, collapse = "%cursor%")