Inspired by dannyfritz/commit-message-emoji
See also gitmoji.
Commit type | Emoji |
---|---|
Initial commit | 🎉 :tada: |
Version tag | 🔖 :bookmark: |
New feature | ✨ :sparkles: |
Bugfix | 🐛 :bug: |
Inspired by dannyfritz/commit-message-emoji
See also gitmoji.
Commit type | Emoji |
---|---|
Initial commit | 🎉 :tada: |
Version tag | 🔖 :bookmark: |
New feature | ✨ :sparkles: |
Bugfix | 🐛 :bug: |
library(ggplot2) | |
# dput(ls(pattern = "theme",package:ggplot2)) | |
defaults <- c("theme_bw", "theme_classic", "theme_dark", | |
"theme_grey", "theme_light", "theme_linedraw", | |
"theme_minimal", "theme_void") | |
library(ggthemes) | |
# dput(ls(pattern = "theme",package:ggthemes)) | |
addons <- c("theme_base", "theme_calc", "theme_economist", | |
"theme_economist_white", "theme_excel", "theme_few", "theme_fivethirtyeight", | |
"theme_foundation", "theme_gdocs", "theme_hc", "theme_igray", |
Porting Jon Schwabish's World Tile Grid Map to ggplot2.
##################################################### | |
##################################################### | |
### R Script for Metamodeling and Rule Extraction ### | |
##################################################### | |
##################################################### | |
############################# | |
### Step I: Load Packages ### | |
############################# |
library(tidyverse) | |
library(lubridate) | |
library(scales) | |
df <- tibble( | |
date = seq.Date(from=ymd("2019-01-01"),to=ymd("2019-12-31"),by="day"), | |
wkdy = wday(date,label=T), | |
mo = month(date,label=T), | |
mo.num = month(date,label=F), | |
day = day(date) |
#' Download files from Zenodo record id | |
#' | |
#' @param record_id record id | |
#' @param dest_folder destination folder for file downloads | |
#' @param token API key | |
#' | |
#' @details https://github.com/zenodo/zenodo/issues/1629#issuecomment-435062462 | |
#' | |
#' @importFrom httr GET content | |
#' @importFrom jsonlite fromJSON |
# Download earth data first | |
# https://www.naturalearthdata.com/http//www.naturalearthdata.com/download/110m/physical/ne_110m_land.zip | |
library(sf) | |
library(lwgeom) | |
library(dplyr) | |
library(ggplot2) | |
library(mapview) | |
# Read the data |
# Load the relevant packages | |
library(NCmisc) | |
library(stringr) | |
# Load the script and parse lines | |
file_name <- "example_script.R" | |
file_lines <- readLines(file_name) | |
# Save the function and package names | |
functions_list <- list.functions.in.file(file_name) |
# ======================================= | |
# = Enhancements to data tidying = | |
# = Hadley Wickham = | |
# = https://rstd.io/tidyhancements-2019 = | |
# ======================================= | |
# What is tidy data? ---------------------------------------------------------- | |
# 1. Each column is a variable. | |
# 2. Each row is an observation. | |
# 3. Each cell is a value. |