[Vwgh-commits] r8 - pkg/R

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

Author: webtraveller
Date: 2008-02-08 12:58:34 +0100 (Fri, 08 Feb 2008)
New Revision: 8

Modified:
   pkg/R/result.R
   pkg/R/testcheck.R
Log:
change testcheck

Modified: pkg/R/result.R
===================================================================
--- pkg/R/result.R	2008-02-08 11:49:18 UTC (rev 7)
+++ pkg/R/result.R	2008-02-08 11:58:34 UTC (rev 8)
@@ -13,18 +13,18 @@
 		## Abweisung 
 		pat2 <- "abgewiesen|abewiesen|abgegewiesen|nicht folge|abgelehnt"
 
-		pat2X <- "n i c h t   s t a t t g e g e b e n|n i c h t s t a t t g e g e b e n"
+		#pat2X <- "n i c h t   s t a t t g e g e b e n|n i c h t s t a t t g e g e b e n"
 
 		## Aufhebung
 		pat3="aufgehoben|erteilt|folge gegeben|bewilligt|rechtswidrig|berichtigt|geb.hrt dem Beschwerdef.hrer|erlassen|angeordnet"
 
-		pat3X <- "stattgegeben"
+		#pat3X <- "stattgegeben"
 
 		## Einstellung
 		pat4 <- "eingestellt"
 
 		## Beschluss
-		pat5="beschlu."
+		pat5="beschlu.|stattgegeben"
 
 		## Vorabentscheidung
 		pat6="vorabentscheidung"
@@ -50,17 +50,17 @@
 		if (length(grep(pat6,x)) >= 1 ) sp[6] <- 1
 		
 		## Corrections
-		if (length(grep(pat2X,x)) >= 1 ) 
-		{
-			sp[2] <- 1
-		}
-		else
-		{	
-			if (length(grep(pat3X,x)) >= 1 )
-			{
-				sp[3] <- 1
-			}
-		}
+		#if (length(grep(pat2X,x)) >= 1 ) 
+		#{
+		#	sp[2] <- 1
+		#}
+		#else
+		#{	
+		#	if (length(grep(pat3X,x)) >= 1 )
+		#	{
+		#		sp[3] <- 1
+		#	}
+		#}
 
                 if (sum(sp) == 2 && ( sp[5] == 1 || sp[6] == 1 ))
                   {

Modified: pkg/R/testcheck.R
===================================================================
--- pkg/R/testcheck.R	2008-02-08 11:49:18 UTC (rev 7)
+++ pkg/R/testcheck.R	2008-02-08 11:58:34 UTC (rev 8)
@@ -32,7 +32,7 @@
 			{
 				xx <- xx + 1
 				xx_sp <- c(xx_sp,c_sp_nr)
-				cat("\n",xx_sp,"\n")
+				#cat("\n",xx_sp,"\n")
 			}
 			else 
 			{