Media Marker -> ブクログ

mediamarker2booklog.R

library("dplyr")
library("stringr")
library("lubridate")
library("readr")

mediamarker %>% 
  select(
    `タイトル`, 
    ISBN = `ISBN/JAN`, 
    ASIN = `ASIN（アマゾン商品コード）`,
    `登録日`, `更新日`, `タグ`, `購入日`, `状態`, `読了日`
    ) %>% 
  dplyr::filter(!is.na(ISBN) | !is.na(ASIN)) %>% 
    mutate(
    `サービスID` = if_else(!is.na(ASIN), 1L, NA_integer_), 
    `登録日` = parse_date_time(`登録日`, orders="Y/m/d H:M:S")
  ) %>% 
  mutate(
    `サービスID` = if_else(grepl("Amazon.com", `タグ`), 2L, `サービスID`), 
    `アイテムID` = if_else(!is.na(ASIN), ASIN, NA_character_), 
    `カテゴリ` = "-", 
    `評価` = NA_integer_, 
    `状態` = recode(`状態`, 
                  `読了` = "読み終わった", 
                  `読中` = "積読", 
                  `なし` = "未設定"
    ), 
    `レビュー` = NA_character_, 
    # 複数タグの区切りは ","
    `タグ` = str_replace_all(str_trim(`タグ`), "\n", ","), 
    `メモ` = NA_character_, 
    `登録日` = format(`登録日`, "%Y-%m-%d %H:%M:%S"), 
    `読了日` = format(`読了日`, "%Y-%m-%d %H:%M:%S")
  ) %>% 
  select(
    `サービスID`, 
    `アイテムID`, 
    ISBN, 
    `カテゴリ`, 
    `評価`, 
    `読書状況` = `状態`, 
    `レビュー`, 
    `タグ`, 
    `メモ`, 
    `登録日`, 
    `読了日`
  ) -> booklog

# col.names=FALSE はできないらしい
booklog %>% 
  write.csv(file="booklog.csv", na = "", row.names = FALSE, fileEncoding = "Shift_JIS")