R-grid.pot の和訳とチェックのページ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
COLOR(blue){SIZE(18){R-grid.pot の和訳とチェックのページ}}
以下は R-grid.pot の素(粗)訳です．元ファイルと各メッセー...
を取り出したファイルを添付します．~
舟尾 (第一稿 2005.03.27)
#contents
-implemented, unimplimented の訳が推奨となっている箇所が...
-「特定」も「指定」でしょうね -- &new{2005-03-27 (日) 17...
-間瀬先生，ソースの添付をありがとうございます．ソースと照...
また，多数ご指摘いただきましてありがとうございます．ある...
-多数の貴重なご意見、本当にありがとうございました。私自身...
#comment
msgid ""
msgstr ""
"Project-Id-Version: R 2.1.0\n"
"Report-Msgid-Bugs-To: bugs@r-project.org\n"
"POT-Creation-Date: 2005-03-08 07:39\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=CHARSET\n"
"Content-Transfer-Encoding: 8bit\n"
* 1-20
msgid "Invalid 'at' location in 'axis'"
msgstr "'axis'中の 'at' のロケーション(location)が不正で...
msgid "Invalid to specify axis labels when 'at' is NULL"
msgstr "'at' が NULL である場合，axis ラベルを特定するの...
msgid "'labels' and 'at' locations must have same length"
msgstr "'labels' と 'at' のロケーション(location)は同じ...
msgid "Invalid 'edit' information"
msgstr "不正な 'edit' 情報です"
msgid "'gEditList' can only contain 'gEdit' objects"
msgstr "'gEditList' には 'gEdit' オブジェクトしか含める...
msgid "Invalid 'frame'"
msgstr "不正な 'frame' です"
msgid "Invalid 'grob'"
msgstr "不正な 'grob' です"
msgid "Invalid 'row' and/or 'col' (no such cell in frame...
msgstr "不正な 'row' かつ/または 'col' です（frame layou...
msgid "'col' can only be a range of existing columns"
msgstr "'col' は存在する列の範囲しかとり得ません"
msgid "Invalid 'col' specification"
msgstr "不正な 'col' の指定です"
msgid "'row' can only be a range of existing rows"
msgstr "'row' は存在する行の範囲しかとり得ません"
msgid "Invalid 'row' specification"
msgstr "不正な 'row' の指定です"
msgid "Cannot specify more than one of 'side=[\"left\", ...
'col.before', or 'col.after'"
msgstr "'side=[\"left\", \"right\"]', 'col', 'col.before...
のうち 1 つ以上を特定することが出来ません"
msgid "Must specify exactly one of 'side=[\"top\", \"bot...
'row.before', or 'row.after'"
msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before...
のうち 1 つを正確に特定しなければいけません"
msgid "gpar element '%s' must not be length 0"
msgstr "gpar の要素 '%s' は長さ 0 にしてはいけません"
msgid "'gamma' gpar is deprecated"
msgstr "'gamma' gpar は廃止予定です"
msgid "Invalid 'linemitre' value"
msgstr "不正な 'linemitre' 値です"
msgid "Invalid 'alpha' value"
msgstr "不正な 'alpha' 値です"
msgid "Must specify only one of 'font' and 'fontface'"
msgstr "'font' または 'fontface' の 1 つのみを特定しなけ...
msgid "Invalid font face"
msgstr "不正なフォントの書体です"
-"'labels' と 'at' のロケーション(location)は同じ長さでな...
-msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before...
#comment
* 21-40
msgid "Argument must be a 'gpar' object"
msgstr "引数は 'gpar' オブジェクトでなければなりません"
msgid "Must specify only valid 'gpar' names"
msgstr "有効な 'gpar' の名前のみを特定しなければいけませ...
msgid "Invalid display list element"
msgstr "不正なディスプレイリストの要素です"
msgid "grob(s) overwritten (grab WILL not be faithful; t...
msgstr "grob(s) が上書きされました（おそらく grab は信用...
msgid "viewport overwritten (grab MAY not be faithful)"
msgstr "viewport が上書きされました（おそらく grab は信...
msgid "grob pushed viewports and did not pop/up them (gr...
msgstr "grob が viewports に push され，viewports は pop...
（おそらく grab は信用できるものではありません）"
msgid "Only valid to push viewports"
msgstr "viewports を push することだけが有効です"
msgid "Must specify at least one viewport"
msgstr "少なくとも 1 つの viewport を特定しなければいけ...
msgid "Viewport '%s' was not found"
msgstr "Viewport '%s' が見つかりません"
msgid "Must pop at least one viewport"
msgstr "少なくとも 1 つの viewport を pop しなければいけ...
msgid "Must navigate up at least one viewport"
msgstr "少なくとも 1 つの viewport を navigate up しなけ...
msgid "The vp argument is deprecated"
msgstr "引数 vp は廃止予定です"
msgid "Invalid 'ask' value"
msgstr "不正な 'ask' 値です"
msgid "Invalid object inserted on the display list"
msgstr "ディスプレイリスト上に不正なオブジェクトが挿入さ...
msgid "Invalid 'vp' slot"
msgstr "不正な 'vp' スロットです"
msgid "Invalid 'gp' slot"
msgstr "不正な 'gp' スロットです"
msgid "Invalid 'grob' class"
msgstr "不正な 'grob' クラスです"
msgid "grid.grob() is deprecated; please use grob() inst...
msgstr "grid.grob() は廃止予定です; 代わりに grob() を使...
msgid "A 'grob' path must contain at least one 'grob' na...
msgstr "'grob' のパスは少なくとも 1 つの 'grob' の名前を...
msgid "Invalid 'grob' name(s)"
msgstr "不正な 'grob' の名前です"
#comment
* 41-60
msgid "Only 'grobs' allowed in 'gList'"
msgstr "'grobs' は 'gList' 中でのみ許されます"
msgid "Invalid element to add to 'gList'"
msgstr "'gList' に不正な要素が加えられました"
msgid "Can only set 'children' for a 'gTree'"
msgstr "'gTree' には 'children' しかセットできません"
msgid "'children' must be a 'gList'"
msgstr "'children' は 'gList' でなければなりません"
msgid "It is only valid to get 'children' from a 'gTree'"
msgstr "'children' は 'gTree' からしか得ることが出来ませ...
msgid "Invalid 'gTree' class"
msgstr "不正な 'gTree' クラスです"
msgid "'allDevices' not yet implemented"
msgstr "'allDevices' はまだ推奨されていません"
msgid "Invalid 'gPath'"
msgstr "不正な 'gPath' です"
msgid "Invalid 'grep' value"
msgstr "不正な 'grep' 値です"
msgid "It is only valid to get a child from a 'gTree'"
msgstr "child は 'gTree' からしか得ることが出来ません"
msgid "'gPath' does not specify a valid child"
msgstr "'gPath' は有効な child を特定することが出来ません"
msgid "It is only valid to set a child of a 'gTree'"
msgstr "'gTree' の child をセットすることだけが有効です"
msgid "It is only valid to set a 'grob' as child of a 'g...
msgstr "'grob' を 'gTree' の child としてセットすること...
msgid "New 'grob' name (%s) does not match 'gPath' (%s)"
msgstr "新しい 'grob' 名(%s)は 'gPath'(%s) に合致しません"
msgid "It is only valid to add a 'grob' to a 'gTree'"
msgstr "'grob' を 'gTree' に加えることだけが有効です"
msgid "It is only valid to add a child to a 'gTree'"
msgstr "child を 'gTree' に加えることだけが有効です"
msgid "It is only valid to remove a child from a 'gTree'"
msgstr "child を 'gTree' から取り払うことだけが有効です"
msgid "It is only valid to edit a child of a 'gTree'"
msgstr "'gTree' の child を編集することだけが有効です"
msgid "It is invalid to directly edit the 'children' or ...
msgstr "'children' または 'childrenOrder' のスロットを直...
msgid "Invalid 'result'"
msgstr "不正な 'result' です"
-"'children' または 'childrenOrder' のスロットを直接編集...
-"'gPath' は有効な child を特定することが出来ません" => "...
-"'grobs' は 'gList' 中でのみ許されます" => "''gList' 中...
#comment
* 61-80
msgid "The new 'grob' must have the same name as the old...
msgstr "新しい 'grob' は古い 'grob' と同じ名前でなければ...
msgid "Slot '%s' not found"
msgstr "スロット '%s' が見つかりません"
msgid "'gPath' (%s) not found"
msgstr "'gPath'(%s) が見つかりません"
msgid "gPath (%s) not found"
msgstr "gPath(%s) が見つかりません"
msgid "Grob '%s' not found"
msgstr "Grob '%s' が見つかりません"
msgid "Invalid element in the display list"
msgstr "ディスプレイリストの中に不正な要素があります"
msgid "This function is redundant and will disappear in ...
msgstr "この関数は余分で，将来のバージョンの中で消えるで...
msgid "'l' must be a layout"
msgstr "'l' は layout でなければなりません"
msgid "'pch' and 'labels' not the same length"
msgstr "'pch' と 'labels' は同じ長さでなければなりません"
msgid "'hgap' must be single unit"
msgstr "'hgap' は一つの単位(unit)でなければなりません"
msgid "'vgap' must be single unit"
msgstr "'vgap' は一つの単位(unit)でなければなりません"
msgid "Invalid justification"
msgstr "不正な正当化(justification)です ???????????"
msgid "Invalid horizontal justification"
msgstr "不正な水平の正当化(horizontal justification)です...
msgid "Invalid vertical justification"
msgstr "不正な垂直の正当化(horizontal justification)です...
msgid "'respect' must be logical or an 'nrow' by 'ncol' ...
msgstr "'respect' は論理値か 'ncol' 行列による 'nrow' で...
msgid "Invalid 'origin'"
msgstr "不正な 'origin' です"
msgid "'x' and 'y' must be units"
msgstr "'x' と 'y' は単位(units)でなければなりません"
msgid "'x' and 'y' must have length 1"
msgstr "'x' と 'y' は長さ 1 でなければならない"
msgid "'x0', 'y0', 'x1', and 'y1' must be units"
msgstr "'x0', 'y0', 'x1', 'y1' は単位(units)でなければな...
msgid "'x' and 'y' must be units or NULL"
msgstr "'x' と 'y' は単位(units)または NULL でなければな...
-justification とはテキスト(行)を見栄えのよい表示のために...
-"'respect' は論理値か 'ncol' 行列による 'nrow' でなけれ...
-ソースを見ると justification とは （何の？） right,left,...
-"この関数は余分で，将来のバージョンの中で消えるでしょう"...
-"'pch' と 'labels' は同じ長さでなければなりません" => "'...
-"'pch' と 'labels' は同じ長さでなければなりません" => "'...
-ご意見は基本的に賛成ですが、意訳が誤訳になっていないとい...
-意訳は某出版社のような「超訳」ではないですから，意訳＝い...
-"'pch' と 'labels' は同じ長さでなければなりません" => 指...
#comment
* 81-100
msgid "'length' must be a unit object"
msgstr "'length' は単位(units)オブジェクトでなければなり...
msgid "Invalid 'ends' or 'type' argument"
msgstr "不正な 'ends' 引数か 'type' 引数です"
msgid "Corrupt 'arrows' object"
msgstr "誤った 'arrows' オブジェクトです"
msgid "The 'grob' argument must be a 'line.to', 'lines',...
msgstr "'grob' 引数は 'line.to', 'lines', 'segments' の...
でなければなりません"
msgid "It is invalid to specify both 'id' and 'id.lengths"
msgstr "'id' と 'id.lengths' の両方を特定することは出来...
msgid "'x' and 'y' must be same length"
msgstr "'x' と 'y' は同じ長さでなければなりません"
msgid "'x' and 'y' and 'id' must all be same length"
msgstr "'x', 'y', 'id' は全て同じ長さでなければなりません"
msgid "'x' and 'y' and 'id.lengths' must specify same ov...
msgstr "'x', 'y', 'id.lengths' は全て同じ長さを特定しな...
msgid "'x', 'y', and 'r' must be units"
msgstr "'x', 'y', 'r' は全て単位(units)でなければなりま...
msgid "'x', 'y', 'width', and 'height' must be units"
msgstr "'x', 'y', 'width', 'height' は全て単位(units)で...
msgid "Invalid 'rot' value"
msgstr "不正な 'rot' 値でなければなりません"
msgid "zero-length 'pch'"
msgstr "長さ 0 の 'pch' です"
msgid "'x', 'y' and 'size' must be units"
msgstr "'x', 'y', 'size' は全て単位(units)でなければなり...
msgid "'x' and 'y' must be unit objects and have the sam...
msgstr "'x' と 'y' は単位(units)でなければならず，同じ長...
msgid "'x' must be numeric"
msgstr "'x' は数値でなければなりません"
msgid "'x' and 'units' must have length > 0"
msgstr "'x' と 'units' は 0 より大きい長さでなければなり...
msgid "'x' argument must be a unit object"
msgstr "引数 'x' は単位(units)オブジェクトでなければなり...
msgid "Invalid 'axis' or 'type'"
msgstr "不正な 'axis' か 'type' です"
msgid "No string supplied for 'strwidth' unit"
msgstr "'strwidth' 単位(units)を与える文字列がありません"
msgid "No string supplied for 'strheight' unit"
msgstr "'strheight' 単位(units)を与える文字列がありません"
-"誤った 'arrows' オブジェクトです" => "混乱した 'arrows'...
-msgstr "'grob' 引数は 'line.to', 'lines', 'segments' の...
-corrupt は，コンピュータ用語では〈プログラム･データが〉...
-"不正な 'rot' 値でなければなりません" → "不正な 'rot' ...
#comment
* 101-120
msgid "No 'grob' supplied for 'grobwidth' unit"
msgstr "'grobwidth' 単位(units)を与える 'grob' がありま...
msgid "'gPath' must have depth 1 in 'grobwidth/height' u...
msgstr "'gPath' は 'grobwidth/height' 単位(units)中では...
msgid "No 'grob' supplied for 'grobheight' unit"
msgstr "'grobheight' 単位(units)を与える 'grob' がありま...
msgid "Operator '%s' not meaningful for units"
msgstr "演算子 '%s' は単位(units)として意味をなしません"
msgid "Only one operand may be a unit"
msgstr "1 つのオペランド(operand)のみが単位(units)となり...
msgid "Non-unit operand must be numeric"
msgstr "単位ではないオペランド(operand)は数値でなければ...
msgid "Both operands must be units"
msgstr "オペランド(operand)は両方とも単位(units)でなけれ...
msgid "'Summary' function '%s' not meaningful for units"
msgstr "'Summary' 関数 '%s' は単位(units)として意味をな...
msgid "Zero arguments where at least one expected"
msgstr "引数が 0 個ですが，少なくとも 1 つの引数が必要で...
msgid "Index out of bounds (unit subsetting)"
msgstr "添え字が範囲を超えています（単位(unit)の部分集合...
msgid "Index out of bounds (unit arithmetic subsetting)"
msgstr "添え字が範囲を超えています（単位(unit)計算の部分...
msgid "Index out of bounds (unit list subsetting)"
msgstr "添え字が範囲を超えています（単位(unit)リストの部...
msgid "It is invalid to combine unit objects with other ...
msgstr "単位(unit)オブジェクトとそれ以外の型のオブジェク...
msgid "'range' must be numeric"
msgstr "'range' は数値でなければなりません"
msgid "'x', 'y', 'width', and 'height' must all be units...
msgstr "'x', 'y', 'width', 'height' は全て長さ 1 の単位(...
msgid "Invalid graphics parameters"
msgstr "不正なグラフィックスパラメータです"
msgid "Invalid 'clip' value"
msgstr "viewport 中の 'clip' が不正です"
msgid "Invalid 'xscale' in viewport"
msgstr "viewport 中の 'xscale' が不正です"
msgid "Invalid 'yscale' in viewport"
msgstr "viewport 中の 'yscale' が不正です"
msgid "Invalid 'angle' in viewport"
msgstr "viewport 中の 'angle' が不正です"
-"不正な 'rot' 値でなければなりません" => "不正な 'rot' ...
-"1 つのオペランド(operand)のみが単位(units)となります" =...
#comment
* 121-140
msgid "Invalid 'layout' in viewport"
msgstr "viewport 中の 'layout' が不正です"
msgid "Invalid 'layout.pos.row' in viewport"
msgstr "viewport 中の 'layout.pos.row' が不正です"
msgid "Invalid 'layout.pos.col' in viewport"
msgstr "viewport 中の 'layout.pos.col' が不正です"
msgid "Only viewports allowed in 'vpList'"
msgstr "viewports は 'vpList' 中でのみ許されます"
msgid "Only viewports allowed in 'vpStack'"
msgstr "viewports は 'vpStack' 中でのみ許されます"
msgid "'parent' must be a viewport and 'children' must b...
msgstr "'parent' は viewport でなければならず，'children...
msgid "A viewport path must contain at least one viewpor...
msgstr "viewport のパスは少なくとも一つの viewport 名を...
msgid "Invalid viewport name(s)"
msgstr "不正な viewport 名です"
msgid "Must specify at least one of 'x' or 'xscale'"
msgstr "'x' or 'xscale' のうち少なくとも一つを特定しなけ...
msgid "Must specify at least one of 'y' or 'yscale'"
msgstr "'y' か 'yscale' のうち少なくとも一つを特定しなけ...
#comment
* ソース
Invalid 'at' location in 'axis'
components.R- x$at <- as.numeric(x$at)
components.R- if (length(x$at) < 1 ||
components.R- !is.finite(x$at))
components.R: stop("Invalid 'at' location in 'axis'")
components.R- }
components.R- if (!is.logical(x$label)) {
components.R- # labels specified
Invalid to specify axis labels when 'at' is NULL
components.R- # labels specified
components.R- # Can only spec labels if at is not NULL
components.R- if (is.null(x$at))
components.R: stop("Invalid to specify axis labels ...
components.R- # Must be either language object or str...
components.R- if (!is.language(x$label))
components.R- x$label <- as.character(x$label)
'labels' and 'at' locations must have same length
components.R- x$label <- as.character(x$label)
components.R- # Must be same number of labels as "at"...
components.R- if (length(x$label) != length(x$at))
components.R: stop("'labels' and 'at' locations mus...
components.R- }
components.R- x$main <- as.logical(x$main)
components.R- x
Invalid 'edit' information
edit.R- x
edit.R- } else {
edit.R- if (!is.gEdit(edit))
edit.R: stop("Invalid 'edit' information")
edit.R- # Intended to handle whether edit has gPath s...
edit.R- newx <- do.call("editGrob", c(list(x), edit))
edit.R- # If edit was specified for non-existent chil...
--
edit.R- applyEdit(x, edits)
edit.R- else {
edit.R- if (!inherits(edits, "gEditList"))
edit.R: stop("Invalid 'edit' information")
edit.R- for (i in edits)
edit.R- x <- applyEdits(x, i)
edit.R- x
'gEditList' can only contain 'gEdit' objects
edit.R-gEditList <- function(...) {
edit.R- edits <- list(...)
edit.R- if (!all(sapply(edits, is.gEdit)))
edit.R: stop("'gEditList' can only contain 'gEdit' ob...
edit.R- class(edits) <- "gEditList"
edit.R- edits
edit.R-}
Invalid 'frame'
frames.R-placeGrob <- function(frame, grob,
frames.R- row=NULL, col=NULL) {
frames.R- if (!inherits(frame, "frame"))
frames.R: stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R- stop("Invalid 'grob'")
frames.R- dim <- frameDim(frame)
--
frames.R- force.width=FALSE, force.h...
frames.R- border=NULL, dynamic=FALSE...
frames.R- if (!inherits(frame, "frame"))
frames.R: stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R- stop("Invalid 'grob'")
frames.R- # col/row can be given as a range, but I only...
Invalid 'grob'
frames.R- if (!inherits(frame, "frame"))
frames.R- stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R: stop("Invalid 'grob'")
frames.R- dim <- frameDim(frame)
frames.R- if (is.null(row))
frames.R- row <- c(1, dim[1])
--
frames.R- if (!inherits(frame, "frame"))
frames.R- stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R: stop("Invalid 'grob'")
frames.R- # col/row can be given as a range, but I only...
frames.R- # about the min and max
frames.R- if (!is.null(col) & length(col) > 1) {
--
grob.R- g <- list(..., name=name, gp=gp, vp=vp)
grob.R- if (!is.null(cl) &&
grob.R- !is.character(cl))
grob.R: stop("Invalid 'grob' class")
grob.R- class(g) <- c(cl, "grob", "gDesc")
grob.R- validGrob(g)
grob.R-}
--
grob.R- if (n < 1)
grob.R- stop("A 'grob' path must contain at least one...
grob.R- if (!all(is.character(names)))
grob.R: stop("Invalid 'grob' name(s)")
grob.R- path <- list(path=if (n==1) NULL else
grob.R- paste(names[1:(n-1)], collapse=.gr...
grob.R- name=names[n],
Invalid 'row' and/or 'col' (no such cell in frame layout)
frames.R- col <- rep(col, 2)
frames.R- if (min(row) < 1 || max(row) > dim[1] ||
frames.R- min(col) < 1 || max(col) > dim[2])
frames.R: stop("Invalid 'row' and/or 'col' (no such c...
frames.R- cgrob <- cellGrob(col, row, NULL, grob, FALSE,
frames.R- cellViewport(col, row, NULL))
frames.R- addGrob(frame, cgrob)
'col' can only be a range of existing columns
frames.R- # It is an error to specify a range for col...
frames.R- if (length(col) == 2)
frames.R- if (col[1] < 1 || col[2] > ncol)
frames.R: stop("'col' can only be a range of exis...
frames.R- else
frames.R- result <- FALSE
frames.R- # It is also an error to specify a single c...
Invalid 'col' specification
frames.R- # It is also an error to specify a single c...
frames.R- else
frames.R- if (col < 1 || col > ncol + 1)
frames.R: stop("Invalid 'col' specification")
frames.R- else
frames.R- result <- col == ncol+1
frames.R- }
'row' can only be a range of existing rows
frames.R- # It is an error to specify a range for row...
frames.R- if (length(row) == 2)
frames.R- if (row[1] < 1 || row[2] > nrow)
frames.R: stop("'row' can only be a range of exis...
frames.R- else
frames.R- result <- FALSE
frames.R- # It is also an error to specify a single r...
Invalid 'row' specification
frames.R- # It is also an error to specify a single r...
frames.R- else
frames.R- if (row < 1 || row > nrow + 1)
frames.R: stop("Invalid 'row' specification")
frames.R- else
frames.R- result <- row == nrow+1
frames.R- }
Cannot specify more than one of 'side=["left", "right"]'...
Must specify exactly one of 'side=["top", "bottom"]', 'r...
or 'row.after'
gpar element '%s' must not be length 0
gpar.R- # Check a (non-NULL) gpar is not of length 0
gpar.R- check.length <- function(gparname) {
gpar.R- if (length(gpars[[gparname]]) == 0)
gpar.R: stop(gettextf("gpar element '%s' must not b...
gpar.R- domain = NA)
gpar.R- }
gpar.R- # Check a gpar is numeric and not NULL
'gamma' gpar is deprecated
gpar.R- numnotnull("lex")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names(gpars))
gpar.R: warning("'gamma' gpar is deprecated")
gpar.R- numnotnull("gamma")
gpar.R- numnotnull("alpha")
gpar.R- # col and fill are converted in C code
--
gpar.R- temp <- grid.Call("L_getGPar")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names(gp))
gpar.R: warning("'gamma' gpar is deprecated")
gpar.R- # Special case "cex" (make it cumulative)
gpar.R- if (match("cex", names(gp), nomatch=0))
gpar.R- tempcex <- temp$cex * gp$cex
--
gpar.R- stop("Must specify only valid 'gpar' names")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names)
gpar.R: warning("'gamma' gpar is deprecated")
gpar.R- result <- grid.Call("L_getGPar")[names]
gpar.R- }
gpar.R- class(result) <- "gpar"
Invalid 'linemitre' value
gpar.R- numnotnull("linemitre")
gpar.R- if (!is.na(match("linemitre", names(gpars)))) {
gpar.R- if (any(gpars$linemitre < 1))
gpar.R: stop("Invalid 'linemitre' value")
gpar.R- }
gpar.R- # alpha should be 0 to 1
gpar.R- if (!is.na(match("alpha", names(gpars)))) {
Invalid 'alpha' value
gpar.R- # alpha should be 0 to 1
gpar.R- if (!is.na(match("alpha", names(gpars)))) {
gpar.R- if (any(gpars$alpha < 0 || gpars$alpha > 1))
gpar.R: stop("Invalid 'alpha' value")
gpar.R- }
gpar.R- # font should be integer and not NULL
gpar.R- if (!is.na(match("font", names(gpars)))) {
Must specify only one of 'font' and 'fontface'
gpar.R- # Illegal to specify both font and fontface
gpar.R- if (!is.na(match("fontface", names(gpars)))) {
gpar.R- if (!is.na(match("font", names(gpars))))
gpar.R: stop("Must specify only one of 'font' and '...
gpar.R- if (is.null(gpars$fontface))
gpar.R- gpars$font <- NULL
gpar.R- else {
Invalid font face
gpar.R- cyrillic=5,
gpar.R- cyrillic.oblique=6,
gpar.R- EUC=7,
gpar.R: stop("Invalid fon...
gpar.R- gpars$font <- as.integer(temp.num)
gpar.R- }
gpar.R- }
Argument must be a 'gpar' object
gpar.R-
gpar.R-set.gpar <- function(gp) {
gpar.R- if (!is.gpar(gp))
gpar.R: stop("Argument must be a 'gpar' object")
gpar.R- temp <- grid.Call("L_getGPar")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names(gp))
Must specify only valid 'gpar' names
gpar.R- else {
gpar.R- if (!is.character(names) ||
gpar.R- !all(names %in% .grid.gpar.names))
gpar.R: stop("Must specify only valid 'gpar' names")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names)
gpar.R- warning("'gamma' gpar is deprecated")
Invalid display list element
grab.R-
grab.R-wrap.default <- function(x) {
grab.R- if (!is.null(x))
grab.R: stop("Invalid display list element")
grab.R- NULL
grab.R-}
grab.R-
grob(s) overwritten (grab WILL not be faithful; try 'wra...
grab.R- names <- getNames()
grab.R- # Check for overwriting existing grob
grab.R- if (length(unique(names)) != length(names))
grab.R: warning("grob(s) overwritten (grab WILL n...
try 'wrap=TRUE')")
grab.R- }
grab.R- grid.newpage(recording=FALSE)
grab.R- # Start at 2 because first element is viewpor...
viewport overwritten (grab MAY not be faithful)
grab.R- # with existing viewport name
grab.R- if (inherits(tempvp, "viewport") &&
grab.R- vpExists(tempvp))
grab.R: warning("viewport overwritten (grab...
grab.R- }
grab.R- if (!is.null(tempvp))
grab.R- tempdepth <- depth(tempvp)
--
grab.R- # Check to see if about to push a viewp...
grab.R- # with existing viewport name
grab.R- if (vpExists(elt))
grab.R: warning("viewport overwritten (grab M...
grab.R- grid.draw(elt, recording=FALSE)
grab.R- ###########
grab.R- # grabPop
grob pushed viewports and did not pop/up them (grab MAY ...
grab.R- pathSame = FALSE
grab.R- }
grab.R- if (!pathSame)
grab.R: warning("grob pushed viewports and ...
(grab MAY not be faithful)")
grab.R- }
grab.R- elt$vp <- drawPath
grab.R- if (!is.null(tempvp))
Only valid to push viewports
grid.R-}
grid.R-
grid.R-push.vp.default <- function(vp, recording) {
grid.R: stop("Only valid to push viewports")
grid.R-}
grid.R-
grid.R-push.vp.viewport <- function(vp, recording) {
Must specify at least one viewport
grid.R-
grid.R-pushViewport <- function(..., recording=TRUE) {
grid.R- if (missing(...))
grid.R: stop("Must specify at least one viewport")
grid.R- else {
grid.R- vps <- list(...)
grid.R- lapply(vps, push.vp, recording)
Viewport '%s' was not found
grid.R- record(name)
grid.R- }
grid.R- } else {
grid.R: stop(gettextf("Viewport '%s' was not found", ...
grid.R- domain = NA)
grid.R- }
grid.R- invisible(result)
Must pop at least one viewport
grid.R-
grid.R-popViewport <- function(n=1, recording=TRUE) {
grid.R- if (n < 0)
grid.R: stop("Must pop at least one viewport")
grid.R- if (n == 0)
grid.R- n <- vpDepth()
grid.R- if (n > 0) {
Must navigate up at least one viewport
grid.R-# simply navigate up, leaving pushed viewports in...
grid.R-upViewport <- function(n=1, recording=TRUE) {
grid.R- if (n < 0)
grid.R: stop("Must navigate up at least one viewport")
grid.R- if (n == 0) {
grid.R- n <- vpDepth()
grid.R- upPath <- current.vpPath()
The vp argument is deprecated
grid.R- # ever see normal viewports, so convert.
grid.R- vpFromPushedvp(grid.Call("L_currentViewport"))
grid.R- else {
grid.R: warning("The vp argument is deprecated")
grid.R- vp
grid.R- }
grid.R-}
Invalid 'ask' value
grid.R- old.prompt <- .Call("L_getAsk")
grid.R- if (!missing(ask)) {
grid.R- if (!is.logical(ask))
grid.R: stop("Invalid 'ask' value")
grid.R- .Call("L_setAsk", ask)
grid.R- }
grid.R- old.prompt
Invalid object inserted on the display list
grid.R-# gets put on the display list
grid.R-record.default <- function(x) {
grid.R- if (!is.numeric(x))
grid.R: stop("Invalid object inserted on the display ...
grid.R- grid.Call("L_setDLelt", x)
grid.R- inc.display.list()
grid.R-}
Invalid 'vp' slot
grob.R- if (!inherits(vp, "viewport") &&
grob.R- !inherits(vp, "vpPath") &&
grob.R- !is.character(vp))
grob.R: stop("Invalid 'vp' slot")
grob.R- # For interactive use, allow user to specify
grob.R- # vpPath directly (i.e., w/o calling vpPath)
grob.R- if (is.character(vp))
Invalid 'gp' slot
grob.R- # gp must be a gpar
grob.R- if (!is.null(gp))
grob.R- if (!inherits(gp, "gpar"))
grob.R: stop("Invalid 'gp' slot")
grob.R-}
grob.R-
grob.R-validDetails <- function(x) {
Invalid 'grob' class
grob.R- g <- list(..., name=name, gp=gp, vp=vp)
grob.R- if (!is.null(cl) &&
grob.R- !is.character(cl))
grob.R: stop("Invalid 'grob' class")
grob.R- class(g) <- c(cl, "grob", "gDesc")
grob.R- validGrob(g)
grob.R-}
grid.grob() is deprecated; please use grob() instead
grob.R-}
grob.R-
grob.R-grid.grob <- function(list.struct, cl=NULL, draw=...
grob.R: warning("grid.grob() is deprecated; please use ...
grob.R- g <- do.call("grob", c(list.struct, cl=cl))
grob.R- if (draw)
grob.R- grid.draw(g)
A 'grob' path must contain at least one 'grob' name
grob.R-gPathFromVector <- function(names) {
grob.R- n <- length(names)
grob.R- if (n < 1)
grob.R: stop("A 'grob' path must contain at least one...
grob.R- if (!all(is.character(names)))
grob.R- stop("Invalid 'grob' name(s)")
grob.R- path <- list(path=if (n==1) NULL else
Invalid 'grob' name(s)
grob.R- if (n < 1)
grob.R- stop("A 'grob' path must contain at least one...
grob.R- if (!all(is.character(names)))
grob.R: stop("Invalid 'grob' name(s)")
grob.R- path <- list(path=if (n==1) NULL else
grob.R- paste(names[1:(n-1)], collapse=.gr...
grob.R- name=names[n],
Only 'grobs' allowed in 'gList'
grob.R- class(gl) <- c("gList")
grob.R- return(gl)
grob.R- } else {
grob.R: stop("Only 'grobs' allowed in 'gList'")
grob.R- }
grob.R-}
grob.R-
Invalid element to add to 'gList'
grob.R- if (is.null(x))
grob.R- gList
grob.R- else
grob.R: stop("Invalid element to add to 'gList'")
grob.R-}
grob.R-
grob.R-addToGList.grob <- function(x, gList) {
Can only set 'children' for a 'gTree'
grob.R-
grob.R-setChildren <- function(x, children) {
grob.R- if (!inherits(x, "gTree"))
grob.R: stop("Can only set 'children' for a 'gTree'")
grob.R- if (!is.null(children) &&
grob.R- !inherits(children, "gList"))
grob.R- stop("'children' must be a 'gList'")
'children' must be a 'gList'
grob.R- stop("Can only set 'children' for a 'gTree'")
grob.R- if (!is.null(children) &&
grob.R- !inherits(children, "gList"))
grob.R: stop("'children' must be a 'gList'")
grob.R- # Thin out NULL children
grob.R- if (!is.null(children)) {
grob.R- cl <- class(children)
It is only valid to get 'children' from a 'gTree'
grob.R-
grob.R-childNames <- function(gTree) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to get 'children' from...
grob.R- gTree$childrenOrder
grob.R-}
grob.R-
Invalid 'gTree' class
grob.R- gt <- list(..., name=name, gp=gp, vp=vp)
grob.R- if (!is.null(cl) &&
grob.R- !is.character(cl))
grob.R: stop("Invalid 'gTree' class")
grob.R- class(gt) <- c(cl, "gTree", "grob", "gDesc")
grob.R- gt <- validGrob(gt, childrenvp)
grob.R- gt <- setChildren(gt, children)
'allDevices' not yet implemented
grob.R-grid.get <- function(gPath, strict=FALSE, grep=FA...
grob.R- allDevices=FALSE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R- grep=FALSE, global=FALSE, al...
grob.R- redraw=TRUE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R- grep=FALSE, global=FALSE,...
grob.R- redraw=TRUE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R- grep=FALSE, global=FALSE, a...
grob.R- redraw=TRUE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
Invalid 'gPath'
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (depth(gPath) == 1 && strict) {
grob.R- gTree$children[[gPath$name]]
grob.R- } else {
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
Invalid 'grep' value
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- getDLfromGPath(gPath, strict, grep, global)
grob.R-}
--
grob.R- gTree$children[[gPath$name]]
grob.R- } else {
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- getGTree(gTree, NULL, gPath, strict, grep, gl...
grob.R- }
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- result <- setDLfromGPath(gPath, newGrob, strict...
grob.R- # result$index will be non-zero if matched the ...
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- if (depth(gPath) == 1 && strict) {
grob.R- # gPath must specify an existing child
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- addDLfromGPath(gPath, child, strict, grep, glob...
grob.R-}
--
grob.R- if (!inherits(gTree, "gTree"))
grob.R- stop("It is only valid to add a child to a ...
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- addGTree(gTree, child, NULL, gPath, strict, g...
grob.R- }
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- if (depth(gPath) == 1) {
grob.R- removeNameFromDL(gPath$name, strict, grep, gl...
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- if (depth(gPath) == 1) {
grob.R- # result will be NULL if no match
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- specs <- list(...)
grob.R- editDLfromGPath(gPath, specs, strict, grep, glo...
--
grob.R- if (!inherits(grob, "gTree"))
grob.R- stop("It is only valid to edit a child of a...
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- editGTree(grob, specs, NULL, gPath, strict, g...
grob.R- }
It is only valid to get a child from a 'gTree'
grob.R-getGrob <- function(gTree, gPath, strict=FALSE,
grob.R- grep=FALSE, global=FALSE) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to get a child from a ...
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
'gPath' does not specify a valid child
grob.R- if (redraw)
grob.R- draw.all()
grob.R- } else {
grob.R: stop("'gPath' does not specify a valid child")
grob.R- }
grob.R-}
grob.R-
--
grob.R- newGrob$name, gPath), dom...
grob.R- }
grob.R- } else {
grob.R: stop("'gPath' does not specify a valid ch...
grob.R- }
grob.R- } else {
grob.R- gTree <- setGTree(gTree, NULL, gPath, newGrob...
grob.R- if (is.null(gTree))
grob.R: stop("'gPath' does not specify a valid chil...
grob.R- }
grob.R- gTree
grob.R-}
It is only valid to set a child of a 'gTree'
grob.R-# nor is it valid to specify a global destination...
grob.R-setGrob <- function(gTree, gPath, newGrob, strict...
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to set a child of a 'g...
grob.R- if (!inherits(newGrob, "grob"))
grob.R- stop("It is only valid to set a 'grob' as chi...
grob.R- if (is.character(gPath))
It is only valid to set a 'grob' as child of a 'gTree'
grob.R- if (!inherits(gTree, "gTree"))
grob.R- stop("It is only valid to set a child of a 'g...
grob.R- if (!inherits(newGrob, "grob"))
grob.R: stop("It is only valid to set a 'grob' as chi...
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
New 'grob' name (%s) does not match 'gPath' (%s)
grob.R- if (match(gTree$childrenOrder[old.pos], new...
grob.R- gTree$children[[newGrob$name]] <- newGrob
grob.R- } else {
grob.R: stop(gettextf("New 'grob' name (%s) doe...
grob.R- newGrob$name, gPath), dom...
grob.R- }
grob.R- } else {
It is only valid to add a 'grob' to a 'gTree'
grob.R-addGrob <- function(gTree, child, gPath=NULL, str...
grob.R- grep=FALSE, global=FALSE) {
grob.R- if (!inherits(child, "grob"))
grob.R: stop("It is only valid to add a 'grob' to a '...
grob.R- if (is.null(gPath)) {
grob.R- addToGTree(gTree, child)
grob.R- } else {
It is only valid to add a child to a 'gTree'
grob.R- gPath <- gPathDirect(gPath)
grob.R- # Only makes sense to specify a gPath for a g...
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to add a child to a ...
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R-# Assume that child is a grob
grob.R-addToGTree <- function(gTree, child) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to add a child to a 'g...
grob.R- gTree$children[[child$name]] <- child
grob.R- # Handle case where child name already exists (...
grob.R- if (old.pos <- match(child$name, gTree$children...
--
grob.R- NULL
grob.R- else {
grob.R- if (nameMatch(gPath$name, grob$name, grep))
grob.R: stop("It is only valid to add a child to a ...
grob.R- else
grob.R- NULL
grob.R- }
It is only valid to remove a child from a 'gTree'
grob.R-removeGrob <- function(gTree, gPath, strict=FALSE,
grob.R- grep=FALSE, global=FALSE, ...
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to remove a child from...
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R-
grob.R-removeFromGTree <- function(gTree, name, grep) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to remove a child from...
grob.R- if (grep) {
grob.R- old.pos <- grep(name, gTree$childrenOrder)
grob.R- if (length(old.pos) == 0)
It is only valid to edit a child of a 'gTree'
grob.R- gPath <- gPathDirect(gPath)
grob.R- # Only makes sense to specify a gPath for a g...
grob.R- if (!inherits(grob, "gTree"))
grob.R: stop("It is only valid to edit a child of a...
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
It is invalid to directly edit the 'children' or 'childr...
grob.R-editDetails.gTree <- function(x, specs) {
grob.R- # Disallow editing children or childrenOrder sl...
grob.R- if (any(match(specs, c("children", "childrenOrd...
grob.R: stop("It is invalid to directly edit the 'chi...
grob.R- x
grob.R-}
grob.R-
Invalid 'result'
grob.R-# Should only be when result is NULL
grob.R-growResult.default <- function(result, x) {
grob.R- if (!is.null(result))
grob.R: stop("Invalid 'result'")
grob.R- x
grob.R-}
grob.R-
The new 'grob' must have the same name as the old 'grob'
grob.R- gTree$children[[newGrob$name]] <- new...
grob.R- found <- TRUE
grob.R- } else {
grob.R: stop("The new 'grob' must have the sa...
grob.R- }
grob.R- } else {
grob.R- if (is.null(pathsofar))
--
grob.R- if (match(grob$name, newGrob$name, nomatch=...
grob.R- newGrob
grob.R- else
grob.R: stop("The new 'grob' must have the same n...
grob.R- else
grob.R- if (strict)
grob.R- NULL
Slot '%s' not found
grob.R- else
grob.R- grob[[i]] <- specs[[i]]
grob.R- else
grob.R: warning(gettextf("Slot '%s' not found", i...
grob.R- # Check grob slots are ok before trying to do a...
grob.R- # in editDetails
grob.R- # grob$childrenvp may be non-NULL for a gTree
'gPath' (%s) not found
grob.R- index <- index + 1
grob.R- }
grob.R- if (!found)
grob.R: stop(gettextf("'gPath' (%s) not found", as.ch...
grob.R- else if (redraw)
grob.R- draw.all()
grob.R-}
gPath (%s) not found
grob.R- index <- index + 1
grob.R- }
grob.R- if (!found)
grob.R: stop(gettextf("gPath (%s) not found", gPath),...
grob.R- else if (redraw)
grob.R- draw.all()
grob.R-}
--
grob.R- index <- index + 1
grob.R- }
grob.R- if (!found)
grob.R: stop(gettextf("gPath (%s) not found", gPath),...
grob.R- else if (redraw)
grob.R- draw.all()
grob.R-}
--
grob.R- }
grob.R- if (!found) {
grob.R- if (warn)
grob.R: stop(gettextf("gPath (%s) not found", gPa...
grob.R- } else if (redraw)
grob.R- draw.all()
grob.R-}
Grob '%s' not found
grob.R- index <- index + 1
grob.R- }
grob.R- if (is.null(result))
grob.R: stop(gettextf("Grob '%s' not found", name), d...
grob.R- result
grob.R-}
grob.R-
--
grob.R- index <- index + 1
grob.R- }
grob.R- if (is.null(result))
grob.R: stop(gettextf("Grob '%s' not found", name), d...
grob.R- result
grob.R-}
grob.R-
Invalid element in the display list
grob.R-grid.draw.default <- function(x, recording) {
grob.R- # Allow for "holes" in the DL if a grob has bee...
grob.R- if (!is.null(x))
grob.R: stop("Invalid element in the display list")
grob.R-}
grob.R-
grob.R-grid.draw.viewport <- function(x, recording) {
This function is redundant and will disappear in future ...
grob.R-}
grob.R-
grob.R-grid.copy <- function(grob) {
grob.R: warning("This function is redundant and will di...
grob.R- grob
grob.R-}
grob.R-
'l' must be a layout
highlevel.R- cell.label=TRUE, la...
highlevel.R- unit.col="red",...
highlevel.R- if (!is.layout(l))
highlevel.R: stop("'l' must be a layout")
highlevel.R- if (newpage)
highlevel.R- grid.newpage()
highlevel.R- if (!is.null(vp))
'pch' and 'labels' not the same length
highlevel.R- labels <- as.character(labels)
highlevel.R- nkeys <- length(labels)
highlevel.R- if (length(pch) != nkeys)
highlevel.R: stop("'pch' and 'labels' not the same le...
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
--
highlevel.R- labels <- as.character(labels)
highlevel.R- nkeys <- length(labels)
highlevel.R- if (length(pch) != nkeys)
highlevel.R: stop("'pch' and 'labels' not the same le...
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
'hgap' must be single unit
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
highlevel.R: stop("'hgap' must be single unit")
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
--
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
highlevel.R: stop("'hgap' must be single unit")
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
'vgap' must be single unit
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
highlevel.R: stop("'vgap' must be single unit")
highlevel.R- gf <- grid.frame(layout=grid.layout(nkeys,...
draw=FALSE)
highlevel.R- for (i in 1:nkeys) {
highlevel.R- if (i==1) {
--
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
highlevel.R: stop("'vgap' must be single unit")
highlevel.R- legend.layout <-
highlevel.R- grid.layout(nkeys, 3,
highlevel.R- widths=unit.c(unit(2, "lines...
Invalid justification
just.R- just <- as.integer(match(just[1], c("left", "...
just.R- "centre",...
just.R- if (any(is.na(just)))
just.R: stop("Invalid justification")
just.R- } else if (length(just) > 1) {
just.R- # first value must be one of "left", "right",...
just.R- just[1] <- as.integer(match(just[1], c("left"...
"top",
--
just.R- switch(just[2] + 1, NA, NA, 0, 1, 0.5...
just.R- # Final paranoid check
just.R- if (any(is.na(just)))
just.R: stop("Invalid justification")
just.R- just
just.R-}
just.R-
Invalid horizontal justification
just.R- just[1] <- as.integer(match(just[1], c("left"...
"top",
just.R- "centr...
just.R- if (!(just[1] %in% c(0, 1, 4, 5)))
just.R: stop("Invalid horizontal justification")
just.R- # second value must be one of "bottom", "top"...
just.R- just[2] <- as.integer(match(just[2], c("left"...
"top",
just.R- "centr...
Invalid vertical justification
just.R- just[2] <- as.integer(match(just[2], c("left"...
"top",
just.R- "centr...
just.R- if (!(just[2] %in% c(2, 3, 4, 5)))
just.R: stop("Invalid vertical justification")
just.R- just <- as.integer(just)
just.R- }
just.R- # Extend to length 2 if necessary
'respect' must be logical or an 'nrow' by 'ncol' matrix
layout.R- if (!is.logical(respect)) {
layout.R- respect <- as.matrix(respect)
layout.R- if (!is.matrix(respect) || any(dim(respect)...
layout.R: stop("'respect' must be logical or an 'nr...
layout.R- }
layout.R- if (is.matrix(respect)) {
layout.R- respect.mat <- matrix(as.integer(respect),
Invalid 'origin'
origin.R- c("bottom.left", "...
origin.R- "bottom.right", ...
origin.R- if (any(is.na(origin)))
origin.R: stop("Invalid 'origin'")
origin.R- origin
origin.R-}
origin.R-
'x' and 'y' must be units
primitives.R-validDetails.move.to <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R- stop("'x' and 'y' must have length 1")
--
primitives.R-validDetails.line.to <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R- stop("'x' and 'y' must have length 1")
--
primitives.R-validDetails.lines <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- x
primitives.R-}
primitives.R-
--
primitives.R-validDetails.arrows <- function(x) {
primitives.R- if ((!is.null(x$x) && !is.unit(x$x)) ||
primitives.R- (!is.null(x$y) && !is.unit(x$y)))
primitives.R: stop("'x' and 'y' must be units or NULL")
primitives.R- if (!is.unit(x$length))
primitives.R- stop("'length' must be a unit object")
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
--
primitives.R-validDetails.polygon <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengt...
primitives.R- stop("It is invalid to specify both 'id...
primitives.R- if (unit.length(x$x) != unit.length(x$y))
--
primitives.R- x$label <- as.character(x$label)
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- x$rot <- as.numeric(x$rot)
primitives.R- if (!all(is.finite(x$rot)) || length(x$ro...
primitives.R- stop("Invalid 'rot' value")
'x' and 'y' must have length 1
primitives.R- stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R: stop("'x' and 'y' must have length 1")
primitives.R- x
primitives.R-}
primitives.R-
--
primitives.R- stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R: stop("'x' and 'y' must have length 1")
primitives.R- x
primitives.R-}
primitives.R-
'x0', 'y0', 'x1', and 'y1' must be units
primitives.R-validDetails.segments <- function(x) {
primitives.R- if (!is.unit(x$x0) || !is.unit(x$x1) ||
primitives.R- !is.unit(x$y0) || !is.unit(x$y1))
primitives.R: stop("'x0', 'y0', 'x1', and 'y1' must b...
primitives.R- x
primitives.R-}
primitives.R-
'x' and 'y' must be units or NULL
primitives.R-validDetails.arrows <- function(x) {
primitives.R- if ((!is.null(x$x) && !is.unit(x$x)) ||
primitives.R- (!is.null(x$y) && !is.unit(x$y)))
primitives.R: stop("'x' and 'y' must be units or NULL")
primitives.R- if (!is.unit(x$length))
primitives.R- stop("'length' must be a unit object")
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
'length' must be a unit object
primitives.R- (!is.null(x$y) && !is.unit(x$y)))
primitives.R- stop("'x' and 'y' must be units or NULL")
primitives.R- if (!is.unit(x$length))
primitives.R: stop("'length' must be a unit object")
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
primitives.R- x$type <- as.integer(match(x$type, c("ope...
primitives.R- if (any(is.na(x$ends)) || any(is.na(x$typ...
Invalid 'ends' or 'type' argument
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
primitives.R- x$type <- as.integer(match(x$type, c("ope...
primitives.R- if (any(is.na(x$ends)) || any(is.na(x$typ...
primitives.R: stop("Invalid 'ends' or 'type' argument")
primitives.R- x
primitives.R-}
primitives.R-
Corrupt 'arrows' object
primitives.R-drawDetails.arrows <- function(x, recording...
primitives.R- if (is.null(x$x)) { # y should be null too
primitives.R- if (!is.null(x$y))
primitives.R: stop("Corrupt 'arrows' object")
primitives.R- lineThing <- getGrob(x, childNames(x))
primitives.R- # This could be done via method dispatc...
primitives.R- # seemed like overkill
--
primitives.R-widthDetails.arrows <- function(x) {
primitives.R- if (is.null(x$x)) { # y should be null too
primitives.R- if (!is.null(x$y))
primitives.R: stop("Corrupt 'arrows' object")
primitives.R- lineThing <- getGrob(x, childNames(x))
primitives.R- widthDetails(lineThing)
primitives.R- } else {
--
primitives.R-heightDetails.arrows <- function(x) {
primitives.R- if (is.null(x$x)) { # y should be null too
primitives.R- if (!is.null(x$y))
primitives.R: stop("Corrupt 'arrows' object")
primitives.R- lineThing <- getGrob(x, childNames(x))
primitives.R- heightDetails(lineThing)
primitives.R- } else {
The 'grob' argument must be a 'line.to', 'lines', or 'se...
primitives.R- if (!(inherits(grob, "lines") ||
primitives.R- inherits(grob, "segments") ||
primitives.R- inherits(grob, "line.to")))
primitives.R: stop("The 'grob' argument must be a '...
'segments' grob")
primitives.R- x <- y <- NULL
primitives.R- }
primitives.R- gTree(x=x, y=y, children=if (is.null(grob...
It is invalid to specify both 'id' and 'id.lengths
primitives.R- !is.unit(x$y))
primitives.R- stop("'x' and 'y' must be units")
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengt...
primitives.R: stop("It is invalid to specify both 'id...
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R- stop("'x' and 'y' must be same length")
primitives.R- if (!is.null(x$id) && (length(x$id) != un...
'x' and 'y' must be same length
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengt...
primitives.R- stop("It is invalid to specify both 'id...
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R: stop("'x' and 'y' must be same length")
primitives.R- if (!is.null(x$id) && (length(x$id) != un...
primitives.R- stop("'x' and 'y' and 'id' must all be ...
primitives.R- if (!is.null(x$id))
'x' and 'y' and 'id' must all be same length
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R- stop("'x' and 'y' must be same length")
primitives.R- if (!is.null(x$id) && (length(x$id) != un...
primitives.R: stop("'x' and 'y' and 'id' must all be ...
primitives.R- if (!is.null(x$id))
primitives.R- x$id <- as.integer(x$id)
primitives.R- if (!is.null(x$id.lengths) && (sum(x$id.l...
'x' and 'y' and 'id.lengths' must specify same overall l...
primitives.R- if (!is.null(x$id))
primitives.R- x$id <- as.integer(x$id)
primitives.R- if (!is.null(x$id.lengths) && (sum(x$id.l...
primitives.R: stop("'x' and 'y' and 'id.lengths' must...
length")
primitives.R- if (!is.null(x$id.lengths))
primitives.R- x$id.lengths <- as.integer(x$id.lengths)
primitives.R- x
'x', 'y', and 'r' must be units
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y) ||
primitives.R- !is.unit(x$r))
primitives.R: stop("'x', 'y', and 'r' must be units")
primitives.R- x
primitives.R-}
primitives.R-
'x', 'y', 'width', and 'height' must be units
primitives.R- !is.unit(x$y) ||
primitives.R- !is.unit(x$width) ||
primitives.R- !is.unit(x$height))
primitives.R: stop("'x', 'y', 'width', and 'height' m...
primitives.R- valid.just(x$just)
primitives.R- if (!is.null(x$hjust))
primitives.R- x$hjust <- as.numeric(x$hjust)
Invalid 'rot' value
primitives.R- stop("'x' and 'y' must be units")
primitives.R- x$rot <- as.numeric(x$rot)
primitives.R- if (!all(is.finite(x$rot)) || length(x$ro...
primitives.R: stop("Invalid 'rot' value")
primitives.R- valid.just(x$just)
primitives.R- if (!is.null(x$hjust))
primitives.R- x$hjust <- as.numeric(x$hjust)
zero-length 'pch'
primitives.R-######################################
primitives.R-valid.pch <- function(pch) {
primitives.R- if (length(pch) == 0)
primitives.R: stop("zero-length 'pch'")
primitives.R- if (is.null(pch))
primitives.R- pch <- as.integer(1)
primitives.R- else if (!is.character(pch))
'x', 'y' and 'size' must be units
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y) ||
primitives.R- !is.unit(x$size))
primitives.R: stop("'x', 'y' and 'size' must be units")
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R- stop("'x' and 'y' must be unit objects ...
primitives.R- x$pch <- valid.pch(x$pch)
'x' and 'y' must be unit objects and have the same length
primitives.R- !is.unit(x$size))
primitives.R- stop("'x', 'y' and 'size' must be units")
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R: stop("'x' and 'y' must be unit objects ...
primitives.R- x$pch <- valid.pch(x$pch)
primitives.R- x
primitives.R-}
'x' must be numeric
unit.R-# or 'unit(1, "grob", a.grob)'
unit.R-unit <- function(x, units, data=NULL) {
unit.R- if (!is.numeric(x))
unit.R: stop("'x' must be numeric")
unit.R- units <- as.character(units)
unit.R- if (length(x) == 0 || length(units) == 0)
unit.R- stop("'x' and 'units' must have length > 0")
'x' and 'units' must have length > 0
unit.R- stop("'x' must be numeric")
unit.R- units <- as.character(units)
unit.R- if (length(x) == 0 || length(units) == 0)
unit.R: stop("'x' and 'units' must have length > 0")
unit.R- valid.unit(x, units, recycle.data(data, FALSE, ...
unit.R-}
unit.R-
'x' argument must be a unit object
unit.R- whatto <- match(axisTo, c("x", "y")) - 1 +
unit.R- 2*(match(typeTo, c("location", "dimension")) ...
unit.R- if (!is.unit(x))
unit.R: stop("'x' argument must be a unit object")
unit.R- if (is.na(whatfrom) || is.na(whatto))
unit.R- stop("Invalid 'axis' or 'type'")
unit.R- value <- grid.Call("L_convert", x, as.integer(w...
Invalid 'axis' or 'type'
unit.R- if (!is.unit(x))
unit.R- stop("'x' argument must be a unit object")
unit.R- if (is.na(whatfrom) || is.na(whatto))
unit.R: stop("Invalid 'axis' or 'type'")
unit.R- value <- grid.Call("L_convert", x, as.integer(w...
unit.R- as.integer(whatto), valid.units(...
unit.R- if (!valueOnly)
No string supplied for 'strwidth' unit
unit.R- for (i in (1:n)[str.units])
unit.R- if (!(length(data) >= i &&
unit.R- (is.character(data[[i]]) || is.expres...
unit.R: stop("No string supplied for 'strwidth' u...
unit.R- str.units <- (units == "strheight" | units == "...
unit.R- if (any(str.units != 0))
unit.R- for (i in (1:n)[str.units])
No string supplied for 'strheight' unit
unit.R- for (i in (1:n)[str.units])
unit.R- if (!(length(data) >= i &&
unit.R- (is.character(data[[i]]) || is.expres...
unit.R: stop("No string supplied for 'strheight' ...
unit.R- # Make sure that a grob has been specified
unit.R- grob.units <- units == "grobwidth"
unit.R- if (any(grob.units != 0))
No 'grob' supplied for 'grobwidth' unit
unit.R- if (!(length(data) >= i &&
unit.R- (is.grob(data[[i]]) || inherits(data[...
unit.R- is.character(data[[i]]))))
unit.R: stop("No 'grob' supplied for 'grobwidth' ...
unit.R- if (is.character(data[[i]]))
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
'gPath' must have depth 1 in 'grobwidth/height' units
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
unit.R- if (depth(data[[i]]) > 1)
unit.R: stop("'gPath' must have depth 1 in 'gro...
unit.R- }
unit.R- grob.units <- units == "grobheight"
unit.R- if (any(grob.units != 0))
--
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
unit.R- if (depth(data[[i]]) > 1)
unit.R: stop("'gPath' must have depth 1 in 'gro...
unit.R- }
unit.R- data
unit.R-}
No 'grob' supplied for 'grobheight' unit
unit.R- if (!(length(data) >= i &&
unit.R- (is.grob(data[[i]]) || inherits(data[...
unit.R- is.character(data[[i]]))))
unit.R: stop("No 'grob' supplied for 'grobheight'...
unit.R- if (is.character(data[[i]]))
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
Operator '%s' not meaningful for units
unit.R-Ops.unit <- function(e1, e2) {
unit.R- ok <- switch(.Generic, "+"=TRUE, "-"=TRUE, "*"=...
unit.R- if (!ok)
unit.R: stop(gettextf("Operator '%s' not meaningful f...
unit.R- domain = NA)
unit.R- if (.Generic == "*")
unit.R- # can only multiply a unit by a scalar
Only one operand may be a unit
unit.R- # can only multiply a unit by a scalar
unit.R- if (nchar(.Method[1])) {
unit.R- if (nchar(.Method[2]))
unit.R: stop("Only one operand may be a unit")
unit.R- else if (is.numeric(e2))
unit.R- # NOTE that we always put the scalar first
unit.R- # Use as.numeric to force e2 to be REAL
Non-unit operand must be numeric
unit.R- # Use as.numeric to force e2 to be REAL
unit.R- unit.arithmetic(.Generic, as.numeric(e2),...
unit.R- else
unit.R: stop("Non-unit operand must be numeric")
unit.R- } else {
unit.R- if (is.numeric(e1))
unit.R- # Use as.numeric to force e1 to be REAL
unit.R- unit.arithmetic(.Generic, as.numeric(e1),...
unit.R- else
unit.R: stop("Non-unit operand must be numeric")
unit.R- }
unit.R- else
unit.R- # Check that both arguments are units
Both operands must be units
unit.R- if (nchar(.Method[1]) && nchar(.Method[2]))
unit.R- unit.arithmetic(.Generic, e1, e2)
unit.R- else
unit.R: stop("Both operands must be units")
unit.R-}
unit.R-
unit.R-## <FIXME>
'Summary' function '%s' not meaningful for units
unit.R- x <- unit.c(...)
unit.R- ok <- switch(.Generic, "max"=TRUE, "min"=TRUE, ...
unit.R- if (!ok)
unit.R: stop(gettextf("'Summary' function '%s' not me...
unit.R- .Generic), domain = NA)
unit.R- unit.arithmetic(.Generic, x)
unit.R-}
Zero arguments where at least one expected
unit.R- x <- list(...)
unit.R- numargs <- length(x)
unit.R- if (numargs == 0)
unit.R: stop("Zero arguments where at least one expec...
unit.R- # how long will the result be?
unit.R- maxlength <- 0
unit.R- for (i in 1:numargs)
--
unit.R- x <- list(...)
unit.R- numargs <- length(x)
unit.R- if (numargs == 0)
unit.R: stop("Zero arguments where at least one expec...
unit.R- # how long will the result be?
unit.R- maxlength <- 0
unit.R- for (i in 1:numargs)
Index out of bounds (unit subsetting)
unit.R- if (is.logical(index))
unit.R- index <- (1:this.length)[index]
unit.R- if (top && index > this.length)
unit.R: stop("Index out of bounds (unit subsetting)")
unit.R- cl <- class(x);
unit.R- units <- attr(x, "unit")
unit.R- valid.units <- attr(x, "valid.unit")
Index out of bounds (unit arithmetic subsetting)
unit.R- if (is.logical(index))
unit.R- index <- (1:this.length)[index]
unit.R- if (top && index > this.length)
unit.R: stop("Index out of bounds (unit arithmetic su...
unit.R- switch(x$fname,
unit.R- "+"="["(x$arg1, (index - 1) %% this.leng...
unit.R- "["(x$arg2, (index - 1) %% this.leng...
Index out of bounds (unit list subsetting)
unit.R- if (is.logical(index))
unit.R- index <- (1:this.length)[index]
unit.R- if (top && index > this.length)
unit.R: stop("Index out of bounds (unit list subsetti...
unit.R- cl <- class(x)
unit.R- result <- unclass(x)[(index - 1) %% this.length...
unit.R- class(result) <- cl
It is invalid to combine unit objects with other types
unit.R- length(x[[i]...
unit.R- }
unit.R- else
unit.R: stop("It is invalid to combine unit objec...
unit.R- unit(values, units, data=data)
unit.R- }
unit.R-}
'range' must be numeric
util.R-
util.R-grid.pretty <- function(range) {
util.R- if (!is.numeric(range))
util.R: stop("'range' must be numeric")
util.R- .Call("L_pretty", range, PACKAGE="grid")
util.R-}
util.R-
'x', 'y', 'width', and 'height' must all be units of len...
viewport.R- name) {
viewport.R- if (unit.length(x) > 1 || unit.length(y) > ...
viewport.R- unit.length(width) > 1 || unit.length(h...
viewport.R: stop("'x', 'y', 'width', and 'height' mus...
length 1")
viewport.R- if (!is.gpar(gp))
viewport.R- stop("Invalid graphics parameters")
viewport.R- if (!is.logical(clip))
Invalid graphics parameters
viewport.R- unit.length(width) > 1 || unit.length(h...
viewport.R- stop("'x', 'y', 'width', and 'height' mus...
length 1")
viewport.R- if (!is.gpar(gp))
viewport.R: stop("Invalid graphics parameters")
viewport.R- if (!is.logical(clip))
viewport.R- clip <- switch(as.character(clip),
viewport.R- on=TRUE,
Invalid 'clip' value
viewport.R- on=TRUE,
viewport.R- off=NA,
viewport.R- inherit=FALSE,
viewport.R: stop("Invalid 'clip' value...
viewport.R- if (!is.numeric(xscale) || length(xscale) !...
viewport.R- any(!is.finite(xscale)))
viewport.R- stop("Invalid 'xscale' in viewport")
Invalid 'xscale' in viewport
viewport.R- stop("Invalid 'clip' value...
viewport.R- if (!is.numeric(xscale) || length(xscale) !...
viewport.R- any(!is.finite(xscale)))
viewport.R: stop("Invalid 'xscale' in viewport")
viewport.R- if (!is.numeric(yscale) || length(yscale) !...
viewport.R- any(!is.finite(yscale)))
viewport.R- stop("Invalid 'yscale' in viewport")
Invalid 'yscale' in viewport
viewport.R- stop("Invalid 'xscale' in viewport")
viewport.R- if (!is.numeric(yscale) || length(yscale) !...
viewport.R- any(!is.finite(yscale)))
viewport.R: stop("Invalid 'yscale' in viewport")
viewport.R- if (!is.numeric(angle) || length(angle) != ...
viewport.R- !is.finite(angle))
viewport.R- stop("Invalid 'angle' in viewport")
Invalid 'angle' in viewport
viewport.R- stop("Invalid 'yscale' in viewport")
viewport.R- if (!is.numeric(angle) || length(angle) != ...
viewport.R- !is.finite(angle))
viewport.R: stop("Invalid 'angle' in viewport")
viewport.R- if (!(is.null(layout) || is.layout(layout)))
viewport.R- stop("Invalid 'layout' in viewport")
viewport.R- if (!is.null(layout.pos.row)) {
Invalid 'layout' in viewport
viewport.R- !is.finite(angle))
viewport.R- stop("Invalid 'angle' in viewport")
viewport.R- if (!(is.null(layout) || is.layout(layout)))
viewport.R: stop("Invalid 'layout' in viewport")
viewport.R- if (!is.null(layout.pos.row)) {
viewport.R- layout.pos.row <- as.integer(range(layout...
viewport.R- if (any(!is.finite(layout.pos.row)))
Invalid 'layout.pos.row' in viewport
viewport.R- if (!is.null(layout.pos.row)) {
viewport.R- layout.pos.row <- as.integer(range(layout...
viewport.R- if (any(!is.finite(layout.pos.row)))
viewport.R: stop("Invalid 'layout.pos.row' in viewp...
viewport.R- }
viewport.R- if (!is.null(layout.pos.col)) {
viewport.R- layout.pos.col <- as.integer(range(layout...
Invalid 'layout.pos.col' in viewport
viewport.R- if (!is.null(layout.pos.col)) {
viewport.R- layout.pos.col <- as.integer(range(layout...
viewport.R- if (any(!is.finite(layout.pos.col)))
viewport.R: stop("Invalid 'layout.pos.col' in viewp...
viewport.R- }
viewport.R- # If name is NULL then we give it a default
viewport.R- # Otherwise it should be a valid R name
Only viewports allowed in 'vpList'
viewport.R- class(vps) <- c("vpList", "viewport")
viewport.R- vps
viewport.R- } else {
viewport.R: stop("Only viewports allowed in 'vpList'")
viewport.R- }
viewport.R-}
viewport.R-
Only viewports allowed in 'vpStack'
viewport.R- class(vps) <- c("vpStack", "viewport")
viewport.R- vps
viewport.R- } else {
viewport.R: stop("Only viewports allowed in 'vpStack'")
viewport.R- }
viewport.R-}
viewport.R-
'parent' must be a viewport and 'children' must be a 'vp...
viewport.R- class(tree) <- c("vpTree", "viewport")
viewport.R- tree
viewport.R- } else {
viewport.R: stop("'parent' must be a viewport and 'ch...
viewport.R- }
viewport.R-}
viewport.R-
A viewport path must contain at least one viewport name
viewport.R-vpPathFromVector <- function(names) {
viewport.R- n <- length(names)
viewport.R- if (n < 1)
viewport.R: stop("A viewport path must contain at lea...
viewport.R- if (!all(is.character(names)))
viewport.R- stop("Invalid viewport name(s)")
viewport.R- path <- list(path=if (n==1) NULL else
Invalid viewport name(s)
viewport.R- if (n < 1)
viewport.R- stop("A viewport path must contain at lea...
viewport.R- if (!all(is.character(names)))
viewport.R: stop("Invalid viewport name(s)")
viewport.R- path <- list(path=if (n==1) NULL else
viewport.R- paste(names[1:(n-1)], collapse...
viewport.R- name=names[n],
Must specify at least one of 'x' or 'xscale'
viewport.R- extension <- rep(extension, length.out=2)
viewport.R- if (is.null(xscale)) {
viewport.R- if (is.null(xData))
viewport.R: stop("Must specify at least one of 'x' ...
viewport.R- xscale <- range(xData) + c(-1, 1)*diff(ra...
viewport.R- }
viewport.R- if (is.null(yscale)) {
Must specify at least one of 'y' or 'yscale'
viewport.R- }
viewport.R- if (is.null(yscale)) {
viewport.R- if (is.null(yData))
viewport.R: stop("Must specify at least one of 'y' ...
viewport.R- yscale <- range(yData) + c(-1, 1)*diff(ra...
viewport.R- }
viewport.R- viewport(xscale=xscale, yscale=yscale, ...)
終了行:
COLOR(blue){SIZE(18){R-grid.pot の和訳とチェックのページ}}
以下は R-grid.pot の素(粗)訳です．元ファイルと各メッセー...
を取り出したファイルを添付します．~
舟尾 (第一稿 2005.03.27)
#contents
-implemented, unimplimented の訳が推奨となっている箇所が...
-「特定」も「指定」でしょうね -- &new{2005-03-27 (日) 17...
-間瀬先生，ソースの添付をありがとうございます．ソースと照...
また，多数ご指摘いただきましてありがとうございます．ある...
-多数の貴重なご意見、本当にありがとうございました。私自身...
#comment
msgid ""
msgstr ""
"Project-Id-Version: R 2.1.0\n"
"Report-Msgid-Bugs-To: bugs@r-project.org\n"
"POT-Creation-Date: 2005-03-08 07:39\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=CHARSET\n"
"Content-Transfer-Encoding: 8bit\n"
* 1-20
msgid "Invalid 'at' location in 'axis'"
msgstr "'axis'中の 'at' のロケーション(location)が不正で...
msgid "Invalid to specify axis labels when 'at' is NULL"
msgstr "'at' が NULL である場合，axis ラベルを特定するの...
msgid "'labels' and 'at' locations must have same length"
msgstr "'labels' と 'at' のロケーション(location)は同じ...
msgid "Invalid 'edit' information"
msgstr "不正な 'edit' 情報です"
msgid "'gEditList' can only contain 'gEdit' objects"
msgstr "'gEditList' には 'gEdit' オブジェクトしか含める...
msgid "Invalid 'frame'"
msgstr "不正な 'frame' です"
msgid "Invalid 'grob'"
msgstr "不正な 'grob' です"
msgid "Invalid 'row' and/or 'col' (no such cell in frame...
msgstr "不正な 'row' かつ/または 'col' です（frame layou...
msgid "'col' can only be a range of existing columns"
msgstr "'col' は存在する列の範囲しかとり得ません"
msgid "Invalid 'col' specification"
msgstr "不正な 'col' の指定です"
msgid "'row' can only be a range of existing rows"
msgstr "'row' は存在する行の範囲しかとり得ません"
msgid "Invalid 'row' specification"
msgstr "不正な 'row' の指定です"
msgid "Cannot specify more than one of 'side=[\"left\", ...
'col.before', or 'col.after'"
msgstr "'side=[\"left\", \"right\"]', 'col', 'col.before...
のうち 1 つ以上を特定することが出来ません"
msgid "Must specify exactly one of 'side=[\"top\", \"bot...
'row.before', or 'row.after'"
msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before...
のうち 1 つを正確に特定しなければいけません"
msgid "gpar element '%s' must not be length 0"
msgstr "gpar の要素 '%s' は長さ 0 にしてはいけません"
msgid "'gamma' gpar is deprecated"
msgstr "'gamma' gpar は廃止予定です"
msgid "Invalid 'linemitre' value"
msgstr "不正な 'linemitre' 値です"
msgid "Invalid 'alpha' value"
msgstr "不正な 'alpha' 値です"
msgid "Must specify only one of 'font' and 'fontface'"
msgstr "'font' または 'fontface' の 1 つのみを特定しなけ...
msgid "Invalid font face"
msgstr "不正なフォントの書体です"
-"'labels' と 'at' のロケーション(location)は同じ長さでな...
-msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before...
#comment
* 21-40
msgid "Argument must be a 'gpar' object"
msgstr "引数は 'gpar' オブジェクトでなければなりません"
msgid "Must specify only valid 'gpar' names"
msgstr "有効な 'gpar' の名前のみを特定しなければいけませ...
msgid "Invalid display list element"
msgstr "不正なディスプレイリストの要素です"
msgid "grob(s) overwritten (grab WILL not be faithful; t...
msgstr "grob(s) が上書きされました（おそらく grab は信用...
msgid "viewport overwritten (grab MAY not be faithful)"
msgstr "viewport が上書きされました（おそらく grab は信...
msgid "grob pushed viewports and did not pop/up them (gr...
msgstr "grob が viewports に push され，viewports は pop...
（おそらく grab は信用できるものではありません）"
msgid "Only valid to push viewports"
msgstr "viewports を push することだけが有効です"
msgid "Must specify at least one viewport"
msgstr "少なくとも 1 つの viewport を特定しなければいけ...
msgid "Viewport '%s' was not found"
msgstr "Viewport '%s' が見つかりません"
msgid "Must pop at least one viewport"
msgstr "少なくとも 1 つの viewport を pop しなければいけ...
msgid "Must navigate up at least one viewport"
msgstr "少なくとも 1 つの viewport を navigate up しなけ...
msgid "The vp argument is deprecated"
msgstr "引数 vp は廃止予定です"
msgid "Invalid 'ask' value"
msgstr "不正な 'ask' 値です"
msgid "Invalid object inserted on the display list"
msgstr "ディスプレイリスト上に不正なオブジェクトが挿入さ...
msgid "Invalid 'vp' slot"
msgstr "不正な 'vp' スロットです"
msgid "Invalid 'gp' slot"
msgstr "不正な 'gp' スロットです"
msgid "Invalid 'grob' class"
msgstr "不正な 'grob' クラスです"
msgid "grid.grob() is deprecated; please use grob() inst...
msgstr "grid.grob() は廃止予定です; 代わりに grob() を使...
msgid "A 'grob' path must contain at least one 'grob' na...
msgstr "'grob' のパスは少なくとも 1 つの 'grob' の名前を...
msgid "Invalid 'grob' name(s)"
msgstr "不正な 'grob' の名前です"
#comment
* 41-60
msgid "Only 'grobs' allowed in 'gList'"
msgstr "'grobs' は 'gList' 中でのみ許されます"
msgid "Invalid element to add to 'gList'"
msgstr "'gList' に不正な要素が加えられました"
msgid "Can only set 'children' for a 'gTree'"
msgstr "'gTree' には 'children' しかセットできません"
msgid "'children' must be a 'gList'"
msgstr "'children' は 'gList' でなければなりません"
msgid "It is only valid to get 'children' from a 'gTree'"
msgstr "'children' は 'gTree' からしか得ることが出来ませ...
msgid "Invalid 'gTree' class"
msgstr "不正な 'gTree' クラスです"
msgid "'allDevices' not yet implemented"
msgstr "'allDevices' はまだ推奨されていません"
msgid "Invalid 'gPath'"
msgstr "不正な 'gPath' です"
msgid "Invalid 'grep' value"
msgstr "不正な 'grep' 値です"
msgid "It is only valid to get a child from a 'gTree'"
msgstr "child は 'gTree' からしか得ることが出来ません"
msgid "'gPath' does not specify a valid child"
msgstr "'gPath' は有効な child を特定することが出来ません"
msgid "It is only valid to set a child of a 'gTree'"
msgstr "'gTree' の child をセットすることだけが有効です"
msgid "It is only valid to set a 'grob' as child of a 'g...
msgstr "'grob' を 'gTree' の child としてセットすること...
msgid "New 'grob' name (%s) does not match 'gPath' (%s)"
msgstr "新しい 'grob' 名(%s)は 'gPath'(%s) に合致しません"
msgid "It is only valid to add a 'grob' to a 'gTree'"
msgstr "'grob' を 'gTree' に加えることだけが有効です"
msgid "It is only valid to add a child to a 'gTree'"
msgstr "child を 'gTree' に加えることだけが有効です"
msgid "It is only valid to remove a child from a 'gTree'"
msgstr "child を 'gTree' から取り払うことだけが有効です"
msgid "It is only valid to edit a child of a 'gTree'"
msgstr "'gTree' の child を編集することだけが有効です"
msgid "It is invalid to directly edit the 'children' or ...
msgstr "'children' または 'childrenOrder' のスロットを直...
msgid "Invalid 'result'"
msgstr "不正な 'result' です"
-"'children' または 'childrenOrder' のスロットを直接編集...
-"'gPath' は有効な child を特定することが出来ません" => "...
-"'grobs' は 'gList' 中でのみ許されます" => "''gList' 中...
#comment
* 61-80
msgid "The new 'grob' must have the same name as the old...
msgstr "新しい 'grob' は古い 'grob' と同じ名前でなければ...
msgid "Slot '%s' not found"
msgstr "スロット '%s' が見つかりません"
msgid "'gPath' (%s) not found"
msgstr "'gPath'(%s) が見つかりません"
msgid "gPath (%s) not found"
msgstr "gPath(%s) が見つかりません"
msgid "Grob '%s' not found"
msgstr "Grob '%s' が見つかりません"
msgid "Invalid element in the display list"
msgstr "ディスプレイリストの中に不正な要素があります"
msgid "This function is redundant and will disappear in ...
msgstr "この関数は余分で，将来のバージョンの中で消えるで...
msgid "'l' must be a layout"
msgstr "'l' は layout でなければなりません"
msgid "'pch' and 'labels' not the same length"
msgstr "'pch' と 'labels' は同じ長さでなければなりません"
msgid "'hgap' must be single unit"
msgstr "'hgap' は一つの単位(unit)でなければなりません"
msgid "'vgap' must be single unit"
msgstr "'vgap' は一つの単位(unit)でなければなりません"
msgid "Invalid justification"
msgstr "不正な正当化(justification)です ???????????"
msgid "Invalid horizontal justification"
msgstr "不正な水平の正当化(horizontal justification)です...
msgid "Invalid vertical justification"
msgstr "不正な垂直の正当化(horizontal justification)です...
msgid "'respect' must be logical or an 'nrow' by 'ncol' ...
msgstr "'respect' は論理値か 'ncol' 行列による 'nrow' で...
msgid "Invalid 'origin'"
msgstr "不正な 'origin' です"
msgid "'x' and 'y' must be units"
msgstr "'x' と 'y' は単位(units)でなければなりません"
msgid "'x' and 'y' must have length 1"
msgstr "'x' と 'y' は長さ 1 でなければならない"
msgid "'x0', 'y0', 'x1', and 'y1' must be units"
msgstr "'x0', 'y0', 'x1', 'y1' は単位(units)でなければな...
msgid "'x' and 'y' must be units or NULL"
msgstr "'x' と 'y' は単位(units)または NULL でなければな...
-justification とはテキスト(行)を見栄えのよい表示のために...
-"'respect' は論理値か 'ncol' 行列による 'nrow' でなけれ...
-ソースを見ると justification とは （何の？） right,left,...
-"この関数は余分で，将来のバージョンの中で消えるでしょう"...
-"'pch' と 'labels' は同じ長さでなければなりません" => "'...
-"'pch' と 'labels' は同じ長さでなければなりません" => "'...
-ご意見は基本的に賛成ですが、意訳が誤訳になっていないとい...
-意訳は某出版社のような「超訳」ではないですから，意訳＝い...
-"'pch' と 'labels' は同じ長さでなければなりません" => 指...
#comment
* 81-100
msgid "'length' must be a unit object"
msgstr "'length' は単位(units)オブジェクトでなければなり...
msgid "Invalid 'ends' or 'type' argument"
msgstr "不正な 'ends' 引数か 'type' 引数です"
msgid "Corrupt 'arrows' object"
msgstr "誤った 'arrows' オブジェクトです"
msgid "The 'grob' argument must be a 'line.to', 'lines',...
msgstr "'grob' 引数は 'line.to', 'lines', 'segments' の...
でなければなりません"
msgid "It is invalid to specify both 'id' and 'id.lengths"
msgstr "'id' と 'id.lengths' の両方を特定することは出来...
msgid "'x' and 'y' must be same length"
msgstr "'x' と 'y' は同じ長さでなければなりません"
msgid "'x' and 'y' and 'id' must all be same length"
msgstr "'x', 'y', 'id' は全て同じ長さでなければなりません"
msgid "'x' and 'y' and 'id.lengths' must specify same ov...
msgstr "'x', 'y', 'id.lengths' は全て同じ長さを特定しな...
msgid "'x', 'y', and 'r' must be units"
msgstr "'x', 'y', 'r' は全て単位(units)でなければなりま...
msgid "'x', 'y', 'width', and 'height' must be units"
msgstr "'x', 'y', 'width', 'height' は全て単位(units)で...
msgid "Invalid 'rot' value"
msgstr "不正な 'rot' 値でなければなりません"
msgid "zero-length 'pch'"
msgstr "長さ 0 の 'pch' です"
msgid "'x', 'y' and 'size' must be units"
msgstr "'x', 'y', 'size' は全て単位(units)でなければなり...
msgid "'x' and 'y' must be unit objects and have the sam...
msgstr "'x' と 'y' は単位(units)でなければならず，同じ長...
msgid "'x' must be numeric"
msgstr "'x' は数値でなければなりません"
msgid "'x' and 'units' must have length > 0"
msgstr "'x' と 'units' は 0 より大きい長さでなければなり...
msgid "'x' argument must be a unit object"
msgstr "引数 'x' は単位(units)オブジェクトでなければなり...
msgid "Invalid 'axis' or 'type'"
msgstr "不正な 'axis' か 'type' です"
msgid "No string supplied for 'strwidth' unit"
msgstr "'strwidth' 単位(units)を与える文字列がありません"
msgid "No string supplied for 'strheight' unit"
msgstr "'strheight' 単位(units)を与える文字列がありません"
-"誤った 'arrows' オブジェクトです" => "混乱した 'arrows'...
-msgstr "'grob' 引数は 'line.to', 'lines', 'segments' の...
-corrupt は，コンピュータ用語では〈プログラム･データが〉...
-"不正な 'rot' 値でなければなりません" → "不正な 'rot' ...
#comment
* 101-120
msgid "No 'grob' supplied for 'grobwidth' unit"
msgstr "'grobwidth' 単位(units)を与える 'grob' がありま...
msgid "'gPath' must have depth 1 in 'grobwidth/height' u...
msgstr "'gPath' は 'grobwidth/height' 単位(units)中では...
msgid "No 'grob' supplied for 'grobheight' unit"
msgstr "'grobheight' 単位(units)を与える 'grob' がありま...
msgid "Operator '%s' not meaningful for units"
msgstr "演算子 '%s' は単位(units)として意味をなしません"
msgid "Only one operand may be a unit"
msgstr "1 つのオペランド(operand)のみが単位(units)となり...
msgid "Non-unit operand must be numeric"
msgstr "単位ではないオペランド(operand)は数値でなければ...
msgid "Both operands must be units"
msgstr "オペランド(operand)は両方とも単位(units)でなけれ...
msgid "'Summary' function '%s' not meaningful for units"
msgstr "'Summary' 関数 '%s' は単位(units)として意味をな...
msgid "Zero arguments where at least one expected"
msgstr "引数が 0 個ですが，少なくとも 1 つの引数が必要で...
msgid "Index out of bounds (unit subsetting)"
msgstr "添え字が範囲を超えています（単位(unit)の部分集合...
msgid "Index out of bounds (unit arithmetic subsetting)"
msgstr "添え字が範囲を超えています（単位(unit)計算の部分...
msgid "Index out of bounds (unit list subsetting)"
msgstr "添え字が範囲を超えています（単位(unit)リストの部...
msgid "It is invalid to combine unit objects with other ...
msgstr "単位(unit)オブジェクトとそれ以外の型のオブジェク...
msgid "'range' must be numeric"
msgstr "'range' は数値でなければなりません"
msgid "'x', 'y', 'width', and 'height' must all be units...
msgstr "'x', 'y', 'width', 'height' は全て長さ 1 の単位(...
msgid "Invalid graphics parameters"
msgstr "不正なグラフィックスパラメータです"
msgid "Invalid 'clip' value"
msgstr "viewport 中の 'clip' が不正です"
msgid "Invalid 'xscale' in viewport"
msgstr "viewport 中の 'xscale' が不正です"
msgid "Invalid 'yscale' in viewport"
msgstr "viewport 中の 'yscale' が不正です"
msgid "Invalid 'angle' in viewport"
msgstr "viewport 中の 'angle' が不正です"
-"不正な 'rot' 値でなければなりません" => "不正な 'rot' ...
-"1 つのオペランド(operand)のみが単位(units)となります" =...
#comment
* 121-140
msgid "Invalid 'layout' in viewport"
msgstr "viewport 中の 'layout' が不正です"
msgid "Invalid 'layout.pos.row' in viewport"
msgstr "viewport 中の 'layout.pos.row' が不正です"
msgid "Invalid 'layout.pos.col' in viewport"
msgstr "viewport 中の 'layout.pos.col' が不正です"
msgid "Only viewports allowed in 'vpList'"
msgstr "viewports は 'vpList' 中でのみ許されます"
msgid "Only viewports allowed in 'vpStack'"
msgstr "viewports は 'vpStack' 中でのみ許されます"
msgid "'parent' must be a viewport and 'children' must b...
msgstr "'parent' は viewport でなければならず，'children...
msgid "A viewport path must contain at least one viewpor...
msgstr "viewport のパスは少なくとも一つの viewport 名を...
msgid "Invalid viewport name(s)"
msgstr "不正な viewport 名です"
msgid "Must specify at least one of 'x' or 'xscale'"
msgstr "'x' or 'xscale' のうち少なくとも一つを特定しなけ...
msgid "Must specify at least one of 'y' or 'yscale'"
msgstr "'y' か 'yscale' のうち少なくとも一つを特定しなけ...
#comment
* ソース
Invalid 'at' location in 'axis'
components.R- x$at <- as.numeric(x$at)
components.R- if (length(x$at) < 1 ||
components.R- !is.finite(x$at))
components.R: stop("Invalid 'at' location in 'axis'")
components.R- }
components.R- if (!is.logical(x$label)) {
components.R- # labels specified
Invalid to specify axis labels when 'at' is NULL
components.R- # labels specified
components.R- # Can only spec labels if at is not NULL
components.R- if (is.null(x$at))
components.R: stop("Invalid to specify axis labels ...
components.R- # Must be either language object or str...
components.R- if (!is.language(x$label))
components.R- x$label <- as.character(x$label)
'labels' and 'at' locations must have same length
components.R- x$label <- as.character(x$label)
components.R- # Must be same number of labels as "at"...
components.R- if (length(x$label) != length(x$at))
components.R: stop("'labels' and 'at' locations mus...
components.R- }
components.R- x$main <- as.logical(x$main)
components.R- x
Invalid 'edit' information
edit.R- x
edit.R- } else {
edit.R- if (!is.gEdit(edit))
edit.R: stop("Invalid 'edit' information")
edit.R- # Intended to handle whether edit has gPath s...
edit.R- newx <- do.call("editGrob", c(list(x), edit))
edit.R- # If edit was specified for non-existent chil...
--
edit.R- applyEdit(x, edits)
edit.R- else {
edit.R- if (!inherits(edits, "gEditList"))
edit.R: stop("Invalid 'edit' information")
edit.R- for (i in edits)
edit.R- x <- applyEdits(x, i)
edit.R- x
'gEditList' can only contain 'gEdit' objects
edit.R-gEditList <- function(...) {
edit.R- edits <- list(...)
edit.R- if (!all(sapply(edits, is.gEdit)))
edit.R: stop("'gEditList' can only contain 'gEdit' ob...
edit.R- class(edits) <- "gEditList"
edit.R- edits
edit.R-}
Invalid 'frame'
frames.R-placeGrob <- function(frame, grob,
frames.R- row=NULL, col=NULL) {
frames.R- if (!inherits(frame, "frame"))
frames.R: stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R- stop("Invalid 'grob'")
frames.R- dim <- frameDim(frame)
--
frames.R- force.width=FALSE, force.h...
frames.R- border=NULL, dynamic=FALSE...
frames.R- if (!inherits(frame, "frame"))
frames.R: stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R- stop("Invalid 'grob'")
frames.R- # col/row can be given as a range, but I only...
Invalid 'grob'
frames.R- if (!inherits(frame, "frame"))
frames.R- stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R: stop("Invalid 'grob'")
frames.R- dim <- frameDim(frame)
frames.R- if (is.null(row))
frames.R- row <- c(1, dim[1])
--
frames.R- if (!inherits(frame, "frame"))
frames.R- stop("Invalid 'frame'")
frames.R- if (!is.grob(grob))
frames.R: stop("Invalid 'grob'")
frames.R- # col/row can be given as a range, but I only...
frames.R- # about the min and max
frames.R- if (!is.null(col) & length(col) > 1) {
--
grob.R- g <- list(..., name=name, gp=gp, vp=vp)
grob.R- if (!is.null(cl) &&
grob.R- !is.character(cl))
grob.R: stop("Invalid 'grob' class")
grob.R- class(g) <- c(cl, "grob", "gDesc")
grob.R- validGrob(g)
grob.R-}
--
grob.R- if (n < 1)
grob.R- stop("A 'grob' path must contain at least one...
grob.R- if (!all(is.character(names)))
grob.R: stop("Invalid 'grob' name(s)")
grob.R- path <- list(path=if (n==1) NULL else
grob.R- paste(names[1:(n-1)], collapse=.gr...
grob.R- name=names[n],
Invalid 'row' and/or 'col' (no such cell in frame layout)
frames.R- col <- rep(col, 2)
frames.R- if (min(row) < 1 || max(row) > dim[1] ||
frames.R- min(col) < 1 || max(col) > dim[2])
frames.R: stop("Invalid 'row' and/or 'col' (no such c...
frames.R- cgrob <- cellGrob(col, row, NULL, grob, FALSE,
frames.R- cellViewport(col, row, NULL))
frames.R- addGrob(frame, cgrob)
'col' can only be a range of existing columns
frames.R- # It is an error to specify a range for col...
frames.R- if (length(col) == 2)
frames.R- if (col[1] < 1 || col[2] > ncol)
frames.R: stop("'col' can only be a range of exis...
frames.R- else
frames.R- result <- FALSE
frames.R- # It is also an error to specify a single c...
Invalid 'col' specification
frames.R- # It is also an error to specify a single c...
frames.R- else
frames.R- if (col < 1 || col > ncol + 1)
frames.R: stop("Invalid 'col' specification")
frames.R- else
frames.R- result <- col == ncol+1
frames.R- }
'row' can only be a range of existing rows
frames.R- # It is an error to specify a range for row...
frames.R- if (length(row) == 2)
frames.R- if (row[1] < 1 || row[2] > nrow)
frames.R: stop("'row' can only be a range of exis...
frames.R- else
frames.R- result <- FALSE
frames.R- # It is also an error to specify a single r...
Invalid 'row' specification
frames.R- # It is also an error to specify a single r...
frames.R- else
frames.R- if (row < 1 || row > nrow + 1)
frames.R: stop("Invalid 'row' specification")
frames.R- else
frames.R- result <- row == nrow+1
frames.R- }
Cannot specify more than one of 'side=["left", "right"]'...
Must specify exactly one of 'side=["top", "bottom"]', 'r...
or 'row.after'
gpar element '%s' must not be length 0
gpar.R- # Check a (non-NULL) gpar is not of length 0
gpar.R- check.length <- function(gparname) {
gpar.R- if (length(gpars[[gparname]]) == 0)
gpar.R: stop(gettextf("gpar element '%s' must not b...
gpar.R- domain = NA)
gpar.R- }
gpar.R- # Check a gpar is numeric and not NULL
'gamma' gpar is deprecated
gpar.R- numnotnull("lex")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names(gpars))
gpar.R: warning("'gamma' gpar is deprecated")
gpar.R- numnotnull("gamma")
gpar.R- numnotnull("alpha")
gpar.R- # col and fill are converted in C code
--
gpar.R- temp <- grid.Call("L_getGPar")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names(gp))
gpar.R: warning("'gamma' gpar is deprecated")
gpar.R- # Special case "cex" (make it cumulative)
gpar.R- if (match("cex", names(gp), nomatch=0))
gpar.R- tempcex <- temp$cex * gp$cex
--
gpar.R- stop("Must specify only valid 'gpar' names")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names)
gpar.R: warning("'gamma' gpar is deprecated")
gpar.R- result <- grid.Call("L_getGPar")[names]
gpar.R- }
gpar.R- class(result) <- "gpar"
Invalid 'linemitre' value
gpar.R- numnotnull("linemitre")
gpar.R- if (!is.na(match("linemitre", names(gpars)))) {
gpar.R- if (any(gpars$linemitre < 1))
gpar.R: stop("Invalid 'linemitre' value")
gpar.R- }
gpar.R- # alpha should be 0 to 1
gpar.R- if (!is.na(match("alpha", names(gpars)))) {
Invalid 'alpha' value
gpar.R- # alpha should be 0 to 1
gpar.R- if (!is.na(match("alpha", names(gpars)))) {
gpar.R- if (any(gpars$alpha < 0 || gpars$alpha > 1))
gpar.R: stop("Invalid 'alpha' value")
gpar.R- }
gpar.R- # font should be integer and not NULL
gpar.R- if (!is.na(match("font", names(gpars)))) {
Must specify only one of 'font' and 'fontface'
gpar.R- # Illegal to specify both font and fontface
gpar.R- if (!is.na(match("fontface", names(gpars)))) {
gpar.R- if (!is.na(match("font", names(gpars))))
gpar.R: stop("Must specify only one of 'font' and '...
gpar.R- if (is.null(gpars$fontface))
gpar.R- gpars$font <- NULL
gpar.R- else {
Invalid font face
gpar.R- cyrillic=5,
gpar.R- cyrillic.oblique=6,
gpar.R- EUC=7,
gpar.R: stop("Invalid fon...
gpar.R- gpars$font <- as.integer(temp.num)
gpar.R- }
gpar.R- }
Argument must be a 'gpar' object
gpar.R-
gpar.R-set.gpar <- function(gp) {
gpar.R- if (!is.gpar(gp))
gpar.R: stop("Argument must be a 'gpar' object")
gpar.R- temp <- grid.Call("L_getGPar")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names(gp))
Must specify only valid 'gpar' names
gpar.R- else {
gpar.R- if (!is.character(names) ||
gpar.R- !all(names %in% .grid.gpar.names))
gpar.R: stop("Must specify only valid 'gpar' names")
gpar.R- # gamma deprecated
gpar.R- if ("gamma" %in% names)
gpar.R- warning("'gamma' gpar is deprecated")
Invalid display list element
grab.R-
grab.R-wrap.default <- function(x) {
grab.R- if (!is.null(x))
grab.R: stop("Invalid display list element")
grab.R- NULL
grab.R-}
grab.R-
grob(s) overwritten (grab WILL not be faithful; try 'wra...
grab.R- names <- getNames()
grab.R- # Check for overwriting existing grob
grab.R- if (length(unique(names)) != length(names))
grab.R: warning("grob(s) overwritten (grab WILL n...
try 'wrap=TRUE')")
grab.R- }
grab.R- grid.newpage(recording=FALSE)
grab.R- # Start at 2 because first element is viewpor...
viewport overwritten (grab MAY not be faithful)
grab.R- # with existing viewport name
grab.R- if (inherits(tempvp, "viewport") &&
grab.R- vpExists(tempvp))
grab.R: warning("viewport overwritten (grab...
grab.R- }
grab.R- if (!is.null(tempvp))
grab.R- tempdepth <- depth(tempvp)
--
grab.R- # Check to see if about to push a viewp...
grab.R- # with existing viewport name
grab.R- if (vpExists(elt))
grab.R: warning("viewport overwritten (grab M...
grab.R- grid.draw(elt, recording=FALSE)
grab.R- ###########
grab.R- # grabPop
grob pushed viewports and did not pop/up them (grab MAY ...
grab.R- pathSame = FALSE
grab.R- }
grab.R- if (!pathSame)
grab.R: warning("grob pushed viewports and ...
(grab MAY not be faithful)")
grab.R- }
grab.R- elt$vp <- drawPath
grab.R- if (!is.null(tempvp))
Only valid to push viewports
grid.R-}
grid.R-
grid.R-push.vp.default <- function(vp, recording) {
grid.R: stop("Only valid to push viewports")
grid.R-}
grid.R-
grid.R-push.vp.viewport <- function(vp, recording) {
Must specify at least one viewport
grid.R-
grid.R-pushViewport <- function(..., recording=TRUE) {
grid.R- if (missing(...))
grid.R: stop("Must specify at least one viewport")
grid.R- else {
grid.R- vps <- list(...)
grid.R- lapply(vps, push.vp, recording)
Viewport '%s' was not found
grid.R- record(name)
grid.R- }
grid.R- } else {
grid.R: stop(gettextf("Viewport '%s' was not found", ...
grid.R- domain = NA)
grid.R- }
grid.R- invisible(result)
Must pop at least one viewport
grid.R-
grid.R-popViewport <- function(n=1, recording=TRUE) {
grid.R- if (n < 0)
grid.R: stop("Must pop at least one viewport")
grid.R- if (n == 0)
grid.R- n <- vpDepth()
grid.R- if (n > 0) {
Must navigate up at least one viewport
grid.R-# simply navigate up, leaving pushed viewports in...
grid.R-upViewport <- function(n=1, recording=TRUE) {
grid.R- if (n < 0)
grid.R: stop("Must navigate up at least one viewport")
grid.R- if (n == 0) {
grid.R- n <- vpDepth()
grid.R- upPath <- current.vpPath()
The vp argument is deprecated
grid.R- # ever see normal viewports, so convert.
grid.R- vpFromPushedvp(grid.Call("L_currentViewport"))
grid.R- else {
grid.R: warning("The vp argument is deprecated")
grid.R- vp
grid.R- }
grid.R-}
Invalid 'ask' value
grid.R- old.prompt <- .Call("L_getAsk")
grid.R- if (!missing(ask)) {
grid.R- if (!is.logical(ask))
grid.R: stop("Invalid 'ask' value")
grid.R- .Call("L_setAsk", ask)
grid.R- }
grid.R- old.prompt
Invalid object inserted on the display list
grid.R-# gets put on the display list
grid.R-record.default <- function(x) {
grid.R- if (!is.numeric(x))
grid.R: stop("Invalid object inserted on the display ...
grid.R- grid.Call("L_setDLelt", x)
grid.R- inc.display.list()
grid.R-}
Invalid 'vp' slot
grob.R- if (!inherits(vp, "viewport") &&
grob.R- !inherits(vp, "vpPath") &&
grob.R- !is.character(vp))
grob.R: stop("Invalid 'vp' slot")
grob.R- # For interactive use, allow user to specify
grob.R- # vpPath directly (i.e., w/o calling vpPath)
grob.R- if (is.character(vp))
Invalid 'gp' slot
grob.R- # gp must be a gpar
grob.R- if (!is.null(gp))
grob.R- if (!inherits(gp, "gpar"))
grob.R: stop("Invalid 'gp' slot")
grob.R-}
grob.R-
grob.R-validDetails <- function(x) {
Invalid 'grob' class
grob.R- g <- list(..., name=name, gp=gp, vp=vp)
grob.R- if (!is.null(cl) &&
grob.R- !is.character(cl))
grob.R: stop("Invalid 'grob' class")
grob.R- class(g) <- c(cl, "grob", "gDesc")
grob.R- validGrob(g)
grob.R-}
grid.grob() is deprecated; please use grob() instead
grob.R-}
grob.R-
grob.R-grid.grob <- function(list.struct, cl=NULL, draw=...
grob.R: warning("grid.grob() is deprecated; please use ...
grob.R- g <- do.call("grob", c(list.struct, cl=cl))
grob.R- if (draw)
grob.R- grid.draw(g)
A 'grob' path must contain at least one 'grob' name
grob.R-gPathFromVector <- function(names) {
grob.R- n <- length(names)
grob.R- if (n < 1)
grob.R: stop("A 'grob' path must contain at least one...
grob.R- if (!all(is.character(names)))
grob.R- stop("Invalid 'grob' name(s)")
grob.R- path <- list(path=if (n==1) NULL else
Invalid 'grob' name(s)
grob.R- if (n < 1)
grob.R- stop("A 'grob' path must contain at least one...
grob.R- if (!all(is.character(names)))
grob.R: stop("Invalid 'grob' name(s)")
grob.R- path <- list(path=if (n==1) NULL else
grob.R- paste(names[1:(n-1)], collapse=.gr...
grob.R- name=names[n],
Only 'grobs' allowed in 'gList'
grob.R- class(gl) <- c("gList")
grob.R- return(gl)
grob.R- } else {
grob.R: stop("Only 'grobs' allowed in 'gList'")
grob.R- }
grob.R-}
grob.R-
Invalid element to add to 'gList'
grob.R- if (is.null(x))
grob.R- gList
grob.R- else
grob.R: stop("Invalid element to add to 'gList'")
grob.R-}
grob.R-
grob.R-addToGList.grob <- function(x, gList) {
Can only set 'children' for a 'gTree'
grob.R-
grob.R-setChildren <- function(x, children) {
grob.R- if (!inherits(x, "gTree"))
grob.R: stop("Can only set 'children' for a 'gTree'")
grob.R- if (!is.null(children) &&
grob.R- !inherits(children, "gList"))
grob.R- stop("'children' must be a 'gList'")
'children' must be a 'gList'
grob.R- stop("Can only set 'children' for a 'gTree'")
grob.R- if (!is.null(children) &&
grob.R- !inherits(children, "gList"))
grob.R: stop("'children' must be a 'gList'")
grob.R- # Thin out NULL children
grob.R- if (!is.null(children)) {
grob.R- cl <- class(children)
It is only valid to get 'children' from a 'gTree'
grob.R-
grob.R-childNames <- function(gTree) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to get 'children' from...
grob.R- gTree$childrenOrder
grob.R-}
grob.R-
Invalid 'gTree' class
grob.R- gt <- list(..., name=name, gp=gp, vp=vp)
grob.R- if (!is.null(cl) &&
grob.R- !is.character(cl))
grob.R: stop("Invalid 'gTree' class")
grob.R- class(gt) <- c(cl, "gTree", "grob", "gDesc")
grob.R- gt <- validGrob(gt, childrenvp)
grob.R- gt <- setChildren(gt, children)
'allDevices' not yet implemented
grob.R-grid.get <- function(gPath, strict=FALSE, grep=FA...
grob.R- allDevices=FALSE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R- grep=FALSE, global=FALSE, al...
grob.R- redraw=TRUE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R- grep=FALSE, global=FALSE,...
grob.R- redraw=TRUE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R- grep=FALSE, global=FALSE, a...
grob.R- redraw=TRUE) {
grob.R- if (allDevices)
grob.R: stop("'allDevices' not yet implemented")
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
Invalid 'gPath'
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (depth(gPath) == 1 && strict) {
grob.R- gTree$children[[gPath$name]]
grob.R- } else {
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
grob.R: stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
Invalid 'grep' value
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- getDLfromGPath(gPath, strict, grep, global)
grob.R-}
--
grob.R- gTree$children[[gPath$name]]
grob.R- } else {
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- getGTree(gTree, NULL, gPath, strict, grep, gl...
grob.R- }
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- result <- setDLfromGPath(gPath, newGrob, strict...
grob.R- # result$index will be non-zero if matched the ...
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- if (depth(gPath) == 1 && strict) {
grob.R- # gPath must specify an existing child
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- addDLfromGPath(gPath, child, strict, grep, glob...
grob.R-}
--
grob.R- if (!inherits(gTree, "gTree"))
grob.R- stop("It is only valid to add a child to a ...
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- addGTree(gTree, child, NULL, gPath, strict, g...
grob.R- }
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- if (depth(gPath) == 1) {
grob.R- removeNameFromDL(gPath$name, strict, grep, gl...
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- if (depth(gPath) == 1) {
grob.R- # result will be NULL if no match
--
grob.R- if (!inherits(gPath, "gPath"))
grob.R- stop("Invalid 'gPath'")
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- specs <- list(...)
grob.R- editDLfromGPath(gPath, specs, strict, grep, glo...
--
grob.R- if (!inherits(grob, "gTree"))
grob.R- stop("It is only valid to edit a child of a...
grob.R- if (!is.logical(grep))
grob.R: stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
grob.R- editGTree(grob, specs, NULL, gPath, strict, g...
grob.R- }
It is only valid to get a child from a 'gTree'
grob.R-getGrob <- function(gTree, gPath, strict=FALSE,
grob.R- grep=FALSE, global=FALSE) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to get a child from a ...
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
'gPath' does not specify a valid child
grob.R- if (redraw)
grob.R- draw.all()
grob.R- } else {
grob.R: stop("'gPath' does not specify a valid child")
grob.R- }
grob.R-}
grob.R-
--
grob.R- newGrob$name, gPath), dom...
grob.R- }
grob.R- } else {
grob.R: stop("'gPath' does not specify a valid ch...
grob.R- }
grob.R- } else {
grob.R- gTree <- setGTree(gTree, NULL, gPath, newGrob...
grob.R- if (is.null(gTree))
grob.R: stop("'gPath' does not specify a valid chil...
grob.R- }
grob.R- gTree
grob.R-}
It is only valid to set a child of a 'gTree'
grob.R-# nor is it valid to specify a global destination...
grob.R-setGrob <- function(gTree, gPath, newGrob, strict...
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to set a child of a 'g...
grob.R- if (!inherits(newGrob, "grob"))
grob.R- stop("It is only valid to set a 'grob' as chi...
grob.R- if (is.character(gPath))
It is only valid to set a 'grob' as child of a 'gTree'
grob.R- if (!inherits(gTree, "gTree"))
grob.R- stop("It is only valid to set a child of a 'g...
grob.R- if (!inherits(newGrob, "grob"))
grob.R: stop("It is only valid to set a 'grob' as chi...
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
New 'grob' name (%s) does not match 'gPath' (%s)
grob.R- if (match(gTree$childrenOrder[old.pos], new...
grob.R- gTree$children[[newGrob$name]] <- newGrob
grob.R- } else {
grob.R: stop(gettextf("New 'grob' name (%s) doe...
grob.R- newGrob$name, gPath), dom...
grob.R- }
grob.R- } else {
It is only valid to add a 'grob' to a 'gTree'
grob.R-addGrob <- function(gTree, child, gPath=NULL, str...
grob.R- grep=FALSE, global=FALSE) {
grob.R- if (!inherits(child, "grob"))
grob.R: stop("It is only valid to add a 'grob' to a '...
grob.R- if (is.null(gPath)) {
grob.R- addToGTree(gTree, child)
grob.R- } else {
It is only valid to add a child to a 'gTree'
grob.R- gPath <- gPathDirect(gPath)
grob.R- # Only makes sense to specify a gPath for a g...
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to add a child to a ...
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
--
grob.R-# Assume that child is a grob
grob.R-addToGTree <- function(gTree, child) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to add a child to a 'g...
grob.R- gTree$children[[child$name]] <- child
grob.R- # Handle case where child name already exists (...
grob.R- if (old.pos <- match(child$name, gTree$children...
--
grob.R- NULL
grob.R- else {
grob.R- if (nameMatch(gPath$name, grob$name, grep))
grob.R: stop("It is only valid to add a child to a ...
grob.R- else
grob.R- NULL
grob.R- }
It is only valid to remove a child from a 'gTree'
grob.R-removeGrob <- function(gTree, gPath, strict=FALSE,
grob.R- grep=FALSE, global=FALSE, ...
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to remove a child from...
grob.R- if (is.character(gPath))
grob.R- gPath <- gPathDirect(gPath)
grob.R- if (!inherits(gPath, "gPath"))
--
grob.R-
grob.R-removeFromGTree <- function(gTree, name, grep) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to remove a child from...
grob.R- if (grep) {
grob.R- old.pos <- grep(name, gTree$childrenOrder)
grob.R- if (length(old.pos) == 0)
It is only valid to edit a child of a 'gTree'
grob.R- gPath <- gPathDirect(gPath)
grob.R- # Only makes sense to specify a gPath for a g...
grob.R- if (!inherits(grob, "gTree"))
grob.R: stop("It is only valid to edit a child of a...
grob.R- if (!is.logical(grep))
grob.R- stop("Invalid 'grep' value")
grob.R- grep <- rep(grep, length=depth(gPath))
It is invalid to directly edit the 'children' or 'childr...
grob.R-editDetails.gTree <- function(x, specs) {
grob.R- # Disallow editing children or childrenOrder sl...
grob.R- if (any(match(specs, c("children", "childrenOrd...
grob.R: stop("It is invalid to directly edit the 'chi...
grob.R- x
grob.R-}
grob.R-
Invalid 'result'
grob.R-# Should only be when result is NULL
grob.R-growResult.default <- function(result, x) {
grob.R- if (!is.null(result))
grob.R: stop("Invalid 'result'")
grob.R- x
grob.R-}
grob.R-
The new 'grob' must have the same name as the old 'grob'
grob.R- gTree$children[[newGrob$name]] <- new...
grob.R- found <- TRUE
grob.R- } else {
grob.R: stop("The new 'grob' must have the sa...
grob.R- }
grob.R- } else {
grob.R- if (is.null(pathsofar))
--
grob.R- if (match(grob$name, newGrob$name, nomatch=...
grob.R- newGrob
grob.R- else
grob.R: stop("The new 'grob' must have the same n...
grob.R- else
grob.R- if (strict)
grob.R- NULL
Slot '%s' not found
grob.R- else
grob.R- grob[[i]] <- specs[[i]]
grob.R- else
grob.R: warning(gettextf("Slot '%s' not found", i...
grob.R- # Check grob slots are ok before trying to do a...
grob.R- # in editDetails
grob.R- # grob$childrenvp may be non-NULL for a gTree
'gPath' (%s) not found
grob.R- index <- index + 1
grob.R- }
grob.R- if (!found)
grob.R: stop(gettextf("'gPath' (%s) not found", as.ch...
grob.R- else if (redraw)
grob.R- draw.all()
grob.R-}
gPath (%s) not found
grob.R- index <- index + 1
grob.R- }
grob.R- if (!found)
grob.R: stop(gettextf("gPath (%s) not found", gPath),...
grob.R- else if (redraw)
grob.R- draw.all()
grob.R-}
--
grob.R- index <- index + 1
grob.R- }
grob.R- if (!found)
grob.R: stop(gettextf("gPath (%s) not found", gPath),...
grob.R- else if (redraw)
grob.R- draw.all()
grob.R-}
--
grob.R- }
grob.R- if (!found) {
grob.R- if (warn)
grob.R: stop(gettextf("gPath (%s) not found", gPa...
grob.R- } else if (redraw)
grob.R- draw.all()
grob.R-}
Grob '%s' not found
grob.R- index <- index + 1
grob.R- }
grob.R- if (is.null(result))
grob.R: stop(gettextf("Grob '%s' not found", name), d...
grob.R- result
grob.R-}
grob.R-
--
grob.R- index <- index + 1
grob.R- }
grob.R- if (is.null(result))
grob.R: stop(gettextf("Grob '%s' not found", name), d...
grob.R- result
grob.R-}
grob.R-
Invalid element in the display list
grob.R-grid.draw.default <- function(x, recording) {
grob.R- # Allow for "holes" in the DL if a grob has bee...
grob.R- if (!is.null(x))
grob.R: stop("Invalid element in the display list")
grob.R-}
grob.R-
grob.R-grid.draw.viewport <- function(x, recording) {
This function is redundant and will disappear in future ...
grob.R-}
grob.R-
grob.R-grid.copy <- function(grob) {
grob.R: warning("This function is redundant and will di...
grob.R- grob
grob.R-}
grob.R-
'l' must be a layout
highlevel.R- cell.label=TRUE, la...
highlevel.R- unit.col="red",...
highlevel.R- if (!is.layout(l))
highlevel.R: stop("'l' must be a layout")
highlevel.R- if (newpage)
highlevel.R- grid.newpage()
highlevel.R- if (!is.null(vp))
'pch' and 'labels' not the same length
highlevel.R- labels <- as.character(labels)
highlevel.R- nkeys <- length(labels)
highlevel.R- if (length(pch) != nkeys)
highlevel.R: stop("'pch' and 'labels' not the same le...
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
--
highlevel.R- labels <- as.character(labels)
highlevel.R- nkeys <- length(labels)
highlevel.R- if (length(pch) != nkeys)
highlevel.R: stop("'pch' and 'labels' not the same le...
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
'hgap' must be single unit
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
highlevel.R: stop("'hgap' must be single unit")
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
--
highlevel.R- if (!is.unit(hgap))
highlevel.R- hgap <- unit(hgap, default.units)
highlevel.R- if (length(hgap) != 1)
highlevel.R: stop("'hgap' must be single unit")
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
'vgap' must be single unit
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
highlevel.R: stop("'vgap' must be single unit")
highlevel.R- gf <- grid.frame(layout=grid.layout(nkeys,...
draw=FALSE)
highlevel.R- for (i in 1:nkeys) {
highlevel.R- if (i==1) {
--
highlevel.R- if (!is.unit(vgap))
highlevel.R- vgap <- unit(vgap, default.units)
highlevel.R- if (length(vgap) != 1)
highlevel.R: stop("'vgap' must be single unit")
highlevel.R- legend.layout <-
highlevel.R- grid.layout(nkeys, 3,
highlevel.R- widths=unit.c(unit(2, "lines...
Invalid justification
just.R- just <- as.integer(match(just[1], c("left", "...
just.R- "centre",...
just.R- if (any(is.na(just)))
just.R: stop("Invalid justification")
just.R- } else if (length(just) > 1) {
just.R- # first value must be one of "left", "right",...
just.R- just[1] <- as.integer(match(just[1], c("left"...
"top",
--
just.R- switch(just[2] + 1, NA, NA, 0, 1, 0.5...
just.R- # Final paranoid check
just.R- if (any(is.na(just)))
just.R: stop("Invalid justification")
just.R- just
just.R-}
just.R-
Invalid horizontal justification
just.R- just[1] <- as.integer(match(just[1], c("left"...
"top",
just.R- "centr...
just.R- if (!(just[1] %in% c(0, 1, 4, 5)))
just.R: stop("Invalid horizontal justification")
just.R- # second value must be one of "bottom", "top"...
just.R- just[2] <- as.integer(match(just[2], c("left"...
"top",
just.R- "centr...
Invalid vertical justification
just.R- just[2] <- as.integer(match(just[2], c("left"...
"top",
just.R- "centr...
just.R- if (!(just[2] %in% c(2, 3, 4, 5)))
just.R: stop("Invalid vertical justification")
just.R- just <- as.integer(just)
just.R- }
just.R- # Extend to length 2 if necessary
'respect' must be logical or an 'nrow' by 'ncol' matrix
layout.R- if (!is.logical(respect)) {
layout.R- respect <- as.matrix(respect)
layout.R- if (!is.matrix(respect) || any(dim(respect)...
layout.R: stop("'respect' must be logical or an 'nr...
layout.R- }
layout.R- if (is.matrix(respect)) {
layout.R- respect.mat <- matrix(as.integer(respect),
Invalid 'origin'
origin.R- c("bottom.left", "...
origin.R- "bottom.right", ...
origin.R- if (any(is.na(origin)))
origin.R: stop("Invalid 'origin'")
origin.R- origin
origin.R-}
origin.R-
'x' and 'y' must be units
primitives.R-validDetails.move.to <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R- stop("'x' and 'y' must have length 1")
--
primitives.R-validDetails.line.to <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R- stop("'x' and 'y' must have length 1")
--
primitives.R-validDetails.lines <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- x
primitives.R-}
primitives.R-
--
primitives.R-validDetails.arrows <- function(x) {
primitives.R- if ((!is.null(x$x) && !is.unit(x$x)) ||
primitives.R- (!is.null(x$y) && !is.unit(x$y)))
primitives.R: stop("'x' and 'y' must be units or NULL")
primitives.R- if (!is.unit(x$length))
primitives.R- stop("'length' must be a unit object")
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
--
primitives.R-validDetails.polygon <- function(x) {
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengt...
primitives.R- stop("It is invalid to specify both 'id...
primitives.R- if (unit.length(x$x) != unit.length(x$y))
--
primitives.R- x$label <- as.character(x$label)
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y))
primitives.R: stop("'x' and 'y' must be units")
primitives.R- x$rot <- as.numeric(x$rot)
primitives.R- if (!all(is.finite(x$rot)) || length(x$ro...
primitives.R- stop("Invalid 'rot' value")
'x' and 'y' must have length 1
primitives.R- stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R: stop("'x' and 'y' must have length 1")
primitives.R- x
primitives.R-}
primitives.R-
--
primitives.R- stop("'x' and 'y' must be units")
primitives.R- # Make sure that x and y are of length 1
primitives.R- if (unit.length(x$x) > 1 | unit.length(x$...
primitives.R: stop("'x' and 'y' must have length 1")
primitives.R- x
primitives.R-}
primitives.R-
'x0', 'y0', 'x1', and 'y1' must be units
primitives.R-validDetails.segments <- function(x) {
primitives.R- if (!is.unit(x$x0) || !is.unit(x$x1) ||
primitives.R- !is.unit(x$y0) || !is.unit(x$y1))
primitives.R: stop("'x0', 'y0', 'x1', and 'y1' must b...
primitives.R- x
primitives.R-}
primitives.R-
'x' and 'y' must be units or NULL
primitives.R-validDetails.arrows <- function(x) {
primitives.R- if ((!is.null(x$x) && !is.unit(x$x)) ||
primitives.R- (!is.null(x$y) && !is.unit(x$y)))
primitives.R: stop("'x' and 'y' must be units or NULL")
primitives.R- if (!is.unit(x$length))
primitives.R- stop("'length' must be a unit object")
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
'length' must be a unit object
primitives.R- (!is.null(x$y) && !is.unit(x$y)))
primitives.R- stop("'x' and 'y' must be units or NULL")
primitives.R- if (!is.unit(x$length))
primitives.R: stop("'length' must be a unit object")
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
primitives.R- x$type <- as.integer(match(x$type, c("ope...
primitives.R- if (any(is.na(x$ends)) || any(is.na(x$typ...
Invalid 'ends' or 'type' argument
primitives.R- x$ends <- as.integer(match(x$ends, c("fir...
primitives.R- x$type <- as.integer(match(x$type, c("ope...
primitives.R- if (any(is.na(x$ends)) || any(is.na(x$typ...
primitives.R: stop("Invalid 'ends' or 'type' argument")
primitives.R- x
primitives.R-}
primitives.R-
Corrupt 'arrows' object
primitives.R-drawDetails.arrows <- function(x, recording...
primitives.R- if (is.null(x$x)) { # y should be null too
primitives.R- if (!is.null(x$y))
primitives.R: stop("Corrupt 'arrows' object")
primitives.R- lineThing <- getGrob(x, childNames(x))
primitives.R- # This could be done via method dispatc...
primitives.R- # seemed like overkill
--
primitives.R-widthDetails.arrows <- function(x) {
primitives.R- if (is.null(x$x)) { # y should be null too
primitives.R- if (!is.null(x$y))
primitives.R: stop("Corrupt 'arrows' object")
primitives.R- lineThing <- getGrob(x, childNames(x))
primitives.R- widthDetails(lineThing)
primitives.R- } else {
--
primitives.R-heightDetails.arrows <- function(x) {
primitives.R- if (is.null(x$x)) { # y should be null too
primitives.R- if (!is.null(x$y))
primitives.R: stop("Corrupt 'arrows' object")
primitives.R- lineThing <- getGrob(x, childNames(x))
primitives.R- heightDetails(lineThing)
primitives.R- } else {
The 'grob' argument must be a 'line.to', 'lines', or 'se...
primitives.R- if (!(inherits(grob, "lines") ||
primitives.R- inherits(grob, "segments") ||
primitives.R- inherits(grob, "line.to")))
primitives.R: stop("The 'grob' argument must be a '...
'segments' grob")
primitives.R- x <- y <- NULL
primitives.R- }
primitives.R- gTree(x=x, y=y, children=if (is.null(grob...
It is invalid to specify both 'id' and 'id.lengths
primitives.R- !is.unit(x$y))
primitives.R- stop("'x' and 'y' must be units")
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengt...
primitives.R: stop("It is invalid to specify both 'id...
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R- stop("'x' and 'y' must be same length")
primitives.R- if (!is.null(x$id) && (length(x$id) != un...
'x' and 'y' must be same length
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengt...
primitives.R- stop("It is invalid to specify both 'id...
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R: stop("'x' and 'y' must be same length")
primitives.R- if (!is.null(x$id) && (length(x$id) != un...
primitives.R- stop("'x' and 'y' and 'id' must all be ...
primitives.R- if (!is.null(x$id))
'x' and 'y' and 'id' must all be same length
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R- stop("'x' and 'y' must be same length")
primitives.R- if (!is.null(x$id) && (length(x$id) != un...
primitives.R: stop("'x' and 'y' and 'id' must all be ...
primitives.R- if (!is.null(x$id))
primitives.R- x$id <- as.integer(x$id)
primitives.R- if (!is.null(x$id.lengths) && (sum(x$id.l...
'x' and 'y' and 'id.lengths' must specify same overall l...
primitives.R- if (!is.null(x$id))
primitives.R- x$id <- as.integer(x$id)
primitives.R- if (!is.null(x$id.lengths) && (sum(x$id.l...
primitives.R: stop("'x' and 'y' and 'id.lengths' must...
length")
primitives.R- if (!is.null(x$id.lengths))
primitives.R- x$id.lengths <- as.integer(x$id.lengths)
primitives.R- x
'x', 'y', and 'r' must be units
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y) ||
primitives.R- !is.unit(x$r))
primitives.R: stop("'x', 'y', and 'r' must be units")
primitives.R- x
primitives.R-}
primitives.R-
'x', 'y', 'width', and 'height' must be units
primitives.R- !is.unit(x$y) ||
primitives.R- !is.unit(x$width) ||
primitives.R- !is.unit(x$height))
primitives.R: stop("'x', 'y', 'width', and 'height' m...
primitives.R- valid.just(x$just)
primitives.R- if (!is.null(x$hjust))
primitives.R- x$hjust <- as.numeric(x$hjust)
Invalid 'rot' value
primitives.R- stop("'x' and 'y' must be units")
primitives.R- x$rot <- as.numeric(x$rot)
primitives.R- if (!all(is.finite(x$rot)) || length(x$ro...
primitives.R: stop("Invalid 'rot' value")
primitives.R- valid.just(x$just)
primitives.R- if (!is.null(x$hjust))
primitives.R- x$hjust <- as.numeric(x$hjust)
zero-length 'pch'
primitives.R-######################################
primitives.R-valid.pch <- function(pch) {
primitives.R- if (length(pch) == 0)
primitives.R: stop("zero-length 'pch'")
primitives.R- if (is.null(pch))
primitives.R- pch <- as.integer(1)
primitives.R- else if (!is.character(pch))
'x', 'y' and 'size' must be units
primitives.R- if (!is.unit(x$x) ||
primitives.R- !is.unit(x$y) ||
primitives.R- !is.unit(x$size))
primitives.R: stop("'x', 'y' and 'size' must be units")
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R- stop("'x' and 'y' must be unit objects ...
primitives.R- x$pch <- valid.pch(x$pch)
'x' and 'y' must be unit objects and have the same length
primitives.R- !is.unit(x$size))
primitives.R- stop("'x', 'y' and 'size' must be units")
primitives.R- if (unit.length(x$x) != unit.length(x$y))
primitives.R: stop("'x' and 'y' must be unit objects ...
primitives.R- x$pch <- valid.pch(x$pch)
primitives.R- x
primitives.R-}
'x' must be numeric
unit.R-# or 'unit(1, "grob", a.grob)'
unit.R-unit <- function(x, units, data=NULL) {
unit.R- if (!is.numeric(x))
unit.R: stop("'x' must be numeric")
unit.R- units <- as.character(units)
unit.R- if (length(x) == 0 || length(units) == 0)
unit.R- stop("'x' and 'units' must have length > 0")
'x' and 'units' must have length > 0
unit.R- stop("'x' must be numeric")
unit.R- units <- as.character(units)
unit.R- if (length(x) == 0 || length(units) == 0)
unit.R: stop("'x' and 'units' must have length > 0")
unit.R- valid.unit(x, units, recycle.data(data, FALSE, ...
unit.R-}
unit.R-
'x' argument must be a unit object
unit.R- whatto <- match(axisTo, c("x", "y")) - 1 +
unit.R- 2*(match(typeTo, c("location", "dimension")) ...
unit.R- if (!is.unit(x))
unit.R: stop("'x' argument must be a unit object")
unit.R- if (is.na(whatfrom) || is.na(whatto))
unit.R- stop("Invalid 'axis' or 'type'")
unit.R- value <- grid.Call("L_convert", x, as.integer(w...
Invalid 'axis' or 'type'
unit.R- if (!is.unit(x))
unit.R- stop("'x' argument must be a unit object")
unit.R- if (is.na(whatfrom) || is.na(whatto))
unit.R: stop("Invalid 'axis' or 'type'")
unit.R- value <- grid.Call("L_convert", x, as.integer(w...
unit.R- as.integer(whatto), valid.units(...
unit.R- if (!valueOnly)
No string supplied for 'strwidth' unit
unit.R- for (i in (1:n)[str.units])
unit.R- if (!(length(data) >= i &&
unit.R- (is.character(data[[i]]) || is.expres...
unit.R: stop("No string supplied for 'strwidth' u...
unit.R- str.units <- (units == "strheight" | units == "...
unit.R- if (any(str.units != 0))
unit.R- for (i in (1:n)[str.units])
No string supplied for 'strheight' unit
unit.R- for (i in (1:n)[str.units])
unit.R- if (!(length(data) >= i &&
unit.R- (is.character(data[[i]]) || is.expres...
unit.R: stop("No string supplied for 'strheight' ...
unit.R- # Make sure that a grob has been specified
unit.R- grob.units <- units == "grobwidth"
unit.R- if (any(grob.units != 0))
No 'grob' supplied for 'grobwidth' unit
unit.R- if (!(length(data) >= i &&
unit.R- (is.grob(data[[i]]) || inherits(data[...
unit.R- is.character(data[[i]]))))
unit.R: stop("No 'grob' supplied for 'grobwidth' ...
unit.R- if (is.character(data[[i]]))
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
'gPath' must have depth 1 in 'grobwidth/height' units
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
unit.R- if (depth(data[[i]]) > 1)
unit.R: stop("'gPath' must have depth 1 in 'gro...
unit.R- }
unit.R- grob.units <- units == "grobheight"
unit.R- if (any(grob.units != 0))
--
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
unit.R- if (depth(data[[i]]) > 1)
unit.R: stop("'gPath' must have depth 1 in 'gro...
unit.R- }
unit.R- data
unit.R-}
No 'grob' supplied for 'grobheight' unit
unit.R- if (!(length(data) >= i &&
unit.R- (is.grob(data[[i]]) || inherits(data[...
unit.R- is.character(data[[i]]))))
unit.R: stop("No 'grob' supplied for 'grobheight'...
unit.R- if (is.character(data[[i]]))
unit.R- data[[i]] <- gPathDirect(data[[i]])
unit.R- if (inherits(data[[i]], "gPath"))
Operator '%s' not meaningful for units
unit.R-Ops.unit <- function(e1, e2) {
unit.R- ok <- switch(.Generic, "+"=TRUE, "-"=TRUE, "*"=...
unit.R- if (!ok)
unit.R: stop(gettextf("Operator '%s' not meaningful f...
unit.R- domain = NA)
unit.R- if (.Generic == "*")
unit.R- # can only multiply a unit by a scalar
Only one operand may be a unit
unit.R- # can only multiply a unit by a scalar
unit.R- if (nchar(.Method[1])) {
unit.R- if (nchar(.Method[2]))
unit.R: stop("Only one operand may be a unit")
unit.R- else if (is.numeric(e2))
unit.R- # NOTE that we always put the scalar first
unit.R- # Use as.numeric to force e2 to be REAL
Non-unit operand must be numeric
unit.R- # Use as.numeric to force e2 to be REAL
unit.R- unit.arithmetic(.Generic, as.numeric(e2),...
unit.R- else
unit.R: stop("Non-unit operand must be numeric")
unit.R- } else {
unit.R- if (is.numeric(e1))
unit.R- # Use as.numeric to force e1 to be REAL
unit.R- unit.arithmetic(.Generic, as.numeric(e1),...
unit.R- else
unit.R: stop("Non-unit operand must be numeric")
unit.R- }
unit.R- else
unit.R- # Check that both arguments are units
Both operands must be units
unit.R- if (nchar(.Method[1]) && nchar(.Method[2]))
unit.R- unit.arithmetic(.Generic, e1, e2)
unit.R- else
unit.R: stop("Both operands must be units")
unit.R-}
unit.R-
unit.R-## <FIXME>
'Summary' function '%s' not meaningful for units
unit.R- x <- unit.c(...)
unit.R- ok <- switch(.Generic, "max"=TRUE, "min"=TRUE, ...
unit.R- if (!ok)
unit.R: stop(gettextf("'Summary' function '%s' not me...
unit.R- .Generic), domain = NA)
unit.R- unit.arithmetic(.Generic, x)
unit.R-}
Zero arguments where at least one expected
unit.R- x <- list(...)
unit.R- numargs <- length(x)
unit.R- if (numargs == 0)
unit.R: stop("Zero arguments where at least one expec...
unit.R- # how long will the result be?
unit.R- maxlength <- 0
unit.R- for (i in 1:numargs)
--
unit.R- x <- list(...)
unit.R- numargs <- length(x)
unit.R- if (numargs == 0)
unit.R: stop("Zero arguments where at least one expec...
unit.R- # how long will the result be?
unit.R- maxlength <- 0
unit.R- for (i in 1:numargs)
Index out of bounds (unit subsetting)
unit.R- if (is.logical(index))
unit.R- index <- (1:this.length)[index]
unit.R- if (top && index > this.length)
unit.R: stop("Index out of bounds (unit subsetting)")
unit.R- cl <- class(x);
unit.R- units <- attr(x, "unit")
unit.R- valid.units <- attr(x, "valid.unit")
Index out of bounds (unit arithmetic subsetting)
unit.R- if (is.logical(index))
unit.R- index <- (1:this.length)[index]
unit.R- if (top && index > this.length)
unit.R: stop("Index out of bounds (unit arithmetic su...
unit.R- switch(x$fname,
unit.R- "+"="["(x$arg1, (index - 1) %% this.leng...
unit.R- "["(x$arg2, (index - 1) %% this.leng...
Index out of bounds (unit list subsetting)
unit.R- if (is.logical(index))
unit.R- index <- (1:this.length)[index]
unit.R- if (top && index > this.length)
unit.R: stop("Index out of bounds (unit list subsetti...
unit.R- cl <- class(x)
unit.R- result <- unclass(x)[(index - 1) %% this.length...
unit.R- class(result) <- cl
It is invalid to combine unit objects with other types
unit.R- length(x[[i]...
unit.R- }
unit.R- else
unit.R: stop("It is invalid to combine unit objec...
unit.R- unit(values, units, data=data)
unit.R- }
unit.R-}
'range' must be numeric
util.R-
util.R-grid.pretty <- function(range) {
util.R- if (!is.numeric(range))
util.R: stop("'range' must be numeric")
util.R- .Call("L_pretty", range, PACKAGE="grid")
util.R-}
util.R-
'x', 'y', 'width', and 'height' must all be units of len...
viewport.R- name) {
viewport.R- if (unit.length(x) > 1 || unit.length(y) > ...
viewport.R- unit.length(width) > 1 || unit.length(h...
viewport.R: stop("'x', 'y', 'width', and 'height' mus...
length 1")
viewport.R- if (!is.gpar(gp))
viewport.R- stop("Invalid graphics parameters")
viewport.R- if (!is.logical(clip))
Invalid graphics parameters
viewport.R- unit.length(width) > 1 || unit.length(h...
viewport.R- stop("'x', 'y', 'width', and 'height' mus...
length 1")
viewport.R- if (!is.gpar(gp))
viewport.R: stop("Invalid graphics parameters")
viewport.R- if (!is.logical(clip))
viewport.R- clip <- switch(as.character(clip),
viewport.R- on=TRUE,
Invalid 'clip' value
viewport.R- on=TRUE,
viewport.R- off=NA,
viewport.R- inherit=FALSE,
viewport.R: stop("Invalid 'clip' value...
viewport.R- if (!is.numeric(xscale) || length(xscale) !...
viewport.R- any(!is.finite(xscale)))
viewport.R- stop("Invalid 'xscale' in viewport")
Invalid 'xscale' in viewport
viewport.R- stop("Invalid 'clip' value...
viewport.R- if (!is.numeric(xscale) || length(xscale) !...
viewport.R- any(!is.finite(xscale)))
viewport.R: stop("Invalid 'xscale' in viewport")
viewport.R- if (!is.numeric(yscale) || length(yscale) !...
viewport.R- any(!is.finite(yscale)))
viewport.R- stop("Invalid 'yscale' in viewport")
Invalid 'yscale' in viewport
viewport.R- stop("Invalid 'xscale' in viewport")
viewport.R- if (!is.numeric(yscale) || length(yscale) !...
viewport.R- any(!is.finite(yscale)))
viewport.R: stop("Invalid 'yscale' in viewport")
viewport.R- if (!is.numeric(angle) || length(angle) != ...
viewport.R- !is.finite(angle))
viewport.R- stop("Invalid 'angle' in viewport")
Invalid 'angle' in viewport
viewport.R- stop("Invalid 'yscale' in viewport")
viewport.R- if (!is.numeric(angle) || length(angle) != ...
viewport.R- !is.finite(angle))
viewport.R: stop("Invalid 'angle' in viewport")
viewport.R- if (!(is.null(layout) || is.layout(layout)))
viewport.R- stop("Invalid 'layout' in viewport")
viewport.R- if (!is.null(layout.pos.row)) {
Invalid 'layout' in viewport
viewport.R- !is.finite(angle))
viewport.R- stop("Invalid 'angle' in viewport")
viewport.R- if (!(is.null(layout) || is.layout(layout)))
viewport.R: stop("Invalid 'layout' in viewport")
viewport.R- if (!is.null(layout.pos.row)) {
viewport.R- layout.pos.row <- as.integer(range(layout...
viewport.R- if (any(!is.finite(layout.pos.row)))
Invalid 'layout.pos.row' in viewport
viewport.R- if (!is.null(layout.pos.row)) {
viewport.R- layout.pos.row <- as.integer(range(layout...
viewport.R- if (any(!is.finite(layout.pos.row)))
viewport.R: stop("Invalid 'layout.pos.row' in viewp...
viewport.R- }
viewport.R- if (!is.null(layout.pos.col)) {
viewport.R- layout.pos.col <- as.integer(range(layout...
Invalid 'layout.pos.col' in viewport
viewport.R- if (!is.null(layout.pos.col)) {
viewport.R- layout.pos.col <- as.integer(range(layout...
viewport.R- if (any(!is.finite(layout.pos.col)))
viewport.R: stop("Invalid 'layout.pos.col' in viewp...
viewport.R- }
viewport.R- # If name is NULL then we give it a default
viewport.R- # Otherwise it should be a valid R name
Only viewports allowed in 'vpList'
viewport.R- class(vps) <- c("vpList", "viewport")
viewport.R- vps
viewport.R- } else {
viewport.R: stop("Only viewports allowed in 'vpList'")
viewport.R- }
viewport.R-}
viewport.R-
Only viewports allowed in 'vpStack'
viewport.R- class(vps) <- c("vpStack", "viewport")
viewport.R- vps
viewport.R- } else {
viewport.R: stop("Only viewports allowed in 'vpStack'")
viewport.R- }
viewport.R-}
viewport.R-
'parent' must be a viewport and 'children' must be a 'vp...
viewport.R- class(tree) <- c("vpTree", "viewport")
viewport.R- tree
viewport.R- } else {
viewport.R: stop("'parent' must be a viewport and 'ch...
viewport.R- }
viewport.R-}
viewport.R-
A viewport path must contain at least one viewport name
viewport.R-vpPathFromVector <- function(names) {
viewport.R- n <- length(names)
viewport.R- if (n < 1)
viewport.R: stop("A viewport path must contain at lea...
viewport.R- if (!all(is.character(names)))
viewport.R- stop("Invalid viewport name(s)")
viewport.R- path <- list(path=if (n==1) NULL else
Invalid viewport name(s)
viewport.R- if (n < 1)
viewport.R- stop("A viewport path must contain at lea...
viewport.R- if (!all(is.character(names)))
viewport.R: stop("Invalid viewport name(s)")
viewport.R- path <- list(path=if (n==1) NULL else
viewport.R- paste(names[1:(n-1)], collapse...
viewport.R- name=names[n],
Must specify at least one of 'x' or 'xscale'
viewport.R- extension <- rep(extension, length.out=2)
viewport.R- if (is.null(xscale)) {
viewport.R- if (is.null(xData))
viewport.R: stop("Must specify at least one of 'x' ...
viewport.R- xscale <- range(xData) + c(-1, 1)*diff(ra...
viewport.R- }
viewport.R- if (is.null(yscale)) {
Must specify at least one of 'y' or 'yscale'
viewport.R- }
viewport.R- if (is.null(yscale)) {
viewport.R- if (is.null(yData))
viewport.R: stop("Must specify at least one of 'y' ...
viewport.R- yscale <- range(yData) + c(-1, 1)*diff(ra...
viewport.R- }
viewport.R- viewport(xscale=xscale, yscale=yscale, ...)
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
