在R中有条件地格式化，基于文本开头

Question

我有以下代码

library('XML')
url <- 'http://www.citact.org/politics-and-money-voting-records-and-
campaign-contributions/2016-indiana-general-assembly/news/2016-voting-
records'
small_url <- 'http://www.citact.org'
links_function <- function(url) 
{
  getLinks <- function() {
    links <- character()
    list(a = function(node, ...) {
      links <<- c(links, xmlGetAttr(node, "href"))
      node
    },
    links = function() links)
  }
  h1 <- getLinks()
  htmlTreeParse(url, handlers = h1)
  h1$links()
}
links <- links_function(url)

其中一些链接遇到了链接的开头（我称之为small_url）。我想知道是否有办法将small_url粘贴到没有它们的链接上。我认为这可以使用条件语句来完成，但我还没有弄清楚如何基于某些文本开始创建条件。