oanda_quote() writes new line

shikokuchuo · Jan 3, 2024 · 4343047 · 4343047
1 parent 3ba129f
commit 4343047
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: ichimoku
 Type: Package
 Title: Visualization and Tools for Ichimoku Kinko Hyo Strategies
-Version: 1.4.12
+Version: 1.4.12.9000
 Description: An implementation of 'Ichimoku Kinko Hyo', also commonly known as
     'cloud charts'. Static and interactive visualizations with tools for
     creating, backtesting and development of quantitative 'ichimoku' strategies.

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,9 @@
+# ichimoku 1.4.12.9000 (development)
+
+#### Updates:
+
+* `oanda_quote()` now correctly writes a new line after each quote.
+
 # ichimoku 1.4.12
 
 #### Updates:

diff --git a/R/oanda.R b/R/oanda.R
@@ -967,7 +967,7 @@ oanda_quote <- function(instrument, price = c("M", "B", "A"), server, apikey) {
   data <- getPrices(instrument = instrument, granularity = "D", count = 1, price = price,
                     server = server, apikey = apikey, .validate = FALSE)
   pctchg <- 100 * (data[["c"]] / data[["o"]] - 1)
-  cat(sprintf("%s %s open: %.6g high: %.6g low: %.6g last:\u001b[7m %.6g \u001b[27m %%chg: %.4f %s",
+  cat(sprintf("%s %s open: %.6g high: %.6g low: %.6g last:\u001b[7m %.6g \u001b[27m %%chg: %.4f %s\n",
               instrument, format.POSIXct(.Call(ichimoku_psxct, data[["t"]])),
               data[["o"]], data[["h"]], data[["l"]], data[["c"]], pctchg, price), file = stdout())