R/clear.code.R

In shortcuts: Useful Shortcuts to Interact with 'RStudio' Scripts

#' Creates a file copying current code without comments and tabuations
#'
#' @return clear code to be executed
#' @export
#' 
#' @importFrom utils read.table
#' @importFrom rstudioapi getActiveDocumentContext
#' @importFrom utils file.edit
#'
#' @examples
#'
#' \donttest{
#' # Copy and paste all the following code in RStudio
#' }
#' 1+1
#' 
#' clear.code()
#'
clear.code <- function(){
    ctx<-try(rstudioapi::getActiveDocumentContext(),silent=TRUE)
    if (!inherits(ctx,"try-error")){
        contenido<-ctx[["contents"]]
        file_w <- file("new.R")
        writeLines(((contenido)),file_w)
        writeLines(as.character(parse("new.R")),file_w)
        file.edit("new.R")
    }
    return(invisible())
}