| x <- list(iris[1:5, ], iris[1:5, ]) | |
| replace_list <- function(x, value, col) { | |
| x[[col]] <- value | |
| return(x) | |
| } | |
| lapply(x, replace_list, 7, 1) | |
| #> [[1]] | |
| #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species |
| library(gh) | |
| library(tidyverse) | |
| library(jsonlite) | |
| gh("/search/issues?q=author:tylurp+type:pr+is:merged") %>% | |
| toJSON() %>% | |
| fromJSON() %>% | |
| .$items %>% | |
| .$pull_request %>% | |
| .$url %>% |
| library(gh) | |
| library(tidyverse) | |
| library(jsonlite) | |
| tidyrepos <- c("ggplot2", | |
| "dplyr", | |
| "tidyr", | |
| "readr", | |
| "purrr", | |
| "tibble", |
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.
| 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) { |
| # 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) |
| 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" "@!" |
| 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") |
| 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", |
| 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 |