updated

DESCRIPTION

@@ -1,10 +1,10 @@
 Package: EviewsR
 Type: Package
 Title: A Seamless Integration of 'EViews' and R
-Version: 0.1.5
+Version: 0.1.6
 Authors@R: c(
-    person("Sagiru", "Mati", role = c("aut", "cre"), email = "smati@smati.com.ng",comment=c(ORCID="0000-0003-1413-3974")))
-Maintainer: Sagiru Mati <smati@smati.com.ng>
+    person("Sagiru", "Mati", role = c("aut", "cre"), email = "sagirumati@gmail.com",comment=c(ORCID="0000-0003-1413-3974")))
+Maintainer: Sagiru Mati <sagirumati@gmail.com>
 Description: It allows running 'EViews'(<https://eviews.com>) program from R, R Markdown and Quarto documents. 'EViews' (Econometric Views) is a statistical software for Econometric analysis.  This package integrates 'EViews' and R and also serves as an 'EViews' Knit-Engine for 'knitr' package. Write all your 'EViews' commands in R, R Markdown or Quarto documents.
 Depends: R (>= 3.4.0)
 Imports: knitr (>= 1.20), magrittr, xts, zoo
@@ -15,7 +15,7 @@ URL: https://CRAN.R-project.org/package=EviewsR
 BugReports: https://github.com/sagirumati/EviewsR/issues
 Encoding: UTF-8
 VignetteBuilder: knitr
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
 NeedsCompilation: no
 Packaged: 2022-08-08 15:31:44 UTC; Sagiru
 Repository: CRAN

NEWS.md

@@ -2,8 +2,7 @@
 
 What's new?
 
-* `import_graph`function now uses chunk option `graph_procs`, however the chunk option is overwritten by `graph_procs` function  argument.
-* Bug fixes: `graph_procs` is now working in import_graph function
+* `import_graph()` and `eviews_graph()` functions now use chunk option `graph_procs`, if the function  argument `graph_procs=""`.
 
 * Bug fixes: `graph_procs` is now working in chunk options  
 

R/eviews_graph.R

@@ -40,6 +40,8 @@
 #' @export
 eviews_graph=function(wf="",page="*",series="*",group=FALSE,graph_command="line",graph_options="",mode="overwrite",graph_procs="",datelabel="",save_options='',save_path="",frequency="m",start_date="",save_copy=TRUE){
 
+  if(identical(graph_procs,"") && !is.null(opts_current$get('graph_procs'))) graph_procs=opts_current$get('graph_procs')
+
 if(is.xts(series)) series=data.frame(date=index(series),coredata(series))
 
 if(wf!="" && save_path=="") save_path=dirname(wf)

R/import_graph.R

@@ -44,7 +44,7 @@ import_graph=function(wf="",page="*",graph="*",graph_procs="",save_options="",sa
   chunkLabel=opts_current$get("label")
 
   dev=opts_current$get('dev')
-  if(graph_procs=="" && !is.null(opts_current$get('graph_procs'))) graph_procs=opts_current$get('graph_procs')
+  if(identical(graph_procs,"") && !is.null(opts_current$get('graph_procs'))) graph_procs=opts_current$get('graph_procs')
 
 graph1=graph