R包开发流程

install.packages("devtools")
library(devtools)
library(usethis)

usethis::create_package("~/toypackages")

usethis::use_r("fbind")

fbind <- function(a, b) {
  factor(c(as.character(a), as.character(b)))
}

devtools::load_all()
a <- factor(c("character", "hits", "your", "eyeballs"))
b <- factor(c("but", "integer", "where it", "counts"))
fbind(a,b)

devtools::check()

					`use_mit_license()`   -> `MIT` license

usethis::use_mit_license("xiongfeng chen")

#' @examples
#' fbind(iris$Species[c(1, 51, 101)], PlantGrowth$group[c(1, 11, 21)])
fbind <- function(a, b) {
  factor(c(as.character(a), as.character(b)))
}

document()

?fbind

install()

library(toypackage)
a <- factor(c("character", "hits", "your", "eyeballs"))
b <- factor(c("but", "integer", "where it", "counts"))
fbind(a, b)

								 -> 创建tests/testthat`文件夹，并生成`testthat.R`文件

library(devtools)
use_testthat()

use_test("fbind")

test_that("fbind() binds factor (or character)", {
  x <- c("a", "b")
  x_fact <- factor(x)
  y <- c("c", "d")
  z <- factor(c("a", "b", "c", "d"))

  expect_identical(fbind(x, y), z)
  expect_identical(fbind(x_fact, y), z)
})

test()

						-> `DESCRIPTION`文件添加 `Imports::forcats`

use_package("forcats")

x <- sample(1000)
usethis::use_data(x, mtcars，`internal = TRUE`）

usethis::use_data_raw()

#' Prices of 50,000 round cut diamonds.
#'
#' A dataset containing the prices and other attributes of almost 54,000
#' diamonds.
#'
#' @format A data frame with 53940 rows and 10 variables:
#' \describe{
#'   \item{price}{price, in US dollars}
#'   \item{carat}{weight of the diamond, in carats}
#'   ...
#' }
#' @source \url{http://www.diamondse.info/}
"diamonds"

			工作路径最好是源码包的top-level