gadenbuie

[
  {
    "name": "les Escaldes",
    "state": "Escaldes-Engordany",
    "country": "Andorra",
    "latitude": 42.5073,
    "longitude": 1.5341,
    "timezone": "Europe/Andorra"
  },
  {

gadenbuie

library(tidyverse)
library(RSocrata)
library(glue)
library(gt)

The NWSS Public SARS-CoV-2 Wastewater Metric Data is sourced from https://data.cdc.gov/Public-Health-Surveillance/NWSS-Public-SARS-CoV-2-Wastewater-Metric-Data/2ew6-ywp6.

gadenbuie

#! /usr/bin/env Rscript

if (!requireNamespace("rlang", quietly = TRUE)) {
  stop("`utpr` requires `{usethis}`: install.packages('usethis')")
}

rlang::check_installed(c("usethis", "cli", "docopt"))

'
A command-line wrapper for `pr_*` helper functions from {usethis}.

gadenbuie

library(tidyverse)

bsf <- pkgnet::FunctionReporter$new()
bsf$set_package("bslib")
bsf$calculate_default_measures()

bslib_fns <-

gadenbuie

# https://shiny.posit.co/blog/posts/bslib-dashboards/#hello-dashboards

library(shiny)
library(bslib)
library(ggplot2)


# Setup -------------------------------------------------------------------

data(penguins, package = "palmerpenguins")

gadenbuie

Installing package into ‘/Users/garrick/Library/R/arm64/4.3/library’
(as ‘lib’ is unspecified)
trying URL 'https://cran.rstudio.com/src/contrib/httpuv_1.6.10.tar.gz'
Content type 'application/x-gzip' length 1875497 bytes (1.8 MB)
==================================================
downloaded 1.8 MB

* installing *source* package ‘httpuv’ ...
** package ‘httpuv’ successfully unpacked and MD5 sums checked
** using staged installation

gadenbuie

---
title: Reading a YAML chunk
output: github_document
---

Here's a simple YAML chunk (with the label `config`):

```{yaml config}
default:
  user: "garrick"

gadenbuie

#!/usr/bin/env -S Rscript --vanilla

rlang::check_installed(c("docopt", "pkgdown", "servr", "fs", "pkgload"))

'usage:
  pkgdown-watch [--port=<port> --rebuild --no-sound]
  pkgdown-watch -h | --help

options:
 --port=<port> Port to use for the server [default: 4323]

gadenbuie

Disabling messages in Quarto

https://twitter.com/jgeller_phd/status/1616939690132738055

Messages are turned on.

message("hello")

gadenbuie

snps <-
    list(r = "~/.config/rstudio/snippets/r.snippets") %>%
    purrr::map(readLines, warn = FALSE) %>%
    purrr::map(paste, collapse = "\n") %>%
    purrr::map(trimws) %>%
    purrr::map(strsplit, split = "(^|\n)snippet ") %>%
    purrr::map_depth(2, ~ .x[.x != ""]) %>%
    purrr::map_depth(2, ~ {
      nm <- gsub("^([^\n\t ]+).*", "\\1", .x)
      names(.x) <- nm