edavidaja

---
format: revealjs
---

## purrr

::: r-fit-text
`map(.x, .f, ...)`
:::

edavidaja

#!/bin/bash

set -e
BCYAN='\033[1;36m'
BRED='\033[1;31m' 
NC='\033[0m' # No Color
BOLD='\033[1m'

print_heading() {
    echo ""

edavidaja

#!/usr/bin/Rscript

get_nodes <- function(nodes = Sys.getenv("RSTUDIO_NODES")) {
  unlist(strsplit(nodes, ",", fixed = TRUE))
}

get_health_check <- function(node_address) {
  con <- url(sprintf("http://%s/health-check", node_address))
  on.exit(close(con))
  readLines(con)

edavidaja

library(shiny)

ui <- fluidPage(
    # Application title
    titlePanel("clippers"),

    sidebarLayout(
        sidebarPanel(
            textAreaInput("text_input", "enter text:"),
            # using submit button makes the copy less of a lie (but still a lie) because

edavidaja

library(shinydashboard)
library(dplyr)
library(dbplyr)
library(purrr)
library(shiny)
library(highcharter)
library(DT)
library(htmltools)

# Use the `config` package to get the credentials

edavidaja

# renv must be active
install.packages(
  c(
    "jimhester/lookup",
    "devtools",
    "usethis",
    "MilesMcBain/breakerofchains"
  )
)

edavidaja

{directlabels} lets you attach categorical labels to many plots. for labeling values on plots, use ggrepel:

suppressPackageStartupMessages({
  library(ggplot2)
  library(ggrepel)
  library(dplyr)
})

edavidaja

library(ggplot2)
library(purrr)
split_iris <- split(iris, 1:3)
map2(
  split_iris, names(split_iris), ~ {
    lm(Sepal.Length ~ Sepal.Width, data = .x)
    p <- ggplot(.x, aes(Sepal.Width, Sepal.Length, color = Species)) + geom_point()
    print(p)
 ggsave(plot = p, filename = paste0("plot_", .y, ".png"))

edavidaja

library(ggplot2)
library(ggtext)
 
dat <- economics_long[economics_long$variable %in% c("psavert", "uempmed"), ]
ggplot(dat, aes(date, value, color = variable)) +
  geom_line() +
  scale_color_manual(values = c("#0072B2", "#009E73")) +
 labs(

edavidaja

        {
            "background": "#2E3440",
            "black" : "#3B4252",
            "blue" : "#81A1C1",
            "cyan" : "#88C0D0",
            "foreground": "#D8DEE9",
            "green" : "#A3BE8C",
            "brightBlack" : "#4C566A",
            "brightBlue" : "#81A1C1",
            "brightCyan" : "#8FBCBB",