用R写音乐到网页中

rm(list=ls())
require(R2HTML)
library(curl)
pathset<-"D:\原电脑文件\Music\Kugou\temp\"
setwd('D:\原电脑文件\Music\Kugou\temp\')
aus=list.files(pattern=".mp3")
mcc=function(x){
mcc1=curl_escape("原电脑文件")
mcc2=curl_escape(x)
mcc3=paste("file:///D:/",mcc1,"/Music/Kugou/temp/",mcc2,sep="")
return(mcc3)
}
adget_yyg=apply(data.frame(aus),1,mcc)
yyg_music=data.frame(adget_yyg)
for(i in 1:nrow(yyg_music)){
bf_mus<- as.character(yyg_music[i,1])
htmlmusic=paste("<audio autoplay='autoplay' controls='controls' loop='loop' preload='auto' src='",bf_mus,"'"," > ",sep="")
target <- HTMLInitFile("d:/11/",filename=paste("yyg's music",sep=""),BackGroundColor="#raaabb")
HTML(htmlmusic,file=target)
shell(target)
print(i)
}

转载于:https://www.cnblogs.com/lunayyg107/p/6293573.html