R言語：Twitter APIを用いて、ユーザー別ツイートのツイート内容及びその投稿時間の出力

Question

前提・実現したいこと

Twitter APIを用いて、ユーザー別ツイートのツイート内容及びその投稿時間の出力がしたいです。
R言語のパッケージtwitteRを用いてユーザー別ツイート内容の出力はできました。

発生している問題・エラーメッセージ

しかし、日にちの情報もほしいため、抽出内容(strの表示内容)を出力しようとwrite.csvを使用し出力を試みたところ、ファイルの出力そのものは出来ましたが、展開すると真っ白でした。3キロバイトあったりするので何か情報はあるのかもしれません。
txt形式でも問題ないためそちらも試したが、同じく空白でした。

該当のソースコード

> t <- str(tweets[[1]])
Reference class 'status' [package "twitteR"] with 17 fields
 $ text         : chr "<U+0001F33B>#こども霞が関 見学デー<U+0001F33B>\n#プログラム を更新しました！今後も新着情報を随時更新していきま"| __truncated__
 $ favorited    : logi FALSE
 $ favoriteCount: num 19
 $ replyToSN    : chr(0) 
 $ created      : POSIXct[1:1], format: "2018-07-06 09:05:25"
 $ truncated    : logi TRUE
 $ replyToSID   : chr(0) 
 $ id           : chr "1015159775758184448"
 $ replyToUID   : chr(0) 
 $ statusSource : chr "<a href=\"http://twitter.com\" rel=\"nofollow\">Twitter Web Client</a>"
 $ screenName   : chr "mextjapan"
 $ retweetCount : num 8
 $ isRetweet    : logi FALSE
 $ retweeted    : logi FALSE
 $ longitude    : chr(0) 
 $ latitude     : chr(0) 
 $ urls         :'data.frame':	1 obs. of  5 variables:
  ..$ url         : chr "https://t.co/nws9N3nbJi"
  ..$ expanded_url: chr "https://twitter.com/i/web/status/1015159775758184448"
  ..$ display_url : chr "twitter.com/i/web/status/1…"
  ..$ start_index : num 108
  ..$ stop_index  : num 131
 and 53 methods, of which 39 are  possibly relevant:
   getCreated, getFavoriteCount, getFavorited, getId,
   getIsRetweet, getLatitude, getLongitude, getReplyToSID,
   getReplyToSN, getReplyToUID, getRetweetCount,
   getRetweeted, getRetweeters, getRetweets,
   getScreenName, getStatusSource, getText, getTruncated,
   getUrls, initialize, setCreated, setFavoriteCount,
   setFavorited, setId, setIsRetweet, setLatitude,
   setLongitude, setReplyToSID, setReplyToSN,
   setReplyToUID, setRetweetCount, setRetweeted,
   setScreenName, setStatusSource, setText, setTruncated,
   setUrls, toDataFrame, toDataFrame#twitterObj
> write.csv(t,"t.csv",quote=FALSE,row.names=FALSE,fileEncoding="CP932",eol="\r\n")

試したこと

上記の
$ text : chr "<U+0001F33B>#こども霞が関 見学デー<U+0001F33B>\n#プログラム を更新しました！今後も新着情報を随時更新していきま"| truncated
$ created : POSIXct[1:1], format: "2018-07-06 09:05:25"
この2行だけあればいいため、行の抜き出しを試みましたが、上手くいきませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

そのデータがstr()の言う通りの構造なのであれば、createdの中身を文字列に変換して普通に出力すればいいだけのような気がします。

write.table( t(sapply(tweets, function(x){c(x$text, as.character(x$created))})), sep="\t", quote=F, file="testout.txt")

これでおそらくtextとcreatedの二列から成るツイートのリストがタブ区切りファイルとして出力されると思います。

Comments

[114482]

ありがとうございます。
出力することが出来ました。