Signal an error if npmPkgs missing names

alandipert · alandipert · commit 1076bb31f7bc · 2019-01-25T12:07:26.000-08:00
diff --git a/R/scaffold.R b/R/scaffold.R
@@ -44,6 +44,8 @@ scaffoldReactWidget <- function(name, npmPkgs = NULL, edit = interactive()){
 toDepJSON <- function(npmPkgs) {
   if (is.null(npmPkgs)) {
     ""
+  } else if (!length(names(npmPkgs))) {
+    stop("Must specify npm package names in the names attributes of npmPkgs")
   } else {
     paste0(sprintf('"%s": "%s"', names(npmPkgs), npmPkgs), collapse = ",\n")
   }

Original file line number	Diff line number	Diff line change
`@@ -44,6 +44,8 @@ scaffoldReactWidget <- function(name, npmPkgs = NULL, edit = interactive()){`
`44`	`44`	`toDepJSON <- function(npmPkgs) {`
`45`	`45`	`if (is.null(npmPkgs)) {`
`46`	`46`	`""`
	`47`	`+ } else if (!length(names(npmPkgs))) {`
	`48`	`+ stop("Must specify npm package names in the names attributes of npmPkgs")`
`47`	`49`	`} else {`
`48`	`50`	`paste0(sprintf('"%s": "%s"', names(npmPkgs), npmPkgs), collapse = ",\n")`
`49`	`51`	`}`