From 28a6be42d00953f124ea044c191574b6268925f4 Mon Sep 17 00:00:00 2001
From: CJ Yetman <cyetman@rmi.org>
Date: Wed, 9 Nov 2022 00:58:58 +0100
Subject: [PATCH 1/3] add articles for `exposure_pie_chart()` and
 `exposure_map_chart()`

---
 vignettes/exposure_map.Rmd | 29 +++++++++++++++++++++++++++++
 vignettes/exposure_pie.Rmd | 22 ++++++++++++++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 vignettes/exposure_map.Rmd
 create mode 100644 vignettes/exposure_pie.Rmd

diff --git a/vignettes/exposure_map.Rmd b/vignettes/exposure_map.Rmd
new file mode 100644
index 0000000..24460f5
--- /dev/null
+++ b/vignettes/exposure_map.Rmd
@@ -0,0 +1,29 @@
+---
+title: "Exposure Map interactive chart"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{Exposure Map interactive chart}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+```{r}
+library(r2dii.interactive)
+
+load(system.file("example-data/test.rda", package = "r2dii.interactive"))
+
+results_map <-
+  bind_rows(
+    "Listed Equity" = ungroup(equity_results_map),
+    "Corporate Bonds" = ungroup(bonds_results_map),
+    .id = "asset_class"
+  )
+
+exposure_map_data <- as_exposure_map_data(results_map)
+
+exposure_map_chart(exposure_map_data)
+```
diff --git a/vignettes/exposure_pie.Rmd b/vignettes/exposure_pie.Rmd
new file mode 100644
index 0000000..c3685ee
--- /dev/null
+++ b/vignettes/exposure_pie.Rmd
@@ -0,0 +1,22 @@
+---
+title: "Exposure Pie interactive chart"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{Exposure Pie interactive chart}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+```{r}
+library(r2dii.interactive)
+
+load(system.file("example-data/test.rda", package = "r2dii.interactive"))
+
+exposure_pie_data <- as_exposure_pie_data(audit_file)
+
+exposure_pie_chart(exposure_pie_data, options = list(default_class = "Listed Equity"))
+```

From bc856d03a3fea8fdaa8fb6b2c8349e562b6b0cce Mon Sep 17 00:00:00 2001
From: CJ Yetman <cyetman@rmi.org>
Date: Wed, 7 Dec 2022 11:37:06 +0100
Subject: [PATCH 2/3] namespace {dplyr} functions

---
 vignettes/exposure_map.Rmd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/vignettes/exposure_map.Rmd b/vignettes/exposure_map.Rmd
index 24460f5..8af6fe3 100644
--- a/vignettes/exposure_map.Rmd
+++ b/vignettes/exposure_map.Rmd
@@ -17,9 +17,9 @@ library(r2dii.interactive)
 load(system.file("example-data/test.rda", package = "r2dii.interactive"))
 
 results_map <-
-  bind_rows(
-    "Listed Equity" = ungroup(equity_results_map),
-    "Corporate Bonds" = ungroup(bonds_results_map),
+  dplyr::bind_rows(
+    "Listed Equity" = dplyr::ungroup(equity_results_map),
+    "Corporate Bonds" = dplyr::ungroup(bonds_results_map),
     .id = "asset_class"
   )
 

From e10b606e599335cd2f1ec4869e5d70e561c34949 Mon Sep 17 00:00:00 2001
From: CJ Yetman <cyetman@rmi.org>
Date: Wed, 7 Dec 2022 12:30:12 +0100
Subject: [PATCH 3/3] update pkg name to pacta.interactive.plot

---
 vignettes/exposure_map.Rmd | 4 ++--
 vignettes/exposure_pie.Rmd | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/vignettes/exposure_map.Rmd b/vignettes/exposure_map.Rmd
index 8af6fe3..0a628e3 100644
--- a/vignettes/exposure_map.Rmd
+++ b/vignettes/exposure_map.Rmd
@@ -12,9 +12,9 @@ knitr::opts_chunk$set(echo = TRUE)
 ```
 
 ```{r}
-library(r2dii.interactive)
+library(pacta.interactive.plot)
 
-load(system.file("example-data/test.rda", package = "r2dii.interactive"))
+load(system.file("example-data/test.rda", package = "pacta.interactive.plot"))
 
 results_map <-
   dplyr::bind_rows(
diff --git a/vignettes/exposure_pie.Rmd b/vignettes/exposure_pie.Rmd
index c3685ee..92086e9 100644
--- a/vignettes/exposure_pie.Rmd
+++ b/vignettes/exposure_pie.Rmd
@@ -12,9 +12,9 @@ knitr::opts_chunk$set(echo = TRUE)
 ```
 
 ```{r}
-library(r2dii.interactive)
+library(pacta.interactive.plot)
 
-load(system.file("example-data/test.rda", package = "r2dii.interactive"))
+load(system.file("example-data/test.rda", package = "pacta.interactive.plot"))
 
 exposure_pie_data <- as_exposure_pie_data(audit_file)