fix for support dots in pkgname, solves #39

eddelbuettel · Sep 21, 2015 · 312faf4 · 312faf4
1 parent 80873a3
commit 312faf4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/insertPackage.R b/R/insertPackage.R
@@ -184,7 +184,7 @@ getPackageInfo <- function(file) {
         return(fields)
     }
 
-    pkgname <- gsub("^([a-zA-Z0-9]*)_.*", "\\1", basename(file))
+    pkgname <- gsub("^([a-zA-Z0-9.]*)_.*", "\\1", basename(file))
     path <- file.path(td, pkgname, "DESCRIPTION")
     builtstring <- read.dcf(path, 'Built')
     unlink(file.path(td, pkgname), recursive=TRUE)