Khi tôi chạy tập lệnh R, tôi sẽ làm một cái gì đó khác trên một máy tính để bàn khác. Nếu tôi không kiểm tra thường xuyên, tôi sẽ không bao giờ biết khi nào một cái gì đó kết thúc. Có cách nào để gọi tiếng bíp (như tiếng bíp hệ thống) hoặc để R phát âm thanh hoặc thông báo gầm gừ thông qua một số mã ở cuối tập lệnh của tôi không?

alarm()

Các chức năng báo động . Nó hoạt động bằng cách gửi \ađến bàn điều khiển

Tôi có một gói ( beepr) với mục đích duy nhất là tạo âm thanh thông báo trong R, hoạt động đa nền tảng. Chạy phần sau để cài đặt tiếng bíp và phát ra âm thanh:

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

Thêm thông tin tại github: https://github.com/rasmusab/beepr

Trên MacOSX, bạn có thể để máy tính nói:

system("say Just finished!")

và bạn cũng có thể thay đổi giọng nói nhân tạo sẽ nói:

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

Bạn có thể chọn bất kỳ giọng nói có sẵn trên máy tính của bạn. Trên Yosemite, bạn có thể xem giọng nói nào được cài đặt trong Tùy chọn hệ thống -> Đọc chính tả & Phát biểu -> Chuyển văn bản thành giọng nói .

Bạn nên tweet nó khi hoàn thành: http://cran.r-project.org/web/packages/twitteR/index.html

alarm không hoạt động trên máy Windows của tôi vì vậy tôi đã tạo ra một chức năng thực sự gây ra tiếng ồn.

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

Điều này rõ ràng chỉ có thể hoạt động trên Windows nhưng tôi không đảm bảo nó thậm chí sẽ chạy trên máy tính Windows tùy ý. Tôi chỉ thử nghiệm nó trên máy của mình nhưng tôi nghĩ rằng tôi sẽ đăng nó trong trường hợp có ai gặp vấn đề tương tự với alarmtôi.

mèo ('Xin chào thế giới! \ a')

Không chỉ vậy, bạn cũng có thể đặt một số bản nhạc hoành tráng từ Youtube khi chương trình hoàn thành vòng lặp :) (Đối với Ubuntu / Debian :)

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

Vui lòng sử dụng shell.exec("url")để mở một số clip YouTube trên Windows

CẬP NHẬT:

Với macOS 10.9 (Mavericks) trở lên, bạn có thể đăng thông báo bằng AppleScript đơn giản:

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

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

Điều này loại bỏ sự cần thiết phải cài đặt terminal-notifier, được tham khảo dưới đây.

-

Tôi đã cài đặt trình thông báo đầu cuối trên máy Mac của mình để nhận thông báo trên màn hình từ dòng lệnh. Sau đó, bạn có thể kết thúc một cuộc gọi đến system()lệnh như thế này (rõ ràng thay đổi đường dẫn):

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))
    }

}

Bạn có thể gọi hàm như thế này

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

để nhận được một tin nhắn như thế này:

Cập nhật: Đã bao gồm saylệnh @ VLC .

Làm thế nào về một cái gì đó hợp lý độc lập hệ điều hành cho các hệ điều hành với GUI và trình duyệt web? Nó thậm chí hoạt động trên RStudio Server!

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

Hoặc nếu bạn đang sử dụng phân phối GNU / Linux và có danh sách đen mô-đun pcpkr (loa PC luôn làm phiền tôi), hãy thử kết hợp systemvới một số thông báo bằng âm thanh / hình ảnh, ví dụ:

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

Bạn có thể kiểm tra zenity thủ công nếu bạn thích cảnh báo trong, nói, khu vực thông báo ... Tuy nhiên, với systemchức năng, bạn có thể làm khá nhiều bất cứ điều gì: gửi email, chạy một số kịch bản khác, khởi động lại máy, sudo rm -rf *.*vv bất cứ điều gì ... và tôi có nghĩa là nó.

Nhưng điều này chỉ tồn tại NẾU bạn đang chạy phân phối GNU / Linux (hoặc UNIX), nếu không, hãy tuân theo các lệnh cụ thể của Windows, mặc dù trong trường hợp đó, tôi không thể cung cấp cho bạn nhiều thông tin ...

Lấy cảm hứng từ beepr, đây là chức năng tôi hiện đang sử dụng cho các loại vấn đề này: D

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)
  }
}

Làm thế nào về việc chơi một số âm nhạc?

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

hãy xem gói này: RPushBONS

Giao diện R cho dịch vụ nhắn tin PushbONS cung cấp thông báo nhanh và hiệu quả (và truyền tệp) giữa máy tính, điện thoại và máy tính bảng

RPushbONS là hoàn toàn miễn phí và đa nền tảng. Đối với câu hỏi của bạn, bạn có thể sử dụng thư viện này để gửi Push tới trình duyệt của mình, nhưng rõ ràng nó sẽ trở nên tuyệt vời khi bạn cần thứ gì đó hơn là có thể thông báo cho bạn khi bạn đi vắng. Hơn nữa, người tạo ra gói R cũng giống như Rcpp nổi tiếng, Dirk Eddelbuettel. Tôi muốn nói rằng nó đáng để thử!

Bạn có thể sử dụng notify-sendlệnh:

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

Do nhiều ý tưởng này, tôi đã tạo ra một giải pháp mà không cần truy cập Internet, vì tôi làm việc với máy khách VPN với Windows. Vì vậy, nó phát một âm thanh Windows điển hình, thường có trên bất kỳ hệ điều hành Windows nào.

#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)
      }
    }

Chức năng không có vòng lặp

    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)
    }