R/beep_3_times.R

In Neves-P/repeatbeeps: Beeps Three Times on GitHub

#' Beeps 3 times
#'
#' Calls function \code{beep} from package \code{beepr} three times with
#' a 5 second interval.
#'
#' @return 3 random sounds from \code{beepr} with a 5 second interval
#' @references   Rasmus Bååth (2018). beepr: Easily Play Notification Sounds on
#' any Platform. R package version 1.3.
#' \url{https://CRAN.R-project.org/package=beepr}
#' @author Pedro Neves. \code{beepr} package by Rasmus Bååth.
#' @export
#'
#' @examples \dontrun{beep_3_times()}
beep_3_times <- function() {
  beepr::beep(0)
  Sys.sleep(5)
  beepr::beep(0)
  Sys.sleep(5)
  beepr::beep(0)
}

#' Beeps 4 times
#'
#' @inherit beep_3_times
#' @export
#'
#' @examples beep_4_times
beep_4_times <- function() {
  beepr::beep(0)
  Sys.sleep(5)
  beepr::beep(0)
  Sys.sleep(5)
  beepr::beep(0)
  Sys.sleep(5)
  beepr::beep(0)
}