发送表达式到网站返回动态结果（图）

I use http://www.regexper.com http://www.regexper.com查看图片表示正则表达式很多。我想要一种理想的方法：

1. 向站点发送正则表达式
2. 打开显示该表达式的网站

例如，让我们使用正则表达式："\\s*foo[A-Z]\\d{2,3}"。我会去该网站并粘贴\s*foo[A-Z]\d{2,3}（注意删除双斜杠）。它返回：

我想从 R 内部完成这个过程。创建一个包装函数，例如view_regex("\\s*foo[A-Z]\\d{2,3}")和页面（http://www.regexper.com/#%5Cs*foo%5BA-Z%5D%5Cd%7B2%2C3%7D http://www.regexper.com/#%5Cs*foo%5BA-Z%5D%5Cd%7B2%2C3%7D）以及可视化图表将使用默认浏览器打开。

我认为 RCurl 可能合适，但这对我来说是新领域。我也认为双斜线是一个问题，因为http://www.regexper.com http://www.regexper.com需要单斜杠，而 R 需要双斜杠。我可以使用 R 将单个斜杠返回到控制台cat如下，所以这可能是如何处理的。

x <- "\\s*foo[A-Z]\\d{2,3}"

cat(x)
\s*foo[A-Z]\d{2,3}

尝试这样的事情：

Query <- function(searchPattern, browse = TRUE) {
  finalURL <- paste0("http://www.regexper.com/#", 
         URLencode(searchPattern))
  if (isTRUE(browse)) browseURL(finalURL)
  else finalURL
}

x <- "\\s*foo[A-Z]\\d{2,3}"
Query(x)             ## Will open in the browser
Query(x, FALSE)      ## Will return the URL expected
# [1] "http://www.regexper.com/#%5cs*foo[A-Z]%5cd%7b2,3%7d"

上面的函数只是将网址前缀粘贴在一起（"http://www.regexper.com/#") 以及您要查询的搜索模式的编码形式。

之后，有两个选择：

• 在浏览器中打开结果
• 只需返回完整编码的 URL