From 7712ab2e64de60805106452dec5f5e3db591fa56 Mon Sep 17 00:00:00 2001
From: pvictor <perrier.victor@gmail.com>
Date: Sat, 13 Jun 2020 13:04:10 +0200
Subject: [PATCH] candles demo data

---
 R/data.R               |  14 ++++++++++++++
 data-raw/candlestick.R |   3 ++-
 data/candles.rda       | Bin 0 -> 1284 bytes
 3 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 data/candles.rda

diff --git a/R/data.R b/R/data.R
index 02dceec..62795bb 100644
--- a/R/data.R
+++ b/R/data.R
@@ -47,4 +47,18 @@
 "consumption"
 
 
+#' Candlestick demo data
+#'
+#'
+#' @format A data frame with 60 observations and the following 5 variables:
+#'   \describe{
+#'     \item{\code{datetime}}{Timestamp.}
+#'     \item{\code{open}}{Open value.}    
+#'     \item{\code{high}}{Highest value.}
+#'     \item{\code{low}}{Lowest value.}
+#'     \item{\code{close}}{Close value.}
+#'   }
+#' @source Apexcharts (\url{https://apexcharts.com/javascript-chart-demos/candlestick-charts/basic/})
+"candles"
+
 
diff --git a/data-raw/candlestick.R b/data-raw/candlestick.R
index 28e46c7..ebeed95 100644
--- a/data-raw/candlestick.R
+++ b/data-raw/candlestick.R
@@ -32,5 +32,6 @@ cdle
 
 apex(cdle, aes(x = datetime, open = open, close = close, low = low, high = high), type = "candlestick")
 
+candles <- as.data.frame(cdle)
 
-
+usethis::use_data(candles, overwrite = TRUE)
diff --git a/data/candles.rda b/data/candles.rda
new file mode 100644
index 0000000000000000000000000000000000000000..894ce196641a614f21b44eacde755bf27c87f140
GIT binary patch
literal 1284
zcmV+f1^fC!T4*^jL0KkKS+$G@kN^VVfB*mg|Mlzr``7>X|NpP&{M=TQw6#6m|NsC0
z-~ao6OMlP<tv$LBanrI`Xp*Ps)fqHs8aAh>84WZ&KnB#r01X2}Lr+uGGJ2k&rkXa8
z9-~b*pvjt#Q1v#W(rrzsWIU(pjE2<o^#}*38a)tdXav;L1wBn500w{n8UO$Q00000
z4FCWD0000000w{n0Af=}kN^PC8W|p@f$B5^L7)H)4^TZo27@3p27#afpa1{>Xa}SK
z+M0SsO#uK5hK4{H15FwLXc{tT14bdBXaF$)8Z-a^GBg@81|v-x3_#EWK*#_9NhFl@
zGeCww0j5R}$N{FB4Ky@pXfgl?r~m^%01XWQ&@=`J0g;dZ2AT~G4IL;jWHZdWuHE(@
zTbs`c@L~J^L<Rm|aoMl6NZ}wtE2H$9zSFiIh|p8XFN}(-0Jah?@`NTJg9)1Iu7Xtv
zZ?GbVY5rjhf`El(1^zm}f1k&^Zy^)E%GBJyb3O6#y4?L)*0q?Nc-#ALVaJxzK5?|2
zf6&cM*;TZ>gI&VX+B~F<4fN$pIu-x`2CUlYkR{Def(VF+1wHN3)|!C9q3Ojyd$Pnm
zmC-Ch06`LD_!$Q2lQC*wbC@C-ksz9n0bodSAQvDR1j&dD5P%902*G7_^UHIgq_r{Y
z!N4$valm|l$ceQ|NufY4CZNdmtL<h{CH2sX4L3wjg+|~A;6akTrXshndc5E{4_V~j
zXP~IW7vH#tgOMw1^_+Slo>c0AQG+*Kr3zf61BpFo5Uk88D=jkr+XU{~o)bs}H}tVc
z1^DtCj=WPW)$r2z07<C>5T&8aU}S{G+7wq>aV$1>f*O1s;|85Xo_oUdeKSi48`#^>
z_OVf9+OUkWXO!zD8EoOXhaGw(95%4e(`Jcagf&8P(D^Qh6d+4UE}G=YaDoV8iIEh?
zJckhGoZ=|rLt}Jlkftg*fh{x%J0yYhi4exQuSC@ZNN^=V!j6JfrBlulB6y`J9VkE&
z5a}fV@Xa|!iS~smbA-y<<fE*gEny@SkkXbD6fmK*3XLLH**?Z5CeS?KMCG2CbC|%!
z!O^D(<G=FFyqEy4*u6uJlpN+TPfiWd%%27j*Ch3#GqWxrnV5=^0u7f#6w1ce{?|~d
zji{n!SgL1Jf(ZuCNI;WDZ~#gB4w&qDt2Y-NdeJRLH*{?*PQF#th>N~8j7ef7dE@{N
z#~>fbOVU&Zt1RZL2Mvo8WvIZITCa`dlF2T*@nK~~QTCQ_{|iLZZb&Y8>pXiHND)<$
z_Sc8;Z^^qGmXQQAa~m?46ONGNi9vkPs|cUs0^%?<0u-YUJC$4Y+K{3IEijj6k&rM&
z0@k6;Q_=&fFMe*<ASMV!Fu)ld1e~C@y~Ni~7xExM0)k+&0x^ufQlGb^QvuYKWlmmc
zJfq|oBR+(53`8@@5mivY5#ad%B&*%*g5-h&A#GR|<-ejO*>sdcl6=52_b`Y!R|1Ez
zaIx%>_+$&rcUrzAL*$tZ7!Xj~pKv0P5^%s0RZuf>$Scbr@gc<oW222#D3RP2xzPKF
zH3*$410{+LB#90=WJAIW8Q`dpbl`|R`fCr~@yf!`JR-=L6fg!wl0(BG4eghRkmz$?
uzX)8%2#%=)0s=Z}Sp_eTFlZJT8!*Q+H-EY%I1IvH@pmLsg$WB-z<B^FqcuAK

literal 0
HcmV?d00001