Source specific lines from a file in R

source_lines.R

#' Source specific lines in an R file
#'
#' @param file character string with the path to the file to source.
#' @param lines numeric vector of lines to source in \code{file}.

source_lines <- function(file, lines){
    source(textConnection(readLines(file)[lines]))
}