R 스크립트를 실행할 때 다른 데스크탑에서 다른 작업을 수행합니다. 자주 확인하지 않으면 언제 무언가가 완료되었는지 알 수 없습니다. 스크립트 종료시 비프 음 (시스템 비프 음 등)을 호출하거나 R이 소리를 내거나 으르렁 거리는 소리를내는 방법이 있습니까?

alarm()

알람 기능. \a콘솔 로 보내서 작동합니다

beepr크로스 플랫폼에서 작동 해야하는 R에서 알림 소리를 내기위한 유일한 목적으로 패키지 ( )가 있습니다. beepr을 설치하고 소리를 내려면 다음을 실행하십시오.

install.packages("beepr")
library(beepr)
beep()

github에 대한 추가 정보 : https://github.com/rasmusab/beepr

MacOSX에서는 컴퓨터가 다음과 같이 말할 수 있습니다.

system("say Just finished!")

또한 말할 인공 음성을 변경할 수도 있습니다.

system("say -v Kathy Just finished!")

컴퓨터에서 사용 가능한 음성을 선택할 수 있습니다. Yosemite에서는 시스템 환경 설정-> 받아쓰기 및 말하기-> 텍스트 음성 변환 에서 설치된 음성을 확인할 수 있습니다 .

완료되면 트윗해야합니다 : http://cran.r-project.org/web/packages/twitteR/index.html

alarm Windows 컴퓨터에서 작동하지 않으므로 실제로 노이즈를 발생시키는 기능을 만들었습니다.

beep <- function(n = 3){
    for(i in seq(n)){
        system("rundll32 user32.dll,MessageBeep -1")
        Sys.sleep(.5)
    }
}

이것은 분명히 Windows에서만 작동하지만 임의의 Windows 컴퓨터에서도 실행될 것이라고 보장하지는 않습니다. 나는 내 컴퓨터에서만 테스트했지만 누군가와 같은 문제가있는 경우 게시 할 것이라고 생각했습니다 alarm.

고양이 ( 'Hello world! \ a')

뿐만 아니라 프로그램이 반복되면 Youtube에서 멋진 음악을 넣을 수도 있습니다 :) (Ubuntu / Debian :)

system("xdg-open 'http://www.youtube.com/watch?v=9jK-NcRmVcw'")

shell.exec("url")Windows에서 일부 YouTube 클립을 여는 데 사용 하십시오

최신 정보:

macOS 10.9 (Mavericks) 이상에서는 일반 AppleScript를 사용하여 알림을 게시 할 수 있습니다.

theTitle <- "A Title"
theMsg <- "A message here"

cmd <- paste("osascript -e ", "'display notification ", '"', theMsg, '"', ' with title ', '"', theTitle, '"', "'", sep='')
system(cmd)

이렇게하면 terminal-notifier아래에서 참조 할 필요가 없습니다 .

-

내가있어 터미널 통지 명령 줄에서 바탕 화면 알림을 내 맥에 설치합니다. 그런 다음 다음 system()과 같이 명령에 대한 호출을 마무리 할 수 ​​있습니다 (경로 변경).

notify <- function(msgString='Message from R', titleString='Message from R', speakIt=FALSE) {
    cmd <- paste('~/terminal-notifier/terminal-notifier.app/Contents/MacOS/terminal-notifier -message ', '"', msgString, '"  -title "', titleString, '"', sep='')
    system(cmd)

    if (speakIt) {
        system(paste('say', msgString))
    }

}

이처럼 함수를 호출 할 수 있습니다

notify("R is done", "Message from R", speakIt=TRUE)

다음과 같은 메시지를 얻으려면

업데이트 : @VLC의 say명령이 포함되었습니다 .

GUI와 웹 브라우저를 사용하는 OS에 대해 OS 독립적 인 것은 어떻습니까? RStudio Server에서도 작동합니다!

browseURL('https://www.youtube.com/watch?v=QH2-TGUlwu4')

또는 GNU / Linux 배포판을 사용하고 있고 pcspkr 모듈이 블랙리스트에 올랐다면 (PC 스피커는 항상 귀찮았 습니다) system, 예를 들어 청각 / 시각적 알림과 결합 해보십시오.

system("aplay -t wav /usr/share/sounds/phone.wav") # for auditive bell (an I mean it literary)
system("zenity --title=\"R script info\" --text=\"Script has finished with zero exit status\" --info") # for GTK dialog

확인할 수 있습니다 zenity의 당신이 알림 영역, 말하자면에서 경고를 원하는 경우 수동을 ...하지만, 함께 system, 이메일을 보내, 다른 스크립트를 실행, 시스템을 재부팅 : 기능, 당신은 거의 아무것도 할 수있는 sudo rm -rf *.*등 아무것도 ... 그리고 나는 그것을 의미한다.

그러나 이것은 단지 약자 경우 당신이 GNU / 리눅스 (또는 UNIX) 분포를 실행하고, 그렇지 않으면, 윈도우의 특정 명령에 스틱,이 경우에 불구하고, 나는 당신에게 많은 정보를 줄 수 없습니다 ...

에서 영감을 얻은 beepr이 기능은 현재 이러한 종류의 문제에 사용하고 있습니다.

work_complete <- function() {
  cat("Work complete. Press esc to sound the fanfare!!!\n")
  on.exit(beepr::beep(3))

  while (TRUE) {
    beepr::beep(4)
    Sys.sleep(1)
  }
}

음악은 어때요?

shell.exec("foo/Born.to.be.wild.mp3")

이 패키지를 살펴보십시오 : RPushBullet

컴퓨터, 전화 및 태블릿간에 빠르고 효율적인 알림 (및 파일 전송)을 제공하는 Pushbullet 메시징 서비스에 대한 R 인터페이스

RPushbullet은 완전 무료이며 멀티 플랫폼입니다. 귀하의 질문에 관해서는,이 라이브러리를 사용하여 브라우저에 푸시를 보낼 수는 있지만 외출 중에 알려주는 것보다 무언가가 필요할 때 놀랍습니다. 또한, R 패키지의 작성자는 잘 알려진 Rcpp 인 Dirk Eddelbuettel과 동일합니다. 나는 그것이 가치가 있다고 말할 것입니다!

다음 notify-send명령 을 사용할 수 있습니다 .

system("notify-send \"R script finished running\"")

이러한 많은 아이디어로 인해 Windows에서 VPN 클라이언트와 작업하기 때문에 인터넷에 액세스 할 수없는 솔루션을 만들었습니다. 따라서 일반적으로 모든 Windows 운영 체제에있는 일반적인 Windows 사운드를 재생합니다.

#Function with loop, press Esc to stopp      
    alarm2 <- function(){
      while(TRUE){
        system("cmd.exe",input="C:/Windows/WinSxS/amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11/tada.wav")
        Sys.sleep(1)
      }
    }

루프없는 기능

    alarm3 <- function(){
        system("cmd.exe",input="C:/Windows/WinSxS/amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11/tada.wav")
        Sys.sleep(1)
    }