append_rlang: Append rlang !!sym

In yonicd/tidycheckUsage: Tidy Output of checkUsage from codetools Package

Description

Programatically append template on objects to the body of a function

Usage

append_rlang(obj, template = "(!!sym('%s'))")

## S3 method for class 'function_usage'
append_rlang(obj, template = "(!!sym('%s'))")

## S3 method for class 'package_usage'
append_rlang(obj, template = "(!!sym('%s'))")

Arguments

obj	function_usage or package_usage class
template	pattern to replace an object with, Default: "(!!sym('%s'))"

Value

function

Examples

## Not run: 
x <- function(){
  
  data <- tidyr::unite(mtcars, col = vs_am, c(vs,am))
  
  ggplot2::ggplot(data = data, ggplot2::aes(x=mpg^2,y=qsec,colour=vs_am)) + 
    ggplot2::geom_point()
}

obj <- tidycheckUsage::tidycheckUsage(x)

(x1 <- tidycheckUsage::append_rlang(obj))

tidycheckUsage::tidycheckUsage(x1)

x1()

## End(Not run)

yonicd/tidycheckUsage documentation built on May 10, 2019, 8:31 a.m.