hrbrmstr

library(stringi)
library(pdftools)
library(tidyverse)

# we're going to process each page and read_fwf will complain violently
# when it hits header/footer rows vs data rows and we rly don't need to
# see all those warnings
read_fwf_q <- quietly(read_fwf)

# grab the PDF text

hrbrmstr

hrbrmstr

library(grid)
library(hrbrthemes)
library(tidyverse)

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  labs(title = "A Title", subtitle = "A Subtitle") +
  theme_ipsum_rc(grid="XY") -> gg

gb <- ggplot_build(gg)

hrbrmstr

mkpub <- function(who = "hrbrmstr", prj_name) {
  httr::PUT(
    url = sprintf("https://gitlab.com/api/v4/projects/%s%%2F%s", who, prj_name),
    query = list(
      visibility = "public",
      private_token = Sys.getenv("GITLAB_PAT")
    )
  ) -> res
  httr::content(res, as="parsed")
}

hrbrmstr

gh_migrate("YOUR_GITHUB_USERNAME", "GITHUB_REPO")

gitea_user <- function(gitea_username, 
                       api_endpoint = Sys.getenv("GITEA_BASE_URL"),
                       gitea_token = Sys.getenv("GITEA_PAT")) {
    
  require("httr", quietly = TRUE)
  require("jsonlite", quietly = TRUE)
  
  httr::GET(

hrbrmstr

options(viewer = function (url, height = NULL, append=FALSE)  {
  
  # USE AN ENVIRONMENT SEPARATE FROM GLOBAL BUT ACCESSIBLE
  # THIS WILL MAINTAIN CURRENT OUTPUT FILE LOCATION
  
  # IF append IS TRUE THEN INSERT THE NEW HTML AT THE END OF THE FILE
  # THERE ARE LOTS OF WAYS TO DO THIS. ONE IS IFRAME-ing EACH AS THEY
  # ARE APPENDED. ANOTHER IS TO JUST SMUSH THEM ALL TOGETHER
  
  # MAKE url THE FILE WE JUST MODIFIED

hrbrmstr

system(paste(".", pathtoms, "ms 10", 1000*numloc, "-t tbs -r tbs tbs -eN tbs tbs -eN tbs tbs < bottpost |", ".", pathtoms, "sample_stats > ss_postb.txt", sep=""))
system(paste(".", pathtoms, "ms 10", formatC(numsim*numloc,digit=7), " -t tbs -r tbs tbs < const |", ".", pathtoms, "sample_stats > afr-const.txt", sep=""))
system(paste(".", pathtoms, "ms 10", formatC(numsim*numloc,digit=7), " -t tbs -r tbs tbs -eN tbs tbs < exp | ", ".", pathtoms, "sample_stats > afr-exp.txt", sep=""))
system(paste(".", pathtoms, "ms 10", formatC(numsim*numloc,digit=7), " -t tbs -r tbs tbs -eN tbs tbs -eN tbs tbs < bott | ", ".", pathtoms, "sample_stats > afr-bott.txt", sep=""))
system(paste("jags ",run.file,sep=""))
system("cmd /c ver",intern=TRUE,invisible=TRUE)
system("uname -rps",intern=TRUE)
system("rm Rlisting001.tmp")
system("rm Rlisting001.tmp")
system("rm Rlisting001.tmp")

hrbrmstr

`%||%` <- function(a, b) if (is.null(a)) b else a

`%diag*%` <- function(d, X) d * X

`%*diag%` <- function(X, d) t(t(X) * d)

`%nin%` <- function(x, table) !(x %in% table)

`%sub_in%` <- function(x, table) x[x %in% table]

hrbrmstr

• Reproducible Reporting – RStudio
• Interactive Reporting – RStudio
• Managing package dependencies in R with packrat – RStudio
• Data wrangling with R and RStudio – RStudio
• Collaboration and time travel: version control with git, github and RStudio – RStudio
• Dynamic Dashboards with Shiny – RStudio
• How to start with Shiny – Part 1 – RStudio
• [How to start with Shiny – Part 2 – RStudio](https://www.rstudio.com/resources/we

hrbrmstr

library(stringi)
library(tidyverse)

list.files("~/Development/metasploit-framework/modules", recursive = TRUE, full.names = TRUE) %>% 
  map_df(~{
    dat <- read_lines(.x)
    data_frame(
      fil = basename(.x),
      contents = list(
        dat %>%