####========================lucky全局变量=========================####
###======自动加载需要的包
# package.need <- c("stringr","ggplot2")
# for(i in package.need){require(i,character.only = T)}
###======mymusic
#' @title play music via tuneR
#' @description play music via tuneR
#' @keywords mymusic
#' @param n the order of available music paths
#' @param path the path of music files ducument
#' @return a string of music file path
#' @author Weibin Huang<\email{654751191@@qq.com}>
#' @examples
#' mymusic(1)
#' @export
mymusic <- function(n=1,path=NULL){
if(is.null(path)){
path <- "E:/RCloud/music"
}
music.list <- list.files(path,pattern = "Rend_",full.names = T)
if(length(music.list)==0){
# 在给定的地址中未找到音频文件。
library(tuneR)
w <- system.file("extdata", "wind 00_00_04-00_00_28.m4a", package = "lucky")
tuneR::play(w)
} else {
# 可以找到文件
music <- music.list[n];
tuneR::play(music)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.