r - 发送表达式给网站返回动态结果(图片)

Question

我用 http://www.regexper.com查看一个象形表示正则表达式很多。我想要一种理想的方法:

向站点发送正则表达式

打开显示该表达式的站点

例如，让我们使用正则表达式: "\\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 ) 将使用默认浏览器打开。

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

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

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

Answer 1

尝试这样的事情:

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"

上述函数只是将 Web URL 前缀 ( "http://www.regexper.com/#" ) 和您要查询的搜索模式的编码形式粘贴在一起。

之后，有两种选择:

在浏览器中打开结果

只需返回完整的编码 URL