在R中从网页打开PDF

url <- "https://example.com/example.pdf"  # 替换为实际的PDF文件链接
file <- "example.pdf"  # 保存的文件名，可以自定义
download.file(url, destfile = file, mode = "wb")

if (.Platform$OS.type == "windows") {
  system(paste("start", file))  # Windows系统
} else if (.Platform$OS.type == "unix") {
  system(paste("xdg-open", file))  # Linux系统
} else if (.Platform$OS.type == "mac") {
  system(paste("open", file))  # macOS系统
}