R寫入功能結合柱到數據幀

Question

我寫，其經由一個子動作上的現有數據幀的一列產生的值的矢量的函數：

fetchParent <- function(column){ 
    substr(column,1,regexpr(":", column)-1) 
} 

此功能的一個例子的運行是：

fetchParent(task2017.06.28$"Work Product") 

這將返回一個矢量：

[1] "DE10946" "DE5909" "US30637" "US31460" "DE16399" "DE18046" "DE18841" "DE18904" "DE19138" 
[10] "US48201" "US48314" "US48315" "US48316" "US48317 ... 

我寫的第二函數，以該矢量結合ORI ginal數據幀：

addParent <- function(df){ 
    df <- cbind(df,fetchParent(df$"Work Product")) 
} 

然而，當我運行這個功能：

addParent(task2017.06.28) 

結果返回原來沒有新列。

我在這裏錯過了什麼？

Answer 1

你必須返回新data.frame：

addParent <- function(df){ 
    return(cbind(df,fetchParent(df$"Work Product"))) 
} 

在你fetchParent（）函數這個時並不需要，因爲你不SUBSTR的輸出分配到任何東西。

所以這會工作，以及：

addParent <- function(df){ 
    cbind(df,fetchParent(df$"Work Product")) 
} 

也

addParent <- function(df){ 
    df <- cbind(df,fetchParent(df$"Work Product")) 
    return(df) 
}