下载 Springer 出版社的免费电子书!

下载 Springer 出版社的免费电子书!

Springer 出版社提供了一些免费的电子书可供下载,本文介绍了如何使用 R 语言获取和展示这份列表,大家可以根据自己的需要下载。

首先这份免费的电子书列表在这里:

https://resource-cms.springernature.com/springer-cms/rest/v1/content/17858272/data/v4/

对这个链接发起请求会得到一个 xlsx 文件:

1
2
3
# 获取免费书籍列表:
download.file('https://resource-cms.springernature.com/springer-cms/rest/v1/content/17858272/data/v4/',
'booklist.xlsx')

下面我们使用 DT 包中的 datatable 控件展示这份列表以方便我们选择自己需要的书籍:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
library(readxl)
read_xlsx('booklist.xlsx') %>%
select(书名 = `Book Title`, 年份 = `Copyright Year`, 链接 = OpenURL) %>%
mutate(链接 = paste0('<a target="_blank" href="', 链接, '">SpringerLink</a>')) %>%
DT::datatable(
rownames = FALSE, # 去除表头
filter = "top", # 在顶部添加过滤控件
options = list(
autoWidth = TRUE,
pageLength = 5, # 每页显示的数量
order = list(0, "asc"), # 书名列的排序方式
initComplete = htmlwidgets::JS(
"function(settings, json) {",
"$(this.api().table().container()).css({'font-family': 'SourceHanSerifSC-Medium'});",
"}")
),
escape = FALSE # 使得表格中的链接可以点击跳转
)

然后点击这些链接就能进入下载页面下载这些书啦!

知识星球链接:https://t.zsxq.com/YbEaAeA

#

评论

Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×