In jeffkimbrel/jakR: jakR Miscellaneous Scripts

TITLE

{{TOC}}

r Sys.time()

Setting Up

This report file was knitted from an R markdown file. The .Rmd and any .Rds or chunk cache files will be written here: r params$path

library(knitr)
library(rmdformats)
library(tidyverse)
library(jakR)

## Global options
options(max.print="100", scipen = 999)
opts_chunk$set(echo=params$echo_type,
                 cache=TRUE,
               prompt=FALSE,
               tidy=FALSE,
               comment=NA,
               message=FALSE,
               warning=FALSE, 
               dev = params$image_type, 
               fig.height = 5, 
               fig.width = 8)

a = data.frame(unlist(as.vector(params))) %>%
  dplyr::rename("param" = "unlist.as.vector.params..")

a['path', 'param'] = paste("[", a['path', 'param'], "](", a['path', 'param'], ")", sep = "") %>%
  gsub(pattern = " ", replacement = "%20")

a %>%
  rownames_to_column("name") %>%
  knitr::kable()

theme_set(jak_theme(t = params$theme_bg))
set.seed(params$seed)

Session Info

df_sess = sessioninfo::platform_info() %>%
  unlist() %>%
  as.data.frame() %>%
  rownames_to_column()

colnames(df_sess) = c("name", "value")

df_sess %>%
  knitr::kable()

sessioninfo::package_info() %>%
  as_tibble() %>%
  filter(attached == TRUE) %>%
  select(package, loadedversion, source, date) %>%
  knitr::kable()

jeffkimbrel/jakR documentation built on April 6, 2024, 8:48 p.m.