R-grid.pot の和訳とチェックのページ

以下は R-grid.pot の素(粗)訳です.元ファイルと各メッセージのソース部分 を取り出したファイルを添付します.

舟尾 (第一稿 2005.03.27)


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 "不正なフォントの書体です"

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' の名前です"

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' です"

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 でなければなりません"

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)を与える文字列がありません"

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' が不正です"

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' のうち少なくとも一つを特定しなければなりません"

ソース

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, ...)

添付ファイル: fileR-grid_050330.pot 927件 [詳細] fileR-grid.pot 1072件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:16