register package as RStudio addin to open current file with editR

DESCRIPTION

@@ -5,10 +5,17 @@ Version: 0.2.2
 Date: 2015-10-11
 Author: Simon Garnier <[email protected]>
 Maintainer: Simon Garnier <[email protected]>
-Description: editR is a basic Rmarkdown editor with instant previewing of your 
-  document. It allows you to create and edit Rmarkdown documents while instantly 
-  previewing the result of your writing and coding. It also allows you to render 
-  your Rmarkdown file in any format permitted by the 'rmarkdown' package. 
+Description: editR is a basic Rmarkdown editor with instant previewing of your
+    document. It allows you to create and edit Rmarkdown documents while instantly
+    previewing the result of your writing and coding. It also allows you to render
+    your Rmarkdown file in any format permitted by the 'rmarkdown' package.
 License: GPL (>= 3)
-Imports: shiny (>= 0.11.1), shinyBS (>= 0.61), shinyAce (>= 0.2.1), 
-  shinyFiles (>= 0.6.0), rmarkdown (>= 0.5.1), knitr (>= 1.9)
+Imports:
+    shiny (>= 0.11.1),
+    shinyBS (>= 0.61),
+    shinyAce (>= 0.2.1),
+    shinyFiles (>= 0.6.0),
+    rmarkdown (>= 0.5.1),
+    knitr (>= 1.9),
+    rstudioapi
+RoxygenNote: 5.0.1

R/openCurrent.R

@@ -0,0 +1,12 @@
+#' Open current file with editR
+#' 
+#' Open current file in editor with editR.
+#'
+#' @export
+#'
+openCurrent <- function(){
+  context <- rstudioapi::getActiveDocumentContext()
+  cat(paste0("Opening file ", context$path, " with editR"))
+  editR::editR(file = context$path)
+}
+

inst/rstudio/addins.dcf

@@ -0,0 +1,4 @@
+Name: editR - Open current file
+Description: Open current file in editor with editR.
+Binding: openCurrent
+Interactive: false