diff --git a/DESCRIPTION b/DESCRIPTION index 8a54b0df..5605575d 100644 --- 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 index 6b1a5051..c1a37e70 100644 --- 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 index bf603935..df66c719 100644 --- 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())