# -*- mode: snippet -*-
# key: cargs
# --
args <- commandArgs(trailingOnly = TRUE)
if (length(args) != $1)
    stop("Usage: `(file-name-nondirectory (buffer-file-name))` $2")

$0 <- args[1]