เมื่อฉันเรียกใช้สคริปต์ 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!")

คุณสามารถเลือกเสียงใด ๆ ที่มีอยู่ในคอมพิวเตอร์ของคุณ เมื่อวันที่โยเซมิตีคุณสามารถดูว่าเสียงมีการติดตั้งในการตั้งค่าระบบ -> คำสั่งและคำพูด -> ข้อความที่จะพูด

คุณควรทวีตเมื่อเสร็จแล้ว: 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ที่ฉันทำ

แมว ('สวัสดีชาวโลก! \ a')

ไม่เพียงแค่นั้นคุณยังสามารถใส่เพลงมหากาพย์จาก Youtube เมื่อโปรแกรมเสร็จสิ้นการวนลูป :) (สำหรับ Ubuntu / Debian :)

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

โปรดใช้shell.exec("url")เพื่อเปิดบางคลิป YouTube บน Windows

UPDATE:

ด้วย 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อ้างอิงด้านล่าง

-

ฉันได้ติดตั้งตัวแจ้งเทอร์มินัลไว้ใน Mac เพื่อรับการแจ้งเตือนทางเดสก์ท็อปจากบรรทัดคำสั่ง จากนั้นคุณสามารถสรุปการเรียกไปยัง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)

เพื่อรับข้อความเช่นนี้:

อัปเดต: รวมsayคำสั่งของ @ VLC

ระบบปฏิบัติการอิสระที่เหมาะสมสำหรับ OS ที่ใช้ GUI และเว็บเบราว์เซอร์เป็นอย่างไร มันยังทำงานบนเซิร์ฟเวอร์ RStudio!

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

หรือถ้าคุณใช้ GNU / Linux distro และมี โมดูลขึ้นบัญชีดำของรายการpcpkr (ลำโพงของเครื่องคอมพิวเตอร์มักจะทำให้ฉันรำคาญอยู่เสมอ) ลองใช้การ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

คุณสามารถตรวจสอบความถูกต้องคู่มือหากคุณต้องการการแจ้งเตือนในพูดพื้นที่แจ้งเตือน ... แต่ด้วยsystemฟังก์ชั่นคุณสามารถทำอะไรได้สวยมาก: ส่งอีเมลเรียกใช้สคริปต์อื่น ๆ รีบูตเครื่องsudo rm -rf *.*ฯลฯอะไร ... และฉันหมายถึงมัน

แต่นี่เป็นเพียงถ้าคุณใช้การกระจาย GNU / Linux (หรือ UNIX) มิฉะนั้นให้ยึดตามคำสั่งเฉพาะของ Windows แม้ว่าในกรณีนี้ฉันไม่สามารถให้ข้อมูลได้มากนัก ...

แรงบันดาลใจจากbeeprนี้เป็นฟังก์ชั่นฉันกำลังใช้สำหรับชนิดของปัญหาเหล่านี้: 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)
  }
}

วิธีการเกี่ยวกับการเล่นดนตรี?

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

ดูแพ็คเกจนี้: RPushBullet

อินเตอร์เฟส R ไปยังบริการส่งข้อความของ Pushbullet ซึ่งให้การแจ้งเตือนที่รวดเร็วและมีประสิทธิภาพ (และการถ่ายโอนไฟล์) ระหว่างคอมพิวเตอร์โทรศัพท์และแท็บเล็ต

RPushbullet เป็นแพลตฟอร์มที่สมบูรณ์ฟรีและหลากหลาย สำหรับคำถามของคุณคุณสามารถใช้ไลบรารีนี้เพื่อส่ง Push ไปยังเบราว์เซอร์ของคุณได้ แต่แน่นอนว่ามันน่าทึ่งเมื่อคุณต้องการบางสิ่งที่เกินกว่าที่จะสามารถแจ้งให้คุณทราบขณะที่คุณไม่อยู่ ยิ่งกว่านั้นผู้สร้างแพ็คเกจ R ก็เหมือนกันกับ Rcpp ที่รู้จักกันดีคือ Dirk Eddelbuettel ฉันว่ามันคุ้มค่ากับการยิง!

คุณสามารถใช้notify-sendคำสั่ง:

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

เนื่องจากความคิดมากมายเหล่านี้ฉันได้สร้างโซลูชันที่ไม่มีการเข้าถึงอินเทอร์เน็ตเพราะฉันทำงานกับไคลเอนต์ VPN กับ Windows ดังนั้นจึงเล่นเสียง 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)
    }