COLOR(blue){SIZE(18){R-grid.pot の和訳とチェックのページ}}
以下は R-grid.pot の素(粗)訳です．元ファイルと各メッセージのソース部分
を取り出したファイルを添付します．~
舟尾 (第一稿 2005.03.27)
#contents
-implemented, unimplimented の訳が推奨となっている箇所が複数ありますが、「実装」もしくは「未実装」です。 -- &new{2005-03-27 (日) 17:05:37};
-「特定」も「指定」でしょうね -- &new{2005-03-27 (日) 17:09:50};
-間瀬先生，ソースの添付をありがとうございます．ソースと照合して訳を見直していきます．~
また，多数ご指摘いただきましてありがとうございます．ある程度時間がたった後に，訳に反映します． -- [[舟尾]] &new{2005-03-27 (日) 23:27:54};
-多数の貴重なご意見ありがとうございました。3/30付けで修正致しました。 -- [[舟尾]] &new{2005-03-30 (水) 23:09:23};
-多数の貴重なご意見、本当にありがとうございました。私自身、かなり勉強させてもらいました！3/30付けで修正致しましたので、よろしくお願い致します。 -- [[舟尾]] &new{2005-03-30 (水) 23:09:23};
#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 layout)"
msgstr "不正な 'row' かつ/または 'col' です（frame layout の中にそのようなセルは存在しません）"
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\", \"right\"]', 'col',
'col.before', or 'col.after'"
msgstr "'side=[\"left\", \"right\"]', 'col', 'col.before', 'col.after'
のうち 1 つ以上を特定することが出来ません"
msgid "Must specify exactly one of 'side=[\"top\", \"bottom\"]', 'row',
'row.before', or 'row.after'"
msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before', 'row.after'
のうち 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)は同じ長さでなければなりません" => "'labels' と、位置 'at' は同じ長さでなければなりません" -- &new{2005-03-27 (日) 20:53:27};
-msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before', 'row.after' のうち 1 つを正確に特定しなければいけません" => msgstr "'side=[\"top\", \"bottom\"]', 'row', 'row.before', 'row.after' のうちちょうど一つを指定しなければいけません" -- &new{2005-03-27 (日) 20:55:12};
#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; try 'wrap=TRUE')"
msgstr "grob(s) が上書きされました（おそらく grab は信用できるものではありません; 'wrap=TRUE' を試してください）"
msgid "viewport overwritten (grab MAY not be faithful)"
msgstr "viewport が上書きされました（おそらく grab は信用できるものではありません）"
msgid "grob pushed viewports and did not pop/up them (grab MAY not be faithful)"
msgstr "grob が viewports に push され，viewports は pop/up されませんでした
（おそらく 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() instead"
msgstr "grid.grob() は廃止予定です; 代わりに grob() を使って下さい"
msgid "A 'grob' path must contain at least one 'grob' name"
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 'gTree'"
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 'childrenOrder' slot"
msgstr "'children' または 'childrenOrder' のスロットを直接編集することだけが有効です"
msgid "Invalid 'result'"
msgstr "不正な 'result' です"
-"'children' または 'childrenOrder' のスロットを直接編集することだけが有効です" => "'children' または 'childrenOrder' スロットを直接編集してはいけません" -- &new{2005-03-27 (日) 16:54:21};
-"'gPath' は有効な child を特定することが出来ません" => "'gPath' は有効な child を指定していません" -- &new{2005-03-27 (日) 17:07:07};
-"'grobs' は 'gList' 中でのみ許されます" => "''gList' 中には 'grobs' のみが許されます" -- &new{2005-03-27 (日) 20:50:47};
#comment
* 61-80
msgid "The new 'grob' must have the same name as the old 'grob'"
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 future versions."
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' matrix"
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 とはテキスト(行)を見栄えのよい表示のために左右、上下に整列させる清書法のことです。空白の挿入も含むかも知れません。訳は「ジャスティフィケーション」もしくは「ジャスティファイする」でしょうか。 -- &new{2005-03-27 (日) 17:01:38};
-"'respect' は論理値か 'ncol' 行列による 'nrow' でなければなりません" => "'respect' は論理値か、 'ncol' ｘ'nrow' 行列でなければなりません" -- &new{2005-03-27 (日) 17:03:47};
-ソースを見ると justification とは （何の？） right,left,top,bottom, および上下左右の center 指定のことのようですね。そうすると「位置決め指定が不正です」、「水平方向の位置決め指定が不正です」、「垂直方向の位置決め指定が不正です」とでも訳す？ -- &new{2005-03-27 (日) 20:42:15};
-"この関数は余分で，将来のバージョンの中で消えるでしょう" => "この関数は余分で，将来無くなるでしょう" -- &new{2005-03-27 (日) 20:56:46};
-"'pch' と 'labels' は同じ長さでなければなりません" => "'pch' と 'labels' は同じ長さでありません" -- &new{2005-03-28 (月) 21:01:23};
-"'pch' と 'labels' は同じ長さでなければなりません" => "'pch' と 'labels' は同じ長さでありません" ですが，何回か書きましたが「が」と「は」は意味がまるっきり違うと思うのですが，それのように思うのは私だけでしょうか。繰り返しますが「は」は単なる事実の陳述，「が」も事実の陳述ではあるけれども，エラーメッセージのコンテクストから言えば，それは暗に間違いですよと言っているように思うんですけど。前にも書きましたけど，エラーメッセージとして「sqrt の引数は負です」と書かれると，確かに，sqrt(-4.321)なんて書いたならあ，負だな，間違えちゃったと思うけど，sqrt(x)って書いてあって，エラーメッセージで「引数は負です」といわれたら，あ，x が正だったかと思うのでは（例では平方根 sqrt だから誤解する方が悪いのだが，あまりよく知らない関数だと，事実として言われたのか，それが悪いと言われているのか区別が付かないのでは？）。それに対して，「引数が負です」と言われたら，あ，間違って負の値を渡しちゃったのかな？？と，そういう反応になるのではないでしょうか。ま，丁寧に書けば，「指定された引数が負でした。引数は正でなければなりません。」ということでしょうね。エラーメッセージは，単に誤りの事実を知らせるのではなく，その間違いを正すにはどのように対処しなくてはならないかを明示する方がよい（そのようなエラーメッセージが優れたエラーメッセージ）ということは，よく知られた法則です。元のエラーメッセージに忠実に訳す必要はない（もとのエラーメッセージが優れたエラーメッセージである保証・証拠は何もない）ので，意訳でも良いから，ユーザの役に立つメッセージになれば良いのではないかと思います。 -- &new{2005-03-28 (月) 21:56:31};
-ご意見は基本的に賛成ですが、意訳が誤訳になっていないという確証がどれだけ持てるかということも考える必要があります。そうした自信が持てない場合は、できるだけ原文に忠実に訳すことも必要ではないでしょうか。実際のところ、一定程度の確度（ここの基準が微妙です）がない限り、むしろ原文のままにしておく方が良いのではとも感じています。ただし、現在はどういう訳が可能なのかを検討する場と思いますから、思いつきでも色んな意見が出る方が良いと思います。これは、R マニュアルの翻訳で散々意訳を行なった（そして後で赤面した）経験からの感想です。 -- [[間瀬茂]] &new{2005-03-28 (月) 23:00:06};
-意訳は某出版社のような「超訳」ではないですから，意訳＝いい加減な訳ということではないでしょう。エラーメッセージの内容がちゃんとわかっているものについてはより分かりやすいエラーメッセージを付けましょうというようなことだと思います。本来は，英語版のエラーメッセージの改善を提案できるくらいの英語力があれば良いのですが。 -- &new{2005-03-28 (月) 23:24:55};
-"'pch' と 'labels' は同じ長さでなければなりません" => 指定された "'pch' と 'labels' の長さが違います." -- &new{2005-03-28 (月) 23:29:56};
#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', or 'segments' grob"
msgstr "'grob' 引数は 'line.to', 'lines', 'segments' のうち，いずれかの grob
でなければなりません"
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 overall length"
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 same length"
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' オブジェクトです" corrupt は「腐敗した」という意味で、単なる間違いよりも強い、内容が支離滅裂というニュアンスではないでしょうか？ -- &new{2005-03-28 (月) 19:38:53};
-msgstr "'grob' 引数は 'line.to', 'lines', 'segments' のうち，いずれかの grob でなければなりません" => msgstr "'grob' 引数は 'line.to', 'lines', 'segments' のいずれかの grob でなければなりません" -- &new{2005-03-28 (月) 20:57:48};
-corrupt は，コンピュータ用語では〈プログラム･データが〉エラーのあるということで，端的な苺で言えば「壊れた」と言うような意味。壊れる原因は，コピーの誤りや，ダウンロード時の雑音など。したがって，確かに誤っているのではあるが，その原因は，指定ミスなどのようなものではない。しかし，そのようなことに目くじらを立てて訳してもしょうがない気はする。"Corrupt 'arrows' object" ということであるが，arrow object は壊れるけど，ほかのobject は壊れないのかのかどうか。たぶん，ないのだろうけど。複数人が書くプログラムのエラーメッセージの用語の統一などはあまり期待できない。自分一人で作っているプログラムでも（プログラムでなくても変数名の命名規則でも，ファイル名の命名規則でも）ずいぶん変異が多いというのは，経験済み。 -- &new{2005-03-28 (月) 23:41:43};
-"不正な 'rot' 値でなければなりません" → "不正な 'rot' 値です" -- &new{2005-03-28 (月) 23:46:58};
#comment
* 101-120
msgid "No 'grob' supplied for 'grobwidth' unit"
msgstr "'grobwidth' 単位(units)を与える 'grob' がありません"
msgid "'gPath' must have depth 1 in 'grobwidth/height' units"
msgstr "'gPath' は 'grobwidth/height' 単位(units)中では深さ 1 でなければなりません"
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 types"
msgstr "単位(unit)オブジェクトとそれ以外の型のオブジェクトを結合することは出来ません"
msgid "'range' must be numeric"
msgstr "'range' は数値でなければなりません"
msgid "'x', 'y', 'width', and 'height' must all be units of length 1"
msgstr "'x', 'y', 'width', 'height' は全て長さ 1 の単位(units)でなければなりません"
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' 値です" -- &new{2005-03-27 (日) 20:02:58};
-"1 つのオペランド(operand)のみが単位(units)となります" => "一つのオペランド(operand)のみが単位(units)となれます"。operand は訳せば「被演算項」でしょうか。二項演算子等の引数のことだと思います。 -- &new{2005-03-27 (日) 20:08:43};
#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 be a 'vpList' in 'vpTree'"
msgstr "'parent' は viewport でなければならず，'children' は 'vpTree' 中の 'vpList' でなければなりません"
msgid "A viewport path must contain at least one viewport name"
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 when 'at' is NULL")
components.R- # Must be either language object or string
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" locations
components.R- if (length(x$label) != length(x$at))
components.R: stop("'labels' and 'at' locations must have same length")
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 spec or not
edit.R- newx <- do.call("editGrob", c(list(x), edit))
edit.R- # If edit was specified for non-existent child, newx will be NULL
--
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' objects")
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.height=FALSE,
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 want to know
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 want to know
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' name")
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=.grid.pathSep),
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 cell in frame layout)")
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 which is outside 1..ncol
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 existing columns")
frames.R- else
frames.R- result <- FALSE
frames.R- # It is also an error to specify a single col outside 1..ncol+1
Invalid 'col' specification
frames.R- # It is also an error to specify a single col outside 1..ncol+1
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 which is outside 1..nrow
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 existing rows")
frames.R- else
frames.R- result <- FALSE
frames.R- # It is also an error to specify a single row outside 1..nrow+1
Invalid 'row' specification
frames.R- # It is also an error to specify a single row outside 1..nrow+1
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"]', 'col', 'col.before', or 'col.after'
Must specify exactly one of 'side=["top", "bottom"]', 'row', 'row.before',
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 be length 0", gparname),
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 'fontface'")
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 font face"))
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 'wrap=TRUE')
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 not be faithful;
try 'wrap=TRUE')")
grab.R- }
grab.R- grid.newpage(recording=FALSE)
grab.R- # Start at 2 because first element is viewport[ROOT]
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 MAY not be faithful)")
grab.R- }
grab.R- if (!is.null(tempvp))
grab.R- tempdepth <- depth(tempvp)
--
grab.R- # Check to see if about to push a viewport
grab.R- # with existing viewport name
grab.R- if (vpExists(elt))
grab.R: warning("viewport overwritten (grab MAY not be faithful)")
grab.R- grid.draw(elt, recording=FALSE)
grab.R- ###########
grab.R- # grabPop
grob pushed viewports and did not pop/up them (grab MAY not be faithful)
grab.R- pathSame = FALSE
grab.R- }
grab.R- if (!pathSame)
grab.R: warning("grob pushed viewports and did not pop/up them
(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", as.character(name)),
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 place.
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 list")
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=TRUE) {
grob.R: warning("grid.grob() is deprecated; please use grob() instead")
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' name")
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' name")
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=.grid.pathSep),
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 a 'gTree'")
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=FALSE, global=FALSE,
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, allDevices=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, allDevices=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, allDevices=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"))
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, global)
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, grep)
grob.R- # result$index will be non-zero if matched the 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 (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, global, redraw)
grob.R-}
--
grob.R- if (!inherits(gTree, "gTree"))
grob.R- stop("It is only valid to add a child to a 'gTree'")
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, grep, global)
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, global, warn, redraw)
--
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, global, redraw)
--
grob.R- if (!inherits(grob, "gTree"))
grob.R- stop("It is only valid to edit a child of a 'gTree'")
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, grep, global)
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 'gTree'")
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), domain = NA)
grob.R- }
grob.R- } else {
grob.R: stop("'gPath' does not specify a valid child")
grob.R- }
grob.R- } else {
grob.R- gTree <- setGTree(gTree, NULL, gPath, newGrob, strict, grep)
grob.R- if (is.null(gTree))
grob.R: stop("'gPath' does not specify a valid child")
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 (i.e., no global arg)
grob.R-setGrob <- function(gTree, gPath, newGrob, strict=FALSE, grep=FALSE) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to set a child of a 'gTree'")
grob.R- if (!inherits(newGrob, "grob"))
grob.R- stop("It is only valid to set a 'grob' as child of a 'gTree'")
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 'gTree'")
grob.R- if (!inherits(newGrob, "grob"))
grob.R: stop("It is only valid to set a 'grob' as child of a 'gTree'")
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], newGrob$name, nomatch=FALSE)) {
grob.R- gTree$children[[newGrob$name]] <- newGrob
grob.R- } else {
grob.R: stop(gettextf("New 'grob' name (%s) does not match 'gPath' (%s)",
grob.R- newGrob$name, gPath), domain = NA)
grob.R- }
grob.R- } else {
It is only valid to add a 'grob' to a 'gTree'
grob.R-addGrob <- function(gTree, child, gPath=NULL, strict=FALSE,
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 'gTree'")
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 gTree
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to add a child to a 'gTree'")
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 'gTree'")
grob.R- gTree$children[[child$name]] <- child
grob.R- # Handle case where child name already exists (so will be overwritten)
grob.R- if (old.pos <- match(child$name, gTree$childrenOrder, nomatch=0))
--
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 'gTree'")
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, warn=TRUE) {
grob.R- if (!inherits(gTree, "gTree"))
grob.R: stop("It is only valid to remove a child from a 'gTree'")
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 a 'gTree'")
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 gTree
grob.R- if (!inherits(grob, "gTree"))
grob.R: stop("It is only valid to edit a child of a 'gTree'")
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 'childrenOrder' slot
grob.R-editDetails.gTree <- function(x, specs) {
grob.R- # Disallow editing children or childrenOrder slots directly
grob.R- if (any(match(specs, c("children", "childrenOrder"), nomatch=FALSE)))
grob.R: stop("It is invalid to directly edit the 'children' or 'childrenOrder' slot")
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]] <- newGrob
grob.R- found <- TRUE
grob.R- } else {
grob.R: stop("The new 'grob' must have the same name as the old 'grob'")
grob.R- }
grob.R- } else {
grob.R- if (is.null(pathsofar))
--
grob.R- if (match(grob$name, newGrob$name, nomatch=FALSE))
grob.R- newGrob
grob.R- else
grob.R: stop("The new 'grob' must have the same name as the old 'grob'")
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), domain = NA)
grob.R- # Check grob slots are ok before trying to do anything with them
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.character(gPath)), domain = NA)
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), domain = NA)
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), domain = NA)
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", gPath), domain = NA)
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), domain = NA)
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), domain = NA)
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 been removed
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 versions.
grob.R-}
grob.R-
grob.R-grid.copy <- function(grob) {
grob.R: warning("This function is redundant and will disappear in future versions.")
grob.R- grob
grob.R-}
grob.R-
'l' must be a layout
highlevel.R- cell.label=TRUE, label.col="blue",
highlevel.R- unit.col="red", vp=NULL) {
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 length")
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 length")
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, 2), vp=vp, gp=gp,
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", "right", "bottom", "top",
just.R- "centre", "center")) - 1)
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", "centre", or "center"
just.R- just[1] <- as.integer(match(just[1], c("left", "right", "bottom",
"top",
--
just.R- switch(just[2] + 1, NA, NA, 0, 1, 0.5, 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", "right", "bottom",
"top",
just.R- "centre", "center")) - 1)
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", "centre", or "center"
just.R- just[2] <- as.integer(match(just[2], c("left", "right", "bottom",
"top",
just.R- "centre", "center")) - 1)
Invalid vertical justification
just.R- just[2] <- as.integer(match(just[2], c("left", "right", "bottom",
"top",
just.R- "centre", "center")) - 1)
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) != c(nrow, ncol)))
layout.R: stop("'respect' must be logical or an 'nrow' by 'ncol' matrix")
layout.R- }
layout.R- if (is.matrix(respect)) {
layout.R- respect.mat <- matrix(as.integer(respect),
Invalid 'origin'
origin.R- c("bottom.left", "top.left",
origin.R- "bottom.right", "top.right")) - 1)
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$y) > 1)
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$y) > 1)
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("first", "last", "both")))
--
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.lengths))
primitives.R- stop("It is invalid to specify both 'id' and 'id.lengths")
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$rot) == 0)
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$y) > 1)
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$y) > 1)
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 be units")
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("first", "last", "both")))
'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("first", "last", "both")))
primitives.R- x$type <- as.integer(match(x$type, c("open", "closed")))
primitives.R- if (any(is.na(x$ends)) || any(is.na(x$type)))
Invalid 'ends' or 'type' argument
primitives.R- x$ends <- as.integer(match(x$ends, c("first", "last", "both")))
primitives.R- x$type <- as.integer(match(x$type, c("open", "closed")))
primitives.R- if (any(is.na(x$ends)) || any(is.na(x$type)))
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=TRUE) {
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 dispatch, but that really
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 'segments' grob
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 'line.to', 'lines', or
'segments' grob")
primitives.R- x <- y <- NULL
primitives.R- }
primitives.R- gTree(x=x, y=y, children=if (is.null(grob)) NULL else gList(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.lengths))
primitives.R: stop("It is invalid to specify both 'id' and 'id.lengths")
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) != unit.length(x$x)))
'x' and 'y' must be same length
primitives.R- if (!is.null(x$id) && !is.null(x$id.lengths))
primitives.R- stop("It is invalid to specify both 'id' and 'id.lengths")
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) != unit.length(x$x)))
primitives.R- stop("'x' and 'y' and 'id' must all be same length")
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) != unit.length(x$x)))
primitives.R: stop("'x' and 'y' and 'id' must all be same length")
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.lengths) != unit.length(x$x)))
'x' and 'y' and 'id.lengths' must specify same overall length
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.lengths) != unit.length(x$x)))
primitives.R: stop("'x' and 'y' and 'id.lengths' must specify same overall
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' must be units")
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$rot) == 0)
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 and have the same length")
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 and have the same length")
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, length(x)))
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")) - 1)
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(whatfrom),
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(whatfrom),
unit.R- as.integer(whatto), valid.units(unitTo))
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.expression(data[[i]]))))
unit.R: stop("No string supplied for 'strwidth' unit")
unit.R- str.units <- (units == "strheight" | units == "mystrheight")
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.expression(data[[i]]))))
unit.R: stop("No string supplied for 'strheight' unit")
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[[i]], "gPath") ||
unit.R- is.character(data[[i]]))))
unit.R: stop("No 'grob' supplied for 'grobwidth' unit")
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 'grobwidth/height' units")
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 'grobwidth/height' units")
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[[i]], "gPath") ||
unit.R- is.character(data[[i]]))))
unit.R: stop("No 'grob' supplied for 'grobheight' unit")
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, "*"=TRUE, FALSE)
unit.R- if (!ok)
unit.R: stop(gettextf("Operator '%s' not meaningful for units", .Generic),
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), e1)
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), e2)
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, "sum"=TRUE, FALSE)
unit.R- if (!ok)
unit.R: stop(gettextf("'Summary' function '%s' not meaningful for units",
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 expected")
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 expected")
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 subsetting)")
unit.R- switch(x$fname,
unit.R- "+"="["(x$arg1, (index - 1) %% this.length + 1, top=FALSE) +
unit.R- "["(x$arg2, (index - 1) %% this.length + 1, top=FALSE),
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 subsetting)")
unit.R- cl <- class(x)
unit.R- result <- unclass(x)[(index - 1) %% this.length + 1]
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 objects with other types")
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 length 1
viewport.R- name) {
viewport.R- if (unit.length(x) > 1 || unit.length(y) > 1 ||
viewport.R- unit.length(width) > 1 || unit.length(height) > 1)
viewport.R: stop("'x', 'y', 'width', and 'height' must all be units of
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(height) > 1)
viewport.R- stop("'x', 'y', 'width', and 'height' must all be units of
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) != 2 ||
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) != 2 ||
viewport.R- any(!is.finite(xscale)))
viewport.R: stop("Invalid 'xscale' in viewport")
viewport.R- if (!is.numeric(yscale) || length(yscale) != 2 ||
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) != 2 ||
viewport.R- any(!is.finite(yscale)))
viewport.R: stop("Invalid 'yscale' in viewport")
viewport.R- if (!is.numeric(angle) || length(angle) != 1 ||
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) != 1 ||
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.pos.row))
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.pos.row))
viewport.R- if (any(!is.finite(layout.pos.row)))
viewport.R: stop("Invalid 'layout.pos.row' in viewport")
viewport.R- }
viewport.R- if (!is.null(layout.pos.col)) {
viewport.R- layout.pos.col <- as.integer(range(layout.pos.col))
Invalid 'layout.pos.col' in viewport
viewport.R- if (!is.null(layout.pos.col)) {
viewport.R- layout.pos.col <- as.integer(range(layout.pos.col))
viewport.R- if (any(!is.finite(layout.pos.col)))
viewport.R: stop("Invalid 'layout.pos.col' in viewport")
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 'vpList' in 'vpTree'
viewport.R- class(tree) <- c("vpTree", "viewport")
viewport.R- tree
viewport.R- } else {
viewport.R: stop("'parent' must be a viewport and 'children' must be a 'vpList' in 'vpTree'")
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 least one viewport name")
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 least one viewport name")
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=.grid.pathSep),
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' or 'xscale'")
viewport.R- xscale <- range(xData) + c(-1, 1)*diff(range(xData))*extension[1]
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' or 'yscale'")
viewport.R- yscale <- range(yData) + c(-1, 1)*diff(range(yData))*extension[2]
viewport.R- }
viewport.R- viewport(xscale=xscale, yscale=yscale, ...)
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
