Improve getPackage error message

alandipert · alandipert · commit 259bc32174da · 2019-03-14T22:15:40.000-07:00
diff --git a/R/scaffold_utils.R b/R/scaffold_utils.R
@@ -48,7 +48,7 @@ renderFile <- function(outputFile, templateFile, description = '', substitutions
 
 getPackage <- function() {
   if (!file.exists('DESCRIPTION')) {
-    stop("You need to create a package to house your widget first!", call. = FALSE)
+    stop("The current directory doesn't contain a package. You're either in the wrong directory, or need to create a package to house your widget.", call. = FALSE)
   }
   read.dcf('DESCRIPTION')[[1,"Package"]]
 }

Original file line number	Diff line number	Diff line change
`@@ -48,7 +48,7 @@ renderFile <- function(outputFile, templateFile, description = '', substitutions`
`48`	`48`
`49`	`49`	`getPackage <- function() {`
`50`	`50`	`if (!file.exists('DESCRIPTION')) {`
`51`		`- stop("You need to create a package to house your widget first!", call. = FALSE)`
	`51`	`+ stop("The current directory doesn't contain a package. You're either in the wrong directory, or need to create a package to house your widget.", call. = FALSE)`
`52`	`52`	`}`
`53`	`53`	`read.dcf('DESCRIPTION')[[1,"Package"]]`
`54`	`54`	`}`