0

一部の R スクリプトの実行を監視する進行状況バーを作成しました。そして、デフォルトの「Tk」アイコンの代わりにバーにカスタムアイコンを挿入したいと思います。.ico ファイルと次のコマンドを使用して、Windows でこれを行うことができます。

tcl('wm', 'iconbitmap', .win, 'Icon.ico')

しかし、Mac OSX と Linux で同じことを行う方法については、私は迷っています。明らかに、.ico 形式は機能しませんが、.png、.jpg、.bmp、.xbm、.xpm も機能しません。どうすれば進められるかについて何か提案はありますか？サンプル画像と進行状況バーコードを以下に添付:-

サンプル画像 http://tinypic.com/r/jt8efn/6 - http://tinypic.com/r/jt8efn/6

tkProgressBar2 <- function (title = 'Test progress bar', label = '', min = 0, max = 100, initial = 0, width = 300, userfn='helvetica', backg='white') {
  useText <- FALSE
  have_ttk <- as.character(tcl('info', 'tclversion')) >= '8.5'
  if (!have_ttk && as.character(tclRequire('PBar')) == 'FALSE') useText <- TRUE
  .win <<- tktoplevel(background=backg)
  tkfocus()
  tcl('wm', 'geometry', .win, '500x100+450+350')
  tcl('wm', 'iconbitmap', .win, '@Icon.xbm')
  .val <- initial
  .killed <- FALSE
  tkwm.geometry(.win, sprintf('%dx80', width + 40))
  tkwm.title(.win, title)
  fn <- tkfont.create(family = userfn, size = 12)
  if (useText) {
    .lab <- tklabel(.win, text = label, font = fn, padx = 0, background=backg)
    tkpack(.lab, side = 'left')
    fn2 <- tkfont.create(family = userfn, size = 16)
    .vlab <- tklabel(.win, text = '0%', font = fn2, padx = 20, background=backg)
    tkpack(.vlab, side = 'right')
    up <- function(value) {
      if (!is.finite(value) || value < min || value > max) return()
      .val <<- value
      tkconfigure(.vlab, text = sprintf('%d%%', round(100 * (value - min)/(max - min))))
    }
  } else {
    .lab <- tklabel(.win, text = label, font = fn, pady = 0, background=backg)
    .tkval <- tclVar(0)
    tkpack(.lab, side = 'top')
    tkpack(tklabel(.win, text = '', font = fn, background=backg), side = 'bottom')
    pBar <- if (have_ttk)
      ttkprogressbar(.win, length = width, variable = .tkval) else
        tkwidget(.win, 'ProgressBar', width = width, variable = .tkval)
    tkpack(pBar, side = 'bottom')
    up <- function(value) {
      if (!is.finite(value) || value < min || value > max) return()
      .val <<- value
      tclvalue(.tkval) <<- 100 * (value - min)/(max - min)
    }
  }
  getVal <- function() .val
  kill <- function() if (!.killed) {
    tkdestroy(.win)
    .killed <<- TRUE
  }
  title <- function(title) tkwm.title(.win, title)
  lab <- function(label) tkconfigure(.lab, text = label)
  tkbind(.win, '<Destroy>', function() stop())
  up(initial)
  structure(list(getVal = getVal, up = up, title = title, label = lab, kill = kill), class = 'tkProgressBar')
}

pb <- tkProgressBar2(title='Performing k-Means clustering', label='Some information in %', min=0, max=100, initial=0, width=400, userfn='verdana', backg='white')
4

1 に答える 1

0

Linux では、アイコンをwm iconphoto;で設定します。wm iconbitmapまったく別のことをします。そのためには、画像データを含む写真画像を作成する必要があります。

これをRで次のように書くと思います：

tcl('wm', 'iconphoto', .win, tcl('image', 'create', 'photo', '-file', 'Icon.gif'))

使用している Tk のバージョンでサポートされている画像形式が、利用可能な画像形式サポート パッケージを含めてよくわかりません。デフォルトで PNG も利用できる 8.6 を (勇敢に) 使用していない限り、最小限のセットは GIF と PPM です。

(写真イメージのコンテンツをプログラムで作成することもできますが、さまざまな理由で時間がかかります。)

OSX には、同じ意味でのウィンドウ アイコンがありません。最小化された各ウィンドウがドックに最小化されたときに、それ自体のスナップショットを表示するのは正常です。

于 2012-10-01T08:27:14.113 に答える