From 1c358e3afcedd3f5c73523db2769ff140a53a59c Mon Sep 17 00:00:00 2001
From: Alan Haynes <aghaynes@users.noreply.github.com>
Date: Wed, 15 May 2024 12:58:25 +0200
Subject: [PATCH] add skeleton addin

---
 DESCRIPTION             |  2 +-
 R/asr_skeleton.R        | 16 ++++++++++++++++
 inst/rstudio/addins.dcf |  4 ++++
 3 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 R/asr_skeleton.R
 create mode 100644 inst/rstudio/addins.dcf

diff --git a/DESCRIPTION b/DESCRIPTION
index 0cfdf75..964c633 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: SwissASR
 Title: Automated Completion of the SwissEthics Annual Safety Report
-Version: 0.4.0
+Version: 0.4.1
 Authors@R: 
     c(person(given = "Alan G.",
            family = "Haynes",
diff --git a/R/asr_skeleton.R b/R/asr_skeleton.R
new file mode 100644
index 0000000..6e4512c
--- /dev/null
+++ b/R/asr_skeleton.R
@@ -0,0 +1,16 @@
+asr_skeleton <- function(){
+
+  args <- formals(asr)
+
+  args$data <- "sae_data"
+
+  args <- lapply(1:length(args), function(x){
+    paste(names(args)[x], "=", deparse(args[[x]]))
+  }) |>
+    paste(collapse = ", \n    ")
+
+  context <- rstudioapi::getSourceEditorContext()
+  id <- context$id
+  rstudioapi::insertText(text = paste0("asr(\n    ", args, "\n)"), id = id)
+
+}
diff --git a/inst/rstudio/addins.dcf b/inst/rstudio/addins.dcf
new file mode 100644
index 0000000..78e834b
--- /dev/null
+++ b/inst/rstudio/addins.dcf
@@ -0,0 +1,4 @@
+Name: Add asr template
+Description: Adds a template function call for the asr function to the current file.
+Binding: asr_skeleton
+Interactive: false