Rstudio R get filename full path

FILENAME=basename(rstudioapi::getActiveDocumentContext()$path)
FULLPATH=dirname(rstudioapi::getActiveDocumentContext()$path)
FILENAME
FULLPATH