append_code: Add code to code block

In dgkf/scriptgloss: Functionality for creating static scripts from shiny apps

Description

Add code to code block

Usage

append_code(x, code, after = length(x))

Arguments

x	existing code block to append to
code	additional list of code to append
after	position at which to append code

Value

the initial code block with additional code inserted at specified after position

Examples

code1 <- quote({
  a <- 1
  b <- 2
  e <- 5
})

code2 <- quote({
  c <- 3
  d <- 4
})

scriptgloss:::append_code(code1, as.list(code2)[-1], 2)

dgkf/scriptgloss documentation built on June 8, 2019, 8:43 p.m.