add skeleton addin

CTU-Bern · May 15, 2024 · 1c358e3 · 1c358e3
1 parent 2659874
commit 1c358e3
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 1 deletion.
diff --git 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
@@ -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
@@ -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