オブジェクトの要素の貼り付け関数が返されます。NA

Question

data<-read.csv("advanced_r_programming/data/MIE.csv") 

LongitudinalData<-function(n_sub){ 
    structure(n_sub, class = "LongitudinalData") 
} 

make_LD<-function(x){ 
    LongitudinalData(sum(as.logical(unique(x$id)))) 
} 

print.LongitudinalData<-function(x){ 
    paste("Longitudinal dataset with", x[n_sub], "subjects") 
    } 

x<-make_LD(data) 

print(x) 

これは「NA被験者を含む縦のデータセット」を返します。オブジェクトのフィールドに格納されている数値を返すにはどうすればよいですか？

Answer 1

S3オブジェクトシステムでは、structure()の引数としてlist()関数を使用してオブジェクトが構築されます。次の変更を加えると、コードは期待どおりに機能します。

LongitudinalData<-function(n_sub){ 
    structure(list(n_sub = n_sub), class = "LongitudinalData") 
} 

make_LD<-function(x){ 
    LongitudinalData(sum(as.logical(unique(x$id)))) 
} 

print.LongitudinalData<-function(x){ 
    paste("Longitudinal dataset with", x["n_sub"], "subjects") 
} 

data<-read.csv("./data/MIE.csv",header=TRUE,stringsAsFactors=FALSE,nrows=100) 
x<-make_LD(data) 
print(x) 

...と私たちはMIE.csvファイルの最初の100行読ん出力、：ここで

> data<-read.csv("./data/MIE.csv",header=TRUE,stringsAsFactors=FALSE,nrows=100) 
> x<-make_LD(data) 
> print(x) 
[1] "Longitudinal dataset with 1 subjects" 
> 

は、我々は全体MIE.csvファイルを読み込むときに何が起こるかである、とクロスそれをSQLクエリで確認してください。

> data<-read.csv("./data/MIE.csv",header=TRUE,stringsAsFactors=FALSE) 
> x<-make_LD(data) 
> print(x) 
[1] "Longitudinal dataset with 10 subjects" 
> 
> # verify with an SQL query 
> 
> library(sqldf) 
> sqldf('select count(distinct id) from data') 
    count(distinct id) 
1     10 
>