jennybc

scale_x_discrete(limits = rev(levels(the_factor)))

jennybc

pat <- gitcreds::gitcreds_get()
cksum <- digest::digest(
  substr(pat$password, start = 5, stop = nchar(pat$password) - 6),
  algo =  "crc32", serialize = FALSE
)

# https://stackoverflow.com/q/5478508
toBase <- function(num, base=62) {
  # bv <- c(seq(0,9),letters,LETTERS)
  # GitHub seems to do UPPERCASE then lowercase

jennybc

Finessing Excel's stupid line endings

I am sheepish to admit a certain type of routine Microsoft Excel use.

Current example: I am marking for STAT 545. I use R to create a comma delimited marking sheet, by joining the official class list and peer reviews. The sheet contains variables, initially set to NA, where the TAs and I enter official marks and optional comments.

This is where Excel comes in. I like its visual organization of this comma delimited file much more than, say, using a plain text editor. I use the ability to hide columns, resize columns, wrap text, and (gasp!) even fill rows with grey to indicate I am done.

I keep saving the file as comma delimited and I put up with Excel's incessant freak out about "losing features". This is not a one time thing. I need to save and commit this file many times before it is considered done.

jennybc

There are packages for this now!

2017-08-03: Since I wrote this in 2014, the universe, specifically Kirill Müller (https://github.com/krlmlr), has provided better solutions to this problem. I now recommend that you use one of these two packages:

• rprojroot: This is the main package with functions to help you express paths in a way that will "just work" when developing interactively in an RStudio Project and when you render your file.
• here: A lightweight wrapper around rprojroot that anticipates the most likely scenario: you want to write paths relative to the top-level directory, defined as an RStudio project or Git repo. TRY THIS FIRST.

I love these packages so much I wrote an ode to here.

I use these packages now instead of what I describe below. I'll leave this gist up for historical interest. 😆

jennybc

---
title: "twee demo"
author: "Jenny Bryan"
date: "17 August, 2014"
output:
  html_document:
    toc: TRUE
    keep_md: TRUE
---

jennybc

---
title: "Quicky and dirty: side-by-side plot and table"
author: "Omar AlOmeir"
output: 
  html_document:
    css: two_columns.css
---

Code from Omar AlOmeir, posted by Jenny Bryan

jennybc

## this snippet was the original gist but the Rmd solution below is even nicer

## auto-generate a visual index as README.md in current working directory
fig_files <- list.files(pattern = "jpg$") # change to png$ as needed!
writeLines(paste0(fig_files, "\n",
                  "![`", fig_files, "`](", fig_files, ")\n\n"), "README.md")

jennybc

#' ---
#' title: "Something fascinating"
#' author: "Jenny Bryan"
#' date: "`r format(Sys.Date())`"
#' output: github_document
#' ---

jennybc

---
output:
  html_document
---

```{r setup, echo = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

jennybc

library(tidyverse)

(df <- tibble(
  id = 1:3,
  wut = letters[3:1],
  x1 = 1:3,
  x2 = 4:6,
  x3 = 7:9
))