R/pings.R

In dichika/pings: Make your CHAIN life happier

pings <- function(x, interval=0.25, countp=2, endp=8){
  require(dplyr)
  require(beepr)
  trg <- substitute(x)
  res <- trg %>% paste(collapse="") %>% gregexpr(pattern="%.%") %>% unlist()
  time <- res %>% length()
  if(res[1] != -1){
    i <- 0
    repeat {
      if (i < time){
        i <- i+1
        beep(countp)
        Sys.sleep(interval)
      }else{
        Sys.sleep(interval)
        beep(endp)
        Sys.sleep(interval)
        break
      }
    }
    if(time>=5){
      cat(sprintf("\n\n!!!!! %s Hits Combo !!!!!\n!!!!! Excellent !!!!!\n", time))
    } else if(time>=2){
      cat(sprintf("\n\n!!!!! %s Hits Combo !!!!!\n!!!!! Good !!!!!\n", time))      
    } else 
      cat(sprintf("\n\n      Only %s Hit :( \n\n", time))
  }
  tryCatch({
    eval(x)
  },
  error = function(e){
    message(e)
    stop(call.=FALSE, domain=NA)
  })
}
pings2 <- function(x, interval=0.25, type="ore"){
  require(dplyr)
  require(beepr)
  trg <- substitute(x)
  res <- trg %>% paste(collapse="") %>% gregexpr(pattern="%.%") %>% unlist()
  time <- res %>% length()
  if(res[1] != -1){
    tryCatch({
      eval(x)
    },
    error = function(e){
      message(e)
      stop(call.=FALSE, domain=NA)
    })
    i <- 0
    repeat {
      if (i < time){
        i <- i+1
        switch(type,
               "moe" = beep(system.file(paste("sounds/", "a_02.wav", sep = ""), package = "pings")),
               "ore" = beep(system.file(paste("sounds/", "yeah.wav", sep = ""), package = "pings"))        
        )
        Sys.sleep(interval)
      }else{
        Sys.sleep(interval)
        beep(system.file(paste("sounds/", "tsuzumi.wav", sep = ""), package = "pings"))
        Sys.sleep(interval)
        break
      }
    }
    if(time>=5){
      cat(sprintf("\n\n!!!!! %s Hits Combo !!!!!\n!!!!! Excellent !!!!!\n", time))
    } else if(time>=2){
      cat(sprintf("\n\n!!!!! %s Hits Combo !!!!!\n!!!!! Good !!!!!\n", time))      
    } else 
      cat(sprintf("\n\n      Only %s Hit :( \n\n", time))
  } 
  tryCatch({
    eval(x)
  },
  error = function(e){
    message(e)
    stop(call.=FALSE, domain=NA)
  })  
}