Mercurial > pub > dyncall > bindings
view R/rdyncall/demo/Win32PlaySound.R @ 47:44045db8fa5f
PyCObject/PyCapsule not usable as type annotation
author | Tassilo Philipp |
---|---|
date | Fri, 13 Nov 2020 18:04:05 +0100 |
parents | 0cfcc391201f |
children |
line wrap: on
line source
# Package: rdyncall # File: demo/Win32PlaySound.R # Description: Win32 Demo, playing a wav file (dynbind demo) if (.Platform$OS.type == "windows") { dynbind("winmm", "PlaySoundA(Zii)v;", callmode="stdcall") tada <- paste( Sys.getenv("SystemRoot"), "\\Media\\tada.wav", sep="" ) PlaySoundA(tada,0,0) } else { cat("This demo is runnable on windows only.") }