Merge pull request #130 from stan-dev/issue_129

Retrieve the package name from the DESCRIPTION file

Author: jgabry

R/rstan_config.R

@@ -214,11 +214,12 @@ rstan_config <- function(pkgdir = ".") {
     eigen_incl <- ifelse(utils::packageVersion('StanHeaders') >= "2.31",
                          "#include <stan/math/prim/fun/Eigen.hpp>",
                          "#include <stan/math/prim/mat/fun/Eigen.hpp>")
+    pkgname <- unname(read.dcf("DESCRIPTION", "Package")[1, 1])
     cat("#include <exporter.h>",
         eigen_incl,
         "#include <stan/math/prim/meta.hpp>",
         file = file.path(pkgdir, "src",
-                         paste(basename(pkgdir), "types.h", sep = "_")),
+                         paste(pkgname, "types.h", sep = "_")),
         sep = "\n")
 
   } else { # actual Stan model