如何在R语言中实现打开URL后延迟关闭指定网页？

Great question! The browseURL() function in R only handles launching your default browser to open the specified URL—it doesn’t natively support closing the browser window afterward. Since window management is handled by your operating system (not R itself), you’ll need to use system-specific commands to achieve this. Below are platform-specific solutions:

Windows #

On Windows, you can use the taskkill command to terminate the browser process after your desired delay. Here’s a working example:

# Set your target URL and delay time (in seconds)
target_url <- "https://example.com"
delay_seconds <- 5

# Open the URL in your default browser
browseURL(target_url)

# Wait for the page to load and your specified delay
Sys.sleep(delay_seconds)

# Force close the browser process (adjust the process name for your browser)
# Common process names: Edge = "msedge.exe", Chrome = "chrome.exe", Firefox = "firefox.exe"
system("taskkill /im msedge.exe /f", wait = FALSE)

• The /f flag forces the browser to close immediately—use this cautiously, as it will close all instances of the browser (not just the specific window you opened).

macOS #

On macOS, AppleScript (via osascript) lets you control apps like Safari, Chrome, or Firefox directly. You can either close the entire browser or just the specific window with your target URL:

Close the entire browser #

target_url <- "https://example.com"
delay_seconds <- 5

browseURL(target_url)
Sys.sleep(delay_seconds)

# Quit Safari (replace with "Google Chrome" or "Firefox" for other browsers)
system('osascript -e \'tell application "Safari" to quit\'')

Close only the specific window #

If you don’t want to close all browser windows, use this more precise command to target only the window with your URL:

system('osascript -e \'tell application "Safari" to close every window whose URL contains "example.com"\'')

Linux #

On Linux, tools like wmctrl (window control) let you close browser windows by their title. First, install wmctrl via your package manager (e.g., sudo apt install wmctrl for Debian/Ubuntu):

target_url <- "https://example.com"
delay_seconds <- 5

browseURL(target_url)
Sys.sleep(delay_seconds)

# Close the browser window (replace "Google Chrome" with your browser's window title)
system("wmctrl -c 'Google Chrome'")

• If the window title includes the page name (e.g., "Example Domain - Google Chrome"), adjust the string in wmctrl -c to match exactly.

Cross-Platform Tip #

To make your script work across all operating systems, add a conditional check using Sys.info()["sysname"]:

target_url <- "https://example.com"
delay_seconds <- 5

browseURL(target_url)
Sys.sleep(delay_seconds)

os <- Sys.info()["sysname"]
if (os == "Windows") {
  system("taskkill /im msedge.exe /f", wait = FALSE)
} else if (os == "Darwin") { # macOS
  system('osascript -e \'tell application "Safari" to quit\'')
} else if (os == "Linux") {
  system("wmctrl -c 'Google Chrome'")
}

Just remember to adjust browser names/process titles to match your default browser, and test the delay time to ensure the page loads fully before closing.

内容的提问来源于stack exchange，提问作者Robert S.