stewartli stewartli

MongoDB Cheat Sheet

show dbs

This script is modeled after tee (see [man tee][2]) and works on Linux, macOS, Cygwin, WSL/WSL2

It's like your normal copy and paste commands, but unified and able to sense when you want it to be chainable.

This project started as an answer to the StackOverflow question: [How can I copy the output of a command directly into my clipboard?][3]

	gen_plot <- function(xvals = c(1,12), yvals = c(1,10), n = 10,
	distance = seq(-3,3,length.out =n),
	seed = NULL, palette = c("red", "blue")){

	# adapted from: https://stackoverflow.com/questions/50275195/
	segment.shift <- function(x1,x2,y1,y2, d){

	# calculate vector
	v <- c(x2 - x1,y2 - y1)

	---
	title: "Fancy math"
	output:
	html_document: default
	pdf_document: default
	---

	```{r setup, include=FALSE}
	# Conditional tikz output types; use PDF if this is LaTeX, otherwise use a
	# shrunken down high resolution PNG

	library(shiny)
	xy <- c(784,479) #output of grDevices::dev.size("px")
	url <- "https://www.youtube.com/watch?v=Ef2jmf2vy00" #copy yt link here
	url <- gsub("watch\\?v=","embed/",url)
	ui <- fluidPage(
	HTML(paste0('<iframe width="',xy[1],'" height="',xy[2],'" src="',url,'" frameborder="0"></iframe>'))
	)
	server <- function(input, output, session) {
	}

	# Data available here
	# https://www.ons.gov.uk/file?uri=/peoplepopulationandcommunity/birthsdeathsandmarriages/livebirths/adhocs/009010babynames1996to2017englandandwales/adhocallbabynames1996to2017.xls
	library(tidyverse)
	library(readxl)

	rank_names <- map_chr(2017:1996, paste0, "-rank")
	count_names <- map_chr(2017:1996, paste0, "-count")

	cnames <- c(rank_names, count_names) %>% sort(decreasing = TRUE)