[Blotter-commits] r1477 - pkg/FinancialInstrument/R

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

Author: gsee
Date: 2013-05-27 19:00:35 +0200 (Mon, 27 May 2013)
New Revision: 1477

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
replace paste0 with paste(..., sep="")

Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2013-05-27 15:50:28 UTC (rev 1476)
+++ pkg/FinancialInstrument/R/instrument.R	2013-05-27 17:00:35 UTC (rev 1477)
@@ -256,10 +256,10 @@
     if (is.null(currency)) stop ("'currency' is a required argument")
     if (!isTRUE(overwrite) && isTRUE(assign_i) &&
         any(in.use <- primary_id %in% (li <- ls_instruments()))) {
-        stop(paste(paste0("In stock(...) : ",
+        stop(paste(paste("In stock(...) : ",
                           "overwrite is FALSE and primary_id", 
                           if (sum(in.use) > 1) "s are" else " is", 
-                          " already in use:\n"),
+                          " already in use:\n", sep=""),
                    paste(intersect(primary_id, li), collapse=", ")), 
              call.=FALSE)
     }
@@ -282,10 +282,10 @@
     if (is.null(currency)) stop ("'currency' is a required argument")
     if (!isTRUE(overwrite) && isTRUE(assign_i) &&
         any(in.use <- primary_id %in% (li <- ls_instruments()))) {
-        stop(paste(paste0("In fund(...) : ",
+        stop(paste(paste("In fund(...) : ",
                           "overwrite is FALSE and primary_id", 
                           if (sum(in.use) > 1) "s are" else " is", 
-                          " already in use:\n"),
+                          " already in use:\n", sep=""),
                    paste(intersect(primary_id, li), collapse=", ")), 
              call.=FALSE)
     }
@@ -751,10 +751,10 @@
     if (!isTRUE(overwrite)) {
         new.ids <- unname((u <- unlist(id.list))[grep("primary_id", names(u))])
         if (any(in.use <- new.ids %in% (li <- ls_instruments()))) {
-            stop(paste(paste0("In option_series.yahoo(...) : ",
+            stop(paste(paste("In option_series.yahoo(...) : ",
                               "overwrite is FALSE and primary_id", 
                               if (sum(in.use) > 1) "s are" else " is", 
-                              " already in use:\n"),
+                              " already in use:\n", sep=""),
                        paste(intersect(new.ids, li), collapse=", ")), 
                  call.=FALSE)
         }
@@ -809,10 +809,10 @@
     if (hasArg("overwrite")) {
         if (!list(...)$overwrite && isTRUE(assign_i) &&
             any(in.use <- primary_id %in% (li <- ls_instruments()))) {
-            stop(paste(paste0("In currency(...) : ",
+            stop(paste(paste("In currency(...) : ",
                               "overwrite is FALSE and primary_id", 
                               if (sum(in.use) > 1) "s are" else " is", 
-                              " already in use:\n"),
+                              " already in use:\n", sep=""),
                        paste(intersect(primary_id, li), collapse=", ")), 
                 call.=FALSE)
         }
@@ -904,10 +904,10 @@
   }
   if (!isTRUE(overwrite) && isTRUE(assign_i) &&
         any(in.use <- primary_id %in% (li <- ls_instruments()))) {
-        stop(paste(paste0("In exchange_rate(...) : ",
+        stop(paste(paste("In exchange_rate(...) : ",
                           "overwrite is FALSE and primary_id", 
                           if (sum(in.use) > 1) "s are" else " is", 
-                          " already in use:\n"),
+                          " already in use:\n", sep=""),
                    paste(intersect(primary_id, li), collapse=", ")), 
              call.=FALSE)
   }