add addin support

nbgallery · Mar 16, 2020 · 37633aa · 37633aa
1 parent 67cbff5
commit 37633aa
Show file tree

Hide file tree

Showing 3 changed files with 60 additions and 0 deletions.
diff --git a/R/pki_enable_download_file.R b/R/pki_enable_download_file.R
@@ -51,6 +51,32 @@ pki_enable_download_file <- function(mypki_file = NULL,
 }
 
 
+addin_pki_enable_download_file <- function() {
+  result <- rstudioapi::showQuestion("rpki", "Please select your PKI certificate (*.p12)")
+  if (result) {
+    p12_file <- rstudioapi::selectFile(
+      caption = "PKI File",
+      label = "Select",
+      path = rstudioapi::getActiveProject(),
+      filter = "*.p12",
+      existing = TRUE
+    )
+    print(p12_file)
+  }
+  continue <- rstudioapi::showQuestion("rpki", "Please select your Certificate Authority (CA) bundle (*.crt)")
+  if (continue) {
+    ca_file <- rstudioapi::selectFile(
+      caption = "CA Bundle",
+      label = "Select",
+      path = rstudioapi::getActiveProject(),
+      filter = "*.crt",
+      existing = TRUE
+    )
+    print(ca_file)
+  }
+}
+
+
 #' @import openssl
 #' @importFrom getPass getPass
 set_download_file_config <- function(ca_file = NULL, pki_file = NULL, pass = NULL) {

diff --git a/R/pki_enable_httr.R b/R/pki_enable_httr.R
@@ -50,6 +50,31 @@ pki_enable_httr <- function(mypki_file = NULL,
 }
 
 
+addin_pki_enable_httr <- function() {
+  continue <- rstudioapi::showQuestion("rpki", "Please select your PKI certificate (*.p12)")
+  if (continue) {
+    p12_file <- rstudioapi::selectFile(
+      caption = "PKI File",
+      label = "Select",
+      path = rstudioapi::getActiveProject(),
+      filter = "*.p12",
+      existing = TRUE
+    )
+    print(p12_file)
+  }
+  continue <- rstudioapi::showQuestion("rpki", "Please select your Certificate Authority (CA) bundle (*.crt)")
+  if (continue) {
+    ca_file <- rstudioapi::selectFile(
+      caption = "CA Bundle",
+      label = "Select",
+      path = rstudioapi::getActiveProject(),
+      filter = "*.crt",
+      existing = TRUE
+    )
+    print(ca_file)
+  }
+}
+
 #' @import openssl
 #' @importFrom getPass getPass
 set_httr_config <- function(ca_file = NULL, pki_file = NULL, pass = NULL) {

diff --git a/inst/rstudio/addins.dcf b/inst/rstudio/addins.dcf
@@ -0,0 +1,9 @@
+Name: PKI-enable install.packages()
+Description: setup install.packages() with pki authentication
+Binding: addin_pki_enable_download_file
+Interactive: true
+
+Name: PKI-enable httr
+Description: setup httr config options for pki authentication
+Binding: addin_pki_enable_httr
+Interactive: true