data.frame with twitter data

Question

2つの列を持つdata.frameを作成します。ツイートのIDを持つ第一、及び第二の列の情報はつぶやき返信であるかどうかに依存する、または私は2つが必要BUE

id_str | x$retweeted_status$id_str or x$in_reply_to_status_id_str 

私は3つの列を有するデータフレームを作ることができるリツイート。

マイコード：

ids <- sapply(tweets.list, function(x) x$id_str) 
    ret_ids <- sapply(tweets.list, function(x) if(is.null(x$retweeted_status)) NA else x$retweeted_status$id_str) 
    rep_ids <- sapply(tweets.list, function(x) if(is.null(x$in_reply_to_status_id_str)) NA else x$in_reply_to_status_id_str) 
    isnt.null <- function(x)!is.null(x) 
r_ids <- sapply(tweets.list, function(x) if(is.null(x$retweeted_status)) x$in_reply_to_status_id_str else x$retweeted_status$id_str) 
data.frame(ids,r_ids) 

出力：

Error in data.frame("733222936912351232", NULL, "733220677721968641", : 
    arguments imply differing number of rows: 1, 0 

データ：

ids|ret_ids|rep_ids 
1|40|NA 
2|32|NA 
3|NA|555 
4|NA|444 

望ましい結果：

ids|r 
1|40 
2|32 
3|555 
4|444 

Answer 1

ここ

df <- read.table(header=T, sep="|", text="ids|ret_ids|rep_ids 
1|40|NA 
2|32|NA 
3|NA|555 
4|NA|444") 

setNames(as.data.frame(t(apply(df, 1, na.omit))), c("ids", "r")) 
# ids r 
# 1 1 40 
# 2 2 32 
# 3 3 555 
# 4 4 444