tests/testthat/bad2/R/attach.R

att <- function() {
  attach(iris)
  Sepal.Width
  detach(iris)
}

sw <- function() {
  setwd("foobar")
}

sapp <- function() {
  sapply(1:10, print)
  sapply(list(), print)
}

lib <- function() {
  library(igraph)
  require(pkgconfig)
}
MangoTheCat/goodpractice documentation built on Sept. 5, 2022, 2 p.m.