[Distr-commits] r1141 - branches/distr-2.7/pkg/distr/R

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

Author: ruckdeschel
Date: 2017-08-10 19:51:33 +0200 (Thu, 10 Aug 2017)
New Revision: 1141

Modified:
   branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R
Log:
[distr] fixed an issue with <distr>/<distr> or <number>/<distr> spotted by JJ (JJ APONTE VARON)

Modified: branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R
===================================================================
--- branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R	2017-04-23 12:11:21 UTC (rev 1140)
+++ branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R	2017-08-10 17:51:33 UTC (rev 1141)
@@ -75,8 +75,9 @@
 setMethod("/", c("numeric",
                  "AcDcLcDistribution"),
 function(e1,e2){
-         e2s <- as.character(deparse(match.call(
-                call = sys.call(sys.parent(1)))$e2))
+  if (is((e2s <- as.character(deparse(match.call(
+                call = sys.call(sys.parent(1)))$e2))), "try-error"))
+      e2s <- "e2"
 
  e2 <- .ULC.cast(e2)
 
@@ -124,8 +125,10 @@
 setMethod("/", c("AcDcLcDistribution",
                  "AcDcLcDistribution"),
 function(e1,e2){
-         e2s <- as.character(deparse(match.call(
-                call = sys.call(sys.parent(1)))$e2))
+  if (is((e2s <- as.character(deparse(match.call(
+                call = sys.call(sys.parent(1)))$e2))), "try-error"))
+      e2s <- "e2"
+
 #         if( is(e2,"AbscontDistribution"))
 #             e2 <- as(as(e2,"AbscontDistribution"), "UnivarLebDecDistribution")