Allow spaces in Windows paths for RxODE models

See Issue #29
nlmixrdevelopment · Feb 6, 2018 · cc4ad36 · cc4ad36
1 parent b4babed
commit cc4ad36
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/saem_fit.R b/R/saem_fit.R
@@ -429,6 +429,7 @@ gen_saem_user_fn = function(model, PKpars=attr(model, "default.pars"), pred=NULL
   ## if(is.win) x = gsub("\\\\", "/", utils::shortPathName(x))
   ## x = sub("/nlmixr", "", x)
   .lib=  if(is.ode) model$cmpMgr$dllfile else ""
+  if (is.ode && .Platform$OS.type=="windows") .lib <- gsub("\\\\", "/", utils::shortPathName(.lib));
 
   make_str = 'PKG_CXXFLAGS=%s\nPKG_LIBS=%s $(BLAS_LIBS) $(LAPACK_LIBS) $(FLIBS)\n'
   make_str = sprintf(make_str, nmxInclude(c("nlmixr","StanHeaders","Rcpp","RcppArmadillo","RcppEigen","BH")), .lib)