tidyr :: extractを使用しているときに第2引数で機能しない関数

Question

文字列からリンクを抽出する関数を作成しました。データフレームを引数として渡してもうまく動作しますが、2番目の引数としてカラム名stringを渡したいときは動作しません。

一つの引数を持つワーキング機能：

library(tidyr)  
extractLinks <- function(x) { 

    # get all links in new column "url" 
    df <- tidyr::extract(x, string, "url", "(http.*)") 

    #get clean links and domains 
    df <- tidyr::extract(df, url, c("site", "domain"), "(http.*\\.(com|co.uk|net))", remove = F) 

    return(df) 
} 

extractLinks(df, string) 

今、私は2番目の引数を追加したいが、それはエラーを返します：

Error in names(l) <- enc2utf8(into) : 
    'names' attribute [1] must be the same length as the vector [0] 

これは、2つの引数を持つ私の関数である。

extractLinks <- function(x, y) { 

    # get all links in new column "url" 
    df <- tidyr::extract(x, y, "url", "(http.*)") 

    #get clean links and domains 
    df <- tidyr::extract(df, url, c("site", "domain"), "(http.*\\.(de|com|at|ch|ly|co.uk|net))", remove = F) 
    return(df) 
} 

extractLinks(df, string) 

複製の場合、データフレームの例：

string 
my text in front of the link http://www.domain.com 
my text in front of the link http://www.domain.com 
my text in front of the link http://www.domain.com 

どうしたらよいですか？

Answer 1

あなたは、標準的な評価バリアントextract_()を使用して文字列に2番目の引数をオンにする必要があります。

# get all links in new column "url" 
    df <- tidyr::extract_(x, y, "url", "(http.*)") 

extractLinks(df, "string")