ledell

# library(devtools)
# devtools::install_github("rladies/meetupr")
library(meetupr)

# Log in to meetup.com, your key is here: https://secure.meetup.com/meetup_api/key/
api_key <- "YOUR_API_KEY_HERE"

# `urlname` is a human-readable unique id for a meetup, e.g. https://www.meetup.com/R-Ladies-Budapest/
urlname <- "R-Ladies-Budapest"  

jmcphers

"HOW TO GIVE AN EXCEPTIONALLY GOOD PRESENTATION"

CHARACTERS

Joe Cheng.............Moderator
Jennifer Bryan........As Herself
Hadley Wickham........As Himself
Aron Atkins...........Audience
Derrick Kearney.......Audience

egmontkob

Hyperlinks (a.k.a. HTML-like anchors) in terminal emulators

[ Update 2020-05-31: I won't be maintaining this page or responding to comments anymore (except for perhaps a few exceptional occasions). ]

---

Most of the terminal emulators auto-detect when a URL appears onscreen and allow to conveniently open them (e.g. via Ctrl+click or Cmd+click, or the right click menu).

It was, however, not possible until now for arbitrary text to point to URLs, just as on webpages.

hadley

path <- "~/Documents/ingest/readxl/inst/extdata/datasets.xlsx"

zip_file <- function(path) {
  stopifnot(file.exists(path))
  
  path <- normalizePath(path)
  
  contents <- utils::unzip(path, list = TRUE) 
  names(contents) <- c("path", "size", "date")
  contents <- contents[contents$size > 0, , drop = FALSE]

ericclemmons

Using <details> in GitHub

Suppose you're opening an issue and there's a lot noisey logs that may be useful.

Rather than wrecking readability, wrap it in a <details> tag!

<details>
 Summary Goes Here

jmcphers

VIM FOR ADULTS

CHAPTER ONE: STOP TYPING

intro/stuff you should already know

what is vim?

• based on very old editor (vi) designed in the days when connections were slow
• installed on almost every *nix system, incl. os x
• organic growth since to include hundreds of modern features

gaborcsardi

library(jsonlite)

## Download
pkgs <- fromJSON("http://crandb.r-pkg.org/-/events")

## Filter
na_pkgs <- unique(pkgs$name[ is.na(pkgs$date) ])
events <- pkgs[ ! pkgs$name %in% na_pkgs, c("date", "name", "event")]

wch

# ==== Creating UTF-8 strings ====
# This is how to create a string with UTF-8 encoding. This should work 
# regardless of the current locale settings.
x <- rawToChar(as.raw(c(0xe5, 0x8d, 0x88)))
Encoding(x) <- "UTF-8"
x
# [1] "午"

# Another string, 'Δ★😎'
pat <- rawToChar(as.raw(c(0xce, 0x94, 0xe2, 0x98, 0x85, 0xf0, 0x9f, 0x98, 0x8e)))

jeroen

# Send Gabor an encrypted message
library(openssl)
library(jsonlite)

# Get Gabor's pubkey
keydata <- fromJSON("https://api.github.com/users/gaborcsardi/keys")
cat("Number of keys:", nrow(keydata), "\n")
pubkey <- read_pubkey(textConnection(keydata$key[1]))
print(pubkey)

aronatkins

#!/bin/bash
#
# Installs the latest RStudio daily desktop build for OSX/macOS and Ubuntu(amd64)
#
# https://support.rstudio.com/hc/en-us/articles/203842428-Getting-the-newest-RStudio-builds

set -e

install_macos_daily() {
    REDIRECT_URL="https://www.rstudio.org/download/latest/daily/desktop/mac/RStudio-latest.dmg"