updates look()

shikokuchuo · Nov 2, 2023 · e88f6cf · e88f6cf
1 parent 1ca7505
commit e88f6cf
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 5 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.10
+Version: 1.4.10.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,5 @@
+# ichimoku 1.4.10.9000 (development)
+
 # ichimoku 1.4.10
 
 * Improves handling of OANDA API errors.

diff --git a/R/utils.R b/R/utils.R
@@ -310,10 +310,11 @@ df_append <- function(old, new, key = "time", keep.attr = "timestamp") {
 #'
 #' @export
 #'
-look <- function(x) {
+look <- function(x = .Last.value) {
 
-  lk <- .Call(ichimoku_look, if (missing(x)) .Last.value else x)
-  if (length(lk)) lk else invisible()
+  lk <- .Call(ichimoku_look, x)
+  is.null(lk) && return(invisible())
+  lk
 
 }
 

diff --git a/man/look.Rd b/man/look.Rd