HTTPS all the things. [skip ci]

Author: davidski

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: evaluator
-Title: Information Security Quantified Risk Assessment Toolkit
+Title: Quantified Risk Assessment Toolkit
 Version: 0.1.1.900
 Authors@R: person("David", "Severski", email = "[email protected]", role = c("aut", "cre"))
 Description: An open source risk analysis toolkit based on the OpenFAIR taxonomy 
@@ -41,5 +41,5 @@ Suggests:
   mockery
 Remotes: rstudio/rmarkdown
 VignetteBuilder: knitr
-URL: https://github.com/davidski/evaluator
+URL: https://evaluator.severski.net
 BugReports: https://github.com/davidski/evaluator/issues

NEWS.md

@@ -6,7 +6,7 @@
 * risk_dashboard now expects a mandatory output parameter to the desired rendered 
   output
 * Improved help documentation on many functions
-* New `pkgdown` generated web documentation at http://evaluator.severski.net
+* New `pkgdown` generated web documentation at https://evaluator.severski.net
 * Update of usage vignette
 * Refactored `generate_report` function
     * Now accepts `format` parameter to specify HTML, PDF, or Word

R/simulate.R

@@ -11,14 +11,15 @@
 #' @param scenario Quantitative scenarios.
 #' @param model OpenFAIR model to use.
 #' @param simulation_count Number of simulations for each scenario.
+#' @param verbose Whether verbose console output is requested.
 #' @export
 #' @return Dataframe of raw results.
 #' @examples
 #' data(quantitative_scenarios)
 #' # run a single scenario in a trivial number (10) of trials
 #' run_simulations(quantitative_scenarios[1, ], 10)
 run_simulations <- function(scenario, simulation_count = 10000L,
-                            model = "openfair_tef_tc_diff_lm") {
+                            model = "openfair_tef_tc_diff_lm", verbose = FALSE) {
 
   #model <- rlang::sym(model) # convert characters to symbol
   ## ----run_simulations-----------------------------------------------------
@@ -30,7 +31,7 @@ run_simulations <- function(scenario, simulation_count = 10000L,
                   diff_estimates = x[[1, "diff_params"]],
                   n = simulation_count,
                   title = x$scenario_id,
-                  verbose = FALSE)
+                  verbose = verbose)
     }
 
   pb <- dplyr::progress_estimated(nrow(scenario))

README.Rmd

@@ -1,8 +1,6 @@
 ---
 output:
-  github_document: 
-    includes:
-      in_header: meta_tags.html
+  github_document: default
 ---
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->

README.md

@@ -1,10 +1,4 @@
 
-<meta property="og:url" content="http://evaluator.severski.net"/>
-<meta property="og:title" content="Evaluator - Open Source Quantitative Risk Management"/>
-<meta property="og:description" content="Documentation for Evaluator - an R implementation of OpenFAIR implementation."/>
-<meta property="og:site_name" content="Evaluator"/>
-<meta property="og:image" content="/images/og/default.jpg"/>
-
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 Evaluator <img alt="Evaluator Logo" title="Evaluator" align="right" src="inst/rmd/img/evaluator_logo.jpg" width="100" style="float:right;width:100px;"/>
 ========================================================================================================================================================

_pkgdown.yml

@@ -1,4 +1,4 @@
-url: http://evaluator.severski.net
+url: https://evaluator.severski.net
 
 template:
   params:
@@ -27,7 +27,7 @@ reference:
       - select_loss_opportunities
   - title: Sample Data Sets
     desc: Default demonstration data sets
-    contents: 
+    contents:
       - capabilities
       - domains
       - domain_summary

docs/LICENSE.html

@@ -1,6 +1,6 @@
 urls:
-  reference: http://evaluator.severski.net/reference
-  article: http://evaluator.severski.net/articles
+  reference: https://evaluator.severski.net/reference
+  article: https://evaluator.severski.net/articles
 articles:
   usage: usage.html