how to choose the work directory that the script is in in r code example

Example: how to choose the work directory that the script is in in r

setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) # set the work directory
# to the same file location that the r script is in.
WD <- getwd() # get the current working directory

data = read.csv(paste(WD,"/cvs_name.csv",sep=""),header=TRUE,sep=",",quote="",stringsAsFactors = FALSE)