! URLのヘッダ情報を得る

URLからデータを取得する際に、最初からhttr::GET()でダウンロードするのではなく、いったんヘッダ情報を得てコネクションが確立できるか、また日付が更新されているかなどを知りたい。

 url = "http://hogehoge.com/api"
 header = httr::HEAD(url)

レスポンスの例

 > header
 Response URLが表示される
  Date: 2021-06-13 21:56
  Status: 200
  Content-Type: application/x-ndjson; charset=UTF-8
  Size: 2.35 MB
 <BINARY BODY>

通常はStatus２００が返ってくればコネクションは確立されている。

日付情報が得たければ、レスポンスはGMTで返ってくるので、
 
 header %>% .$date %>% ymd_hms(tz = "Asia/Tokyo")