R/play_one.R

In vdweijer/mp3:

Defines functions play_one

Documented in play_one

# Play a random track
play_one <- function(){
  (i=sample(1:nrow(albums),size=1))
  cat(i,"\n")
  system(paste("afplay '",paste(albums[i,"directory"],albums[i,"filename"],sep="/"),"' &",sep=""))}