feat: auto-adjust figure definition from out.width

Refs #6

inst/templates/basic/setup.R

@@ -25,6 +25,13 @@ knitr::opts_chunk$set(
     always_allow_html = TRUE
 )
 
+getFigWidth <- function(out.width = knitr::opts_chunk$get("out.width")) {
+  6 * readr::parse_number(out.width) /  70
+}
+knitr::opts_chunk$set(
+  fig.width = getFigWidth()
+)
+
 if (Sys.getenv("CACHE_CI") != "") {
     knitr::opts_chunk$set(
         cache.path = file.path(Sys.getenv("CACHE_CI"),