以下、誰のPCでも走るようにサンプルを書きました。
Rですが、私自身が書いたFUNCTIONでなぜ、result_dataという名のデータが、SAVEされないのかが分かりません。アドバイスお願いします。（回答はREDDITでいただきました。最後のところに書き込みました）。
最初のところで仮のデータを作る部分がややこしくなっていますが、たまたま仕事で同僚が書いてくれたものです。
library(dplyr)
library(tidyverse)
#create fake data
junk1 <- c(1, 2, 2, 4, 3, 3, 4, 1)
junk1 <- data.frame(matrix(junk1,ncol=2, byrow=T))
colnames(junk1) <- c("id", "num")
junk1$j1_flag <- 1
library(data.table)
junk1 <- data.table(junk1)
junk1$id <- as.factor(junk1$id)
junk2 <- c(1, "F", 2, "M", 5, "F")
junk2 <- data.frame(matrix(junk2,ncol=2, byrow=T))
colnames(junk2) <- c("id", "gender")
junk2$j2_flag <- 1
junk2 <- data.table(junk2)
#merge
junk1_2<-merge(junk1,junk2,by='id', all=TRUE)
#以下が問題の部分です。なぜresult_dataという名のデータがSAVEされないのかがわかりません。
kaz_macro1<-function(var1,var2){
var1 %>%
mutate(newvar = j2_flag+100) ->var2
}
kaz_macro1(junk1_2,result_data)
REDDITで教えてもらいました。ファンクションの外でデータとしてセーブするように指定するとできました。
kaz_macro1<-function(var1){
var1 %>%
mutate(newvar = j2_flag+100)
}
result_data2<-kaz_macro1(junk1_2)