From 662d9090ce9cf2a33b52e70232890b57f7d46c44 Mon Sep 17 00:00:00 2001
From: Serkan Korkmaz <77464572+serkor1@users.noreply.github.com>
Date: Thu, 26 Oct 2023 19:12:14 +0200
Subject: [PATCH] Fixed addVlines Bug

The bug consisted of conversion of data that werent compatible with existing coding
---
 R/chart_indicators.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/chart_indicators.R b/R/chart_indicators.R
index c3fa8c02..fc78a4b9 100644
--- a/R/chart_indicators.R
+++ b/R/chart_indicators.R
@@ -465,9 +465,9 @@ addRSI <- function(
 #' @export
 addVlines <- function(plot, object, color = 'steelblue') {
 
-  quote <- toDF(
-    object
-  )
+  # quote <- toDF(
+  #   object
+  # )
 
   # 1) extract the main
   # chart from the plot
@@ -480,7 +480,7 @@ addVlines <- function(plot, object, color = 'steelblue') {
     shapes = do.call(
       list,
       lapply(
-        zoo::index(quote),
+        zoo::index(object),
         function(x) {
 
           vline(
@@ -494,7 +494,7 @@ addVlines <- function(plot, object, color = 'steelblue') {
   )
 
   plot$main <- plot_
-  attributes(plot)$quote <- toDF(quote)
+  # attributes(plot)$quote <- toDF(quote)
 
   return(
     invisible(plot)