[Distr-commits] r1239 - branches/distr-2.8/pkg/utils pkg/utils

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2018-08-02 12:26:30 +0200 (Thu, 02 Aug 2018)
New Revision: 1239

Modified:
   branches/distr-2.8/pkg/utils/finde.R
   pkg/utils/finde.R
Log:
[utils] trunk and branch 2.8: yet another bug fix in finde.R

Modified: branches/distr-2.8/pkg/utils/finde.R
===================================================================
--- branches/distr-2.8/pkg/utils/finde.R	2018-08-02 10:24:12 UTC (rev 1238)
+++ branches/distr-2.8/pkg/utils/finde.R	2018-08-02 10:26:30 UTC (rev 1239)
@@ -72,7 +72,7 @@
        invisible()
     }
   DIR <- dir(rec=rec)
-  if(! (all(ext=="")&&(withEmpty))){
+  if(! (all(ext=="")&&(!withEmpty))){
      ext0 <- sapply(ext, function(ext1) if(ext=="") "" else paste("\\.", ext, sep=""))
      extL <- sapply(ext0, function(ers) grepl(ers,DIR))
      if(withEmpty){

Modified: pkg/utils/finde.R
===================================================================
--- pkg/utils/finde.R	2018-08-02 10:24:12 UTC (rev 1238)
+++ pkg/utils/finde.R	2018-08-02 10:26:30 UTC (rev 1239)
@@ -72,7 +72,7 @@
        invisible()
     }
   DIR <- dir(rec=rec)
-  if(! (all(ext=="")&&(withEmpty))){
+  if(! (all(ext=="")&&(!withEmpty))){
      ext0 <- sapply(ext, function(ext1) if(ext=="") "" else paste("\\.", ext, sep=""))
      extL <- sapply(ext0, function(ers) grepl(ers,DIR))
      if(withEmpty){