Bring back fileEdit to open files properly in RStudio

Author: alandipert

R/scaffold_utils.R

@@ -1,10 +1,16 @@
-
 slurp <- function(file) {
   paste(readLines(
     system.file(file, package = 'reactR')
   ), collapse = "\n")
 }
 
+# invoke file.edit in a way that will bind to the RStudio editor
+# when running inside RStudio
+fileEdit <- function(file) {
+  fileEditFunc <- eval(parse(text = "file.edit"), envir = globalenv())
+  fileEditFunc(file)
+}
+
 # Perform a series of pattern replacements on str.
 # Example: renderTemplate("foo ${x} bar ${y} baz ${x}", list(x = 1, y = 2))
 # Produces: "foo 1 bar 2 baz 1"

R/scaffold_widget.R

@@ -52,7 +52,7 @@ addWidgetConstructor <- function(name, package, edit){
       capName = capitalize(name)
     )
   )
-  if (edit) utils::file.edit(file)
+  if (edit) fileEdit(file)
 }
 
 addWidgetYAML <- function(name, edit){
@@ -61,7 +61,7 @@ addWidgetYAML <- function(name, edit){
     "templates/widget_yaml.txt",
     "boilerplate for widget dependencies"
   )
-  if (edit) utils::file.edit(file)
+  if (edit) fileEdit(file)
 }
 
 addPackageJSON <- function(npmPkgs) {
@@ -89,7 +89,7 @@ addWidgetJS <- function(name, edit){
     'boilerplate for widget JavaScript bindings',
     list(name = name)
   )
-  if (edit) utils::file.edit(file)
+  if (edit) fileEdit(file)
 }
 
 addExampleApp <- function(name) {