[Stacomir-commits] r465 - stacomir0.5.3/pkg/stacomirtools/R

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

Author: briand
Date: 2017-11-16 14:41:24 +0100 (Thu, 16 Nov 2017)
New Revision: 465

Modified:
   stacomir0.5.3/pkg/stacomirtools/R/utilities.r
Log:
was reporting logical not the column name

Modified: stacomir0.5.3/pkg/stacomirtools/R/utilities.r
===================================================================
--- stacomir0.5.3/pkg/stacomirtools/R/utilities.r	2017-10-26 11:33:18 UTC (rev 464)
+++ stacomir0.5.3/pkg/stacomirtools/R/utilities.r	2017-11-16 13:41:24 UTC (rev 465)
@@ -52,7 +52,7 @@
 		new_variable_name){
 		if (length(old_variable_name)!=length(new_variable_name)) stop("les variables de remplacement doivent avoir le meme nombre que les variables de depart")
 		if (!all(!is.na(match(old_variable_name,colnames(object))))) {
-		   stop(paste("les noms",paste(is.na(match(old_variable_name,colnames(object))),collapse="/"),"ne correspondent pas aux variables du tableau"))
+		   stop(paste("les noms",paste(match(old_variable_name,colnames(object))[is.na(match(old_variable_name,colnames(object)))],collapse="/"),"ne correspondent pas aux variables du tableau"))
     }
 	colnames(object)[match(old_variable_name,colnames(object))]<- new_variable_name
 	return(object)