From 3ba129fea2b7cc9ecbb326ea2b59b319012074f3 Mon Sep 17 00:00:00 2001
From: shikokuchuo <53399081+shikokuchuo@users.noreply.github.com>
Date: Fri, 15 Dec 2023 10:53:54 +0000
Subject: [PATCH] CRAN release 1.4.12

---
 DESCRIPTION | 2 +-
 NEWS.md     | 2 +-
 R/iplot.R   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 86cab0b0..8a54b0df 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.11.9000
+Version: 1.4.12
 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 851fa8ab..6b1a5051 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,4 @@
-# ichimoku 1.4.11.9000 (development)
+# ichimoku 1.4.12
 
 #### Updates:
 
diff --git a/R/iplot.R b/R/iplot.R
index c8b4ca4e..aef1e617 100644
--- a/R/iplot.R
+++ b/R/iplot.R
@@ -217,7 +217,7 @@ drawInfotip <- function(sidx, sdata, left, top, type, custom = NULL) {
           r = sprintf("<br />R-indicator: %.3g", 100 * sdata[["osc_typ_slw"]]),
           s = sprintf("<br />S-fast: %.3g<br />S-slow: %.3g", 100 * sdata[["osc_typ_fst"]], 100 * sdata[["osc_typ_slw"]]),
           line = ,
-          bar = sprintf("<br />%s: %.5g", custom, sdata[[custom]]),
+          bar = sprintf("<br />%s: %s", custom, as.character(signif(sdata[[custom]], digits = 5))),
           ""
         )
       )