bitmap images in tcltk

On Tue, 6 May 2003, John Fox wrote:

Dear R-help list members,

I'm writing a package using tcltk. Thanks to Peter Dalgaard's excellent
work on the tcltk package, almost everything has gone very smoothly. I'm
stymied, however, by the following problem:

I want to incorporate a bitmap image, stored as an xbm file, in a widget.
To take a simple example,

     top <- tktoplevel()
     tkgrid(tklabel(top, bitmap="@file.xbm", fg="red"))

will work as long as file.xbm is in the current directory; 

alternatively, I

could specify the path to this file. The problem is that I can't figure 

out

a reliable way of predicting (or discovering) where the bitmap file will
reside when my package is installed.

Any suggestions would be appreciated.

system.file(<file path relative to package root>, package="package")[1]

should do it.