快速转换电子书格式的方法——适于R语言使用者

转眼又是周末，2018年一半已逝去。如果觉得时光匆匆，就把浏览网页的时间分到读书上一些吧。这两年来，读书的时间越来越少，阅读的种类也更多是和心理、科学相关。第二个问题是很难专心读书，因为读书是挤占了读文献的时间，总要是在邻近吃饭或晚上的时候才能看一点。走路时听书也不得法，容易分神，跟不上节奏。为了克服分心的问题，现在主要是听看结合，kindle+朗读女+多看阅读。这是牢骚。

---

大学时看电子书主要是TXT格式，那时甚至还不知道PDF。有了亚马逊kindle阅读器后知道更主流的电子书格式是MOBI，AZW3和EPUB。怎么在这众多格式间进行转换？Calibre是最为常用的软件，缺点是要先导进去，再执行操作，名字也给改成拼音。我发现了一种更快速的方法，但前提是你经常用R，否则还是安心用Calibre。

Yihui Xie开发的bookdown是专门写书用的，附带转换电子书格式，也是基于Calibre，但转换速度要更高。具体操作如下：

# 转换格式的函数
d_calibre <- function(filenames, out_format="epub") {
  library(magrittr)
  filenames <- filenames
  out_mobi <- substr(filenames, 1, nchar(filenames)-5) %>% paste0(., ".", out_format)
  bookdown::calibre(filenames, out_mobi)
}
# example
filenames <- "D:/迅雷下载/百度云/Ebook/基因传.azw3"
d_calibre(filenames, "epub") # 这个引号里可以填支持的格式epub mobi azw3 txt pdf等

-完-

我的两台kindle