From 2531c8e90040ee52d6ebf908148d5d4945aa4ddc Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Sun, 20 Sep 2015 10:58:23 -0300
Subject: [PATCH] Close #8 yscale.component.right by yscale.components.right.
---
NAMESPACE | 2 +-
R/yscale.components.right.R | 4 ++--
man/yscale.components.right.Rd | 5 ++---
3 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/NAMESPACE b/NAMESPACE
index e7def8d..8ac4330 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -10,7 +10,7 @@ export(polyGui)
export(runAllChunks)
export(subsetDropAll)
export(twoStripCombined)
-export(yscale.component.right)
+export(yscale.components.right)
import(RWordPress)
import(gWidgets)
import(gWidgetstcltk)
diff --git a/R/yscale.components.right.R b/R/yscale.components.right.R
index afbce1c..7e6995b 100644
--- a/R/yscale.components.right.R
+++ b/R/yscale.components.right.R
@@ -37,7 +37,7 @@
#' p3 <- xyplot(yield~K|N+P, data=npk,
#' scales=list(y=list(relation="free", alternating=2)),
#' ylab=NULL, ylab.right="Yield",
-#' yscale.component=yscale.component.right,
+#' yscale.component=yscale.components.right,
#' between=list(x=0.5, y=0.2),
#' par.settings=list(
#' layout.widths=list(
@@ -48,7 +48,7 @@
#' )
#' useOuterStrips(p3)
#'
-yscale.component.right <- function(...){
+yscale.components.right <- function(...){
ans <- yscale.components.default(...)
ans$right <- ans$left
ans$left <- NULL
diff --git a/man/yscale.components.right.Rd b/man/yscale.components.right.Rd
index cfe1220..7d94a5b 100644
--- a/man/yscale.components.right.Rd
+++ b/man/yscale.components.right.Rd
@@ -1,7 +1,6 @@
% Generated by roxygen2 (4.1.1): do not edit by hand
% Please edit documentation in R/yscale.components.right.R
\name{yscale.components.right}
-\alias{yscale.component.right}
\alias{yscale.components.right}
\title{y-axis annotations on the right side}
\source{
@@ -10,7 +9,7 @@ When such feature was necessary, a search in the web was done
\code{http://r.789695.n4.nabble.com/Spacing-between-lattice-panels-td855613.html}.
}
\usage{
-yscale.component.right(...)
+yscale.components.right(...)
}
\arguments{
\item{...}{arguments passed by the lattice function called. See
@@ -38,7 +37,7 @@ useOuterStrips(p2)
p3 <- xyplot(yield~K|N+P, data=npk,
scales=list(y=list(relation="free", alternating=2)),
ylab=NULL, ylab.right="Yield",
- yscale.component=yscale.component.right,
+ yscale.component=yscale.components.right,
between=list(x=0.5, y=0.2),
par.settings=list(
layout.widths=list(
--
GitLab