R/s.R

In alexanderksen/runlines: Conveniently run code inside the console.

#' source the n-th section of the script, defaulting to the last section ####
#'
#'
#' @param method2order 
#' @param cex 
#' @param mar 
#'
#' @return None
#'
#' @examples
#' s()
#'
#' @export
s <- function(start = "last",
               end = start, 
               file = dir()[grep("\\.R$", dir(), ignore.case = TRUE)][1]){
  r(start, end, file, number.is.section = TRUE)
}