devtools::install_github("SmartDataLab/RMusicDown")
## Skipping install of 'rmusicdown' from a github remote, the SHA1 (7a6d9a48) has not changed since last install.
##   Use `force = TRUE` to force installation
library(rmusicdown)

出发点

PPT可以嵌入音乐、vscode可以摸鱼听歌。Rmarkdown作为一种工作IDE和汇报展示的重要形式，不支持快捷的音乐查询、嵌入汇报文档以及敲代码跑实验的时候听歌。我们选择了两种路径实现了音乐的播放收听、同时后期支持推荐功能。

分工

马宇恒构思提出该需求痛点、明确相关功能点、课程汇报展示了我们实现的功能。 苏锦华主要根据需求进行了技术调研，从JS Widget和外链播放的两种思路实现了功能，并封装了网易云搜索（hack）为后期推荐算法的上线提供数据支撑。

随机播放now-playing-v2

这个插件依赖于国外服务器，所以如果未显示可能是网速较慢，可以考虑科学上网。

now_playing_music("test")

网易云

# 默认播放 帮助写代码集中精神的歌单
netease_music()
## [1] "default select 1, there are 20 playlists. use select param to select new one. If there is no content in the player for a selected playlist, maybe the playlist contains vip songs."
## [1] "select No. | id | name | play count"
## [1] "1 | 2547697280 | 适合程序员敲代码时听的鼓点钢琴 | 2118811"
## [1] "2 | 108079371 | 程序员编程敲代码神速的纯音乐 | 1815850"
## [1] "3 | 2024518101 | 【复习 论文 码字 代码 刷题】静心音乐大全 | 24566070"
## [1] "4 | 443026530 | 码农必备 - 让敲代码变成一种享受 | 20612"
## [1] "5 | 52452171 | 撸码神器-程序员写代码编程必备-敲代码背景 | 161974"
## [1] "6 | 2179377798 | 程序员必备，带上耳机代码就是全世界 | 33023"
## [1] "7 | 2142526217 | 能让你写代码写出拯救世界的感觉 | 1369830"
## [1] "8 | 427027278 | 程序员写代码听的歌曲最全带感···· | 8839"
## [1] "9 | 718631861 | 程序员编程抖腿撸代码神速的纯音 | 109282"
## [1] "10 | 6948994 | 后摇 - 代码必备 | 2974813"
## [1] "11 | 40962509 | 程序员就要安静敲代码 | 146095"
## [1] "12 | 370422017 | 打代码时喜欢的激情的音乐 | 10578"
## [1] "13 | 4990593966 | 【夜晚+学习】代码/刷题时听的歌 | 514990"
## [1] "14 | 2058693469 | 肥宅快乐歌（撸代码专用） | 4736"
## [1] "15 | 51951467 | 科技感音乐【编代码刷题专用】 | 40808"
## [1] "16 | 2547699847 | 打代码的时候适合听的一些歌 | 4312"
## [1] "17 | 2227428058 | 写代码（2倍速） | 2779"
## [1] "18 | 2319401296 | 健身/通勤/敲代码的时候燥起来 | 12035"
## [1] "19 | 457454266 | 静心。敲代码时记得戴上耳机 | 4093"
## [1] "20 | 2428893148 | 抖着腿敲代码 | 5916"
# 支持根据关键词搜索歌单并播放第一个
netease_music("姜云升")
## [1] "default select 1, there are 20 playlists. use select param to select new one. If there is no content in the player for a selected playlist, maybe the playlist contains vip songs."
## [1] "select No. | id | name | play count"
## [1] "1 | 2217224514 | 「姜云升」陪你从无到有 | 5914013"
## [1] "2 | 6920674438 | 姜云升 废歌+未发歌+上架歌 | 15038"
## [1] "3 | 2313914132 | lil jet 豆芽 姜云升 马思唯 法老 | 1346432"
## [1] "4 | 4985730604 | TT｜姜云升｜沙一汀｜法老｜王嘉尔｜Jony J | 371925"
## [1] "5 | 5016961981 | 姜云升 | 380304"
## [1] "6 | 993301380 | 姜云升 | 6659"
## [1] "7 | 2923772356 | 姜云升/沙一汀EL/夏之禹/法老/TY | 3423791"
## [1] "8 | 4996522098 | 姜云升你好 那时你不叫这名字 | 160274"
## [1] "9 | 4935178221 | 姜云升的浪漫主义 | 1963056"
## [1] "10 | 6722912887 | 姜云升全网绝对最全最高质量原声歌单 | 1544449"
## [1] "11 | 6809566176 | 「姜云升红到西海岸.」(网易云最全) | 8163"
## [1] "12 | 4904842320 | [姜云升]你已经是成熟皮卡 要学会自己发歌 | 351631"
## [1] "13 | 4917180830 | 欧美rap|李京泽 海尔 姜云升 卞架歌都有 | 136061"
## [1] "14 | 6656946202 | 姜云升（未发歌 -架歌 写废歌） | 1321078"
## [1] "15 | 5389303227 | 沙一汀/姜云升/法老/subs杀不死/马思唯 | 873367"
## [1] "16 | 2522899852 | 僵尸（姜云升） | 704326"
## [1] "17 | 6902503885 | 姜云升未上架歌曲及语录 | 5727"
## [1] "18 | 2067141583 | 小鬼/姜云升/马思唯/某幻君/法老 | 400120"
## [1] "19 | 3184487112 | 法老，姜云升，Jony J | 5698"
## [1] "20 | 2623526205 | 灵魂伴侣姜云升 | 755889"
# 支持根据关键词搜索歌单并播放第select个
netease_music("宇多田光", select = 3)
## [1] "default select 1, there are 20 playlists. use select param to select new one. If there is no content in the player for a selected playlist, maybe the playlist contains vip songs."
## [1] "select No. | id | name | play count"
## [1] "1 | 13246752 | 【宇多田光必听曲目】 | 706253"
## [1] "2 | 406606954 | 宇多田光 音乐合集 | 125981"
## [1] "3 | 59289763 | 平成三歌姬（滨崎步 宇多田光 仓木麻衣） | 109774"
## [1] "4 | 2890558018 | 宇多田光&管野洋子 | 1048"
## [1] "5 | 161344908 | 宇多田光（单曲循环） | 2039"
## [1] "6 | 103654638 | 宇多田光精选集 | 8528"
## [1] "7 | 2204649464 | 宇多田ヒカル (宇多田光) | 7210"
## [1] "8 | 6651350855 | One Last Kiss 宇多田光 新世紀福音戰士 | 4076"
## [1] "9 | 40414804 | 宇多田光15周年致敬专辑原曲 | 7609"
## [1] "10 | 2024343550 | 坂本龙一&宇多田光 | 1936"
## [1] "11 | 2585264554 | 宇多田光 | 1640"
## [1] "12 | 2910373962 | 椎名林檎&东京事变&宇多田光&仓木麻衣 | 3173"
## [1] "13 | 2366253447 | 好听的熊光~宇多田光歌单 | 2241"
## [1] "14 | 2991864714 | 中岛美嘉&宇多田光 | 7285"
## [1] "15 | 2145320299 | 坂井泉水、滨崎步、宇多田光、仓木麻衣 | 44275"
## [1] "16 | 6651938600 | 【宇多田光 新世纪福音战士EVA】全收集 | 6567"
## [1] "17 | 6960944 | 宇多田光好听的歌 | 284643"
## [1] "18 | 49428204 | 宇多田光 | 2048"
## [1] "19 | 77225901 | 宇多田光 | 2951"
## [1] "20 | 482887972 | First Love（宇多田光） | 32200"