R/depreciated/rename_doc.R

In JiaxiangBU/add2md: Add to Markdown

#' Quickly rename the current document

#' @author Jiaxiang Li
#'
#' @import rstudioapi
#' @export

rename_doc <- function(){
    file_name <- basename(rstudioapi::getSourceEditorContext()$path)
    file_newname <- selected()
    file.rename(file_name,file_newname)
    rstudioapi::navigateToFile(file_newname)
}