Chapter 6 Creating R packages

library(devtools)

## Loading required package: usethis

packageVersion("devtools")

## [1] '2.4.5'

create_package("~/path/to/regexcite")

use_git()

(x <- "alfa,bravo,charlie,delta")

## [1] "alfa,bravo,charlie,delta"

#> [1] "alfa,bravo,charlie,delta"
strsplit(x, split = ",")

## [[1]]
## [1] "alfa"    "bravo"   "charlie" "delta"

str(strsplit(x, split = ","))

## List of 1
##  $ : chr [1:4] "alfa" "bravo" "charlie" "delta"

unlist(strsplit(x, split = ","))

## [1] "alfa"    "bravo"   "charlie" "delta"

strsplit(x, split = ",")[[1]]

## [1] "alfa"    "bravo"   "charlie" "delta"

strsplit1 <- function(x, split) {
  strsplit(x, split = split)[[1]]
}

use_r("strsplit1")

## ✔ Setting active project to
##   "C:/Users/Mijn-PC/Documents/r/r/worfklow_ds_2".

## ☐ Edit 'R/strsplit1.R'.

load_all()

(x <- "alfa,bravo,charlie,delta")

## [1] "alfa,bravo,charlie,delta"

strsplit1(x, split = ",")

## [1] "alfa"    "bravo"   "charlie" "delta"

check()