可以在R中读取.wma声音文件吗?
是否有办法读取R中的.WMA声音文件,或者版权限制不允许这样做可以在R中读取.wma声音文件吗?,r,audio,wma,R,Audio,Wma,是否有办法读取R中的.WMA声音文件,或者版权限制不允许这样做 最终目的是将其转换为另一种格式(MP3/WAV),以R音频包使用转换器的一种或另一种方式 请参阅以下选项: 下载后,您可以使用R将WMA转换为MP3文件格式 直接通过系统函数调用 或者您可以使用ffmpeg包装包进行简单的音频转换。然而,它是面向Linux的,可以很容易地转换成与Windows兼容的 选项2请参见下面的代码: # install.packages("devtools") # library(devtools) #
最终目的是将其转换为另一种格式(MP3/WAV),以R音频包使用转换器的一种或另一种方式 请参阅以下选项:
- 下载后,您可以使用R将WMA转换为MP3文件格式
直接通过
函数调用李>系统
- 或者您可以使用
包装包进行简单的音频转换。然而,它是面向Linux的,可以很容易地转换成与Windows兼容的ffmpeg
# install.packages("devtools")
# library(devtools)
# install_github("pmur002/ffmpeg")
library(ffmpeg)
# set path to your ffmpeg.exe file
ffmpeg_path <- "C:\\<Path to ffmpeg>\\ffmpeg-20180906-70a7087-win64-static\\bin\\ffmpeg.exe"
ffmpeg_win <- function (inputs, outputs, filters = NULL, overwrite = FALSE,
wait = TRUE, echo = FALSE) {
if (!is.null(filters)) {
stop("Filters are currently unsupported")
}
if (inherits(inputs, "FFmpeg_input")) {
inputs <- list(inputs)
}
if (inherits(outputs, "FFmpeg_output")) {
outputs <- list(outputs)
}
options <- ""
if (overwrite) {
options <- paste0(options, "-y ")
}
cmd <- paste(ffmpeg_path, options, do.call(paste, inputs), do.call(paste,
outputs))
system(cmd, wait = wait)
if (echo) {
cat(cmd, "\n")
}
}
# just copy to your working directory required file, here is for example "mellow.wma"
ffmpeg_win(fileInput("mellow.wma"), fileOutput("mellow.mp3"), echo = TRUE)
#安装程序包(“devtools”)
#图书馆(devtools)
#安装github(“pmur002/ffmpeg”)
库(ffmpeg)
#设置ffmpeg.exe文件的路径
ffmpeg_路径能否给出下一步投票的原因?亲爱的,祝你玩得开心,如果你发布一些可复制的示例和一些代码、你尝试的说明等以及预期的输出,那将是很好的。R人们都很聪明;)