X-Git-Url: https://git.auder.net/?p=pkgdev.git;a=blobdiff_plain;f=R%2Fload.R;fp=R%2Fload.R;h=646f60d724d9ee808e647513d5e4e5056293282e;hp=2d6d12291c6db93f39b3bb2ecbe11db29fd2e8ea;hb=d28c1db92d3524325d1aaaeaadc224876f4c5aaa;hpb=67a7cf8eb7d9e24cddd65aee710b7ccd2b1dda55

diff --git a/R/load.R b/R/load.R
index 2d6d122..646f60d 100644
--- a/R/load.R
+++ b/R/load.R
@@ -36,13 +36,12 @@
 
     if (file.exists(file.path(path,"src"))) {
         # C code -- Warning: src/tests folder should not be listed
-        cFiles = list.files( file.path(path,"src"), pattern="\\.[cChH]$",
-            full.names=TRUE, recursive=TRUE, no..=TRUE )
-        cFiles = lapply(cFiles, function(x) {
-            if (nchar(x)>=5 && substr(x,1,5)=="tests") return ("")
-            return (x)
-        })
-        
+        cFiles = c(
+        list.files(file.path(path,"src","sources"),pattern="\\.[cChH]$",
+            full.names=TRUE, recursive=TRUE, no..=TRUE),
+        list.files(file.path(path,"src","adapters"),pattern="\\.[cChH]$",
+            full.names=TRUE, recursive=TRUE, no..=TRUE))
+
         # Create folder R_HOME_USER/pkgdev/pkgs/pkgName/src (if not existing)
         dir.create(file.path(pkdev_path,"pkgs",pkgName,"src"), showWarnings=FALSE)