如何在RStudio中将当前文件的名称复制到剪贴板？

# 安装和加载必要的包
install.packages("rstudioapi")
install.packages("clipr")
library(rstudioapi)
library(clipr)

# 获取当前文件的名称
file_name <- rstudioapi::getActiveDocumentContext()$path

# 提取文件名部分
file_name <- basename(file_name)

# 将文件名复制到剪贴板
clipr::write_clip(file_name)