| library(tidyverse) | |
| library(janitor) | |
| library(glue) | |
| library(rvest) | |
| df <- "https://en.wikipedia.org/wiki/2019_NBA_draft" %>% | |
| read_html() %>% | |
| html_table(fill = TRUE, header = FALSE) %>% | |
| .[[6]] %>% | |
| as_tibble(.name_repair = "unique") %>% |
| library(dplyr) | |
| #> | |
| #> Attaching package: 'dplyr' | |
| #> The following objects are masked from 'package:stats': | |
| #> | |
| #> filter, lag | |
| #> The following objects are masked from 'package:base': | |
| #> | |
| #> intersect, setdiff, setequal, union |
| # src: https://superuser.com/questions/71028/batch-converting-png-to-jpg-in-linux | |
| find . -iname '*.png' | while read i; do mogrify -format jpg "$i" && rm "$i"; echo "Converted $i to ${i%.*}.jpg"; done |
| library(tidyverse) | |
| funcs <- ls("package:RVerbalExpressions") | |
| df <- enframe(funcs, NULL, "func") %>% | |
| mutate( | |
| type = case_when( | |
| func == "%>%" ~ "utility", | |
| func == "rx" ~ "utility", | |
| func == "rx_alpha" ~ "character class", |
| handle_null <- function(.data) { | |
| switch( | |
| as.character(missing(.data)), | |
| "TRUE" = NULL, | |
| "FALSE" = .data | |
| ) | |
| } | |
| # so we can have docs like this | |
| rx_anything(.data, mode = "greedy") |
| rx_literal2 <- function(.data = NULL, ... ) { | |
| stopifnot( | |
| length(unique(sapply(list(...), length))) == 1 | |
| ) | |
| args <- sapply(list(...), function(x) if(inherits(x, "rx_string")) x else sanitize(x)) | |
| apply(args, 1, paste, collapse="") | |
| } | |
| rx_literal2(c("!", "@"), c("abc", "!")) | |
| #> [1] "!abc" "@!" |
| # Check Package Size | |
| # | |
| # Thanks to Alan Dipert for the help with this one. | |
| # | |
| # This function is used to calculate size of package and report size in | |
| # README.md | |
| pkg_size <- function(package) { | |
| root <- find.package(package) | |
| rel_paths <- list.files(root, all.files = TRUE, recursive = TRUE) | |
| abs_paths <- file.path(root, rel_paths) |
| df <- data.frame( | |
| x1 = letters[1:10], | |
| x2 = 1:10, | |
| x3 = sample(c(TRUE, FALSE), 10, replace = TRUE), | |
| x4 = rnorm(10), | |
| x5 = as.factor(LETTERS[1:10]), | |
| stringsAsFactors = FALSE | |
| ) | |
| describe <- function(x, class = TRUE) { |
Make sure to cd into the directory with subfolders containing photos, for example:
#> λ ~/ cd Desktop/test
#> λ ~/Desktop/test/ ls
#> 100003 100004
Where 100003 and 100004 are folders that contain photos. If the folders don't exist and you need to rename photos based on the file name, see this unix solution or this windows solution.
| library(gh) | |
| library(tidyverse) | |
| library(jsonlite) | |
| tidyrepos <- c("ggplot2", | |
| "dplyr", | |
| "tidyr", | |
| "readr", | |
| "purrr", | |
| "tibble", |