1 files changed, 6 insertions, 2 deletions
diff --git a/nixpkgs/pkgs/development/r-modules/generate-r-packages.R b/nixpkgs/pkgs/development/r-modules/generate-r-packages.R
index df489cdcacb5..510eccd3f40a 100755
--- a/nixpkgs/pkgs/development/r-modules/generate-r-packages.R
+++ b/nixpkgs/pkgs/development/r-modules/generate-r-packages.R
@@ -43,8 +43,12 @@ nixPrefetch <- function(name, version) {
 
 }
 
+escapeName <- function(name) {
+    switch(name, "import" = "r_import", "assert" = "r_assert", name)
+}
+
 formatPackage <- function(name, version, sha256, depends, imports, linkingTo) {
-    name <- ifelse(name == "import", "r_import", name)
+    name <- escapeName(name)
     attr <- gsub(".", "_", name, fixed=TRUE)
     options(warn=5)
     depends <- paste( if (is.na(depends)) "" else gsub("[ \t\n]+", "", depends)
@@ -56,7 +60,7 @@ formatPackage <- function(name, version, sha256, depends, imports, linkingTo) {
     depends <- lapply(depends, gsub, pattern="([^ \t\n(]+).*", replacement="\\1")
     depends <- lapply(depends, gsub, pattern=".", replacement="_", fixed=TRUE)
     depends <- depends[depends %in% knownPackages]
-    depends <- lapply(depends, function(d) ifelse(d == "import", "r_import", d))
+    depends <- lapply(depends, escapeName)
     depends <- paste(depends)
     depends <- paste(sort(unique(depends)), collapse=" ")
     paste0("  ", attr, " = derive2 { name=\"", name, "\"; version=\"", version, "\"; sha256=\"", sha256, "\"; depends=[", depends, "]; };")