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)
}

Try the goodpractice package in your browser

Any scripts or data that you put into this service are public.

goodpractice documentation built on Aug. 31, 2022, 1:05 a.m.