Skip to content
Snippets Groups Projects
Commit 2531c8e9 authored by Walmes Zeviani's avatar Walmes Zeviani
Browse files

Close #8 yscale.component.right by yscale.components.right.

parent f2c389c2
No related branches found
No related tags found
No related merge requests found
...@@ -10,7 +10,7 @@ export(polyGui) ...@@ -10,7 +10,7 @@ export(polyGui)
export(runAllChunks) export(runAllChunks)
export(subsetDropAll) export(subsetDropAll)
export(twoStripCombined) export(twoStripCombined)
export(yscale.component.right) export(yscale.components.right)
import(RWordPress) import(RWordPress)
import(gWidgets) import(gWidgets)
import(gWidgetstcltk) import(gWidgetstcltk)
......
...@@ -37,7 +37,7 @@ ...@@ -37,7 +37,7 @@
#' p3 <- xyplot(yield~K|N+P, data=npk, #' p3 <- xyplot(yield~K|N+P, data=npk,
#' scales=list(y=list(relation="free", alternating=2)), #' scales=list(y=list(relation="free", alternating=2)),
#' ylab=NULL, ylab.right="Yield", #' ylab=NULL, ylab.right="Yield",
#' yscale.component=yscale.component.right, #' yscale.component=yscale.components.right,
#' between=list(x=0.5, y=0.2), #' between=list(x=0.5, y=0.2),
#' par.settings=list( #' par.settings=list(
#' layout.widths=list( #' layout.widths=list(
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
#' ) #' )
#' useOuterStrips(p3) #' useOuterStrips(p3)
#' #'
yscale.component.right <- function(...){ yscale.components.right <- function(...){
ans <- yscale.components.default(...) ans <- yscale.components.default(...)
ans$right <- ans$left ans$right <- ans$left
ans$left <- NULL ans$left <- NULL
......
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2 (4.1.1): do not edit by hand
% Please edit documentation in R/yscale.components.right.R % Please edit documentation in R/yscale.components.right.R
\name{yscale.components.right} \name{yscale.components.right}
\alias{yscale.component.right}
\alias{yscale.components.right} \alias{yscale.components.right}
\title{y-axis annotations on the right side} \title{y-axis annotations on the right side}
\source{ \source{
...@@ -10,7 +9,7 @@ When such feature was necessary, a search in the web was done ...@@ -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}. \code{http://r.789695.n4.nabble.com/Spacing-between-lattice-panels-td855613.html}.
} }
\usage{ \usage{
yscale.component.right(...) yscale.components.right(...)
} }
\arguments{ \arguments{
\item{...}{arguments passed by the lattice function called. See \item{...}{arguments passed by the lattice function called. See
...@@ -38,7 +37,7 @@ useOuterStrips(p2) ...@@ -38,7 +37,7 @@ useOuterStrips(p2)
p3 <- xyplot(yield~K|N+P, data=npk, p3 <- xyplot(yield~K|N+P, data=npk,
scales=list(y=list(relation="free", alternating=2)), scales=list(y=list(relation="free", alternating=2)),
ylab=NULL, ylab.right="Yield", ylab=NULL, ylab.right="Yield",
yscale.component=yscale.component.right, yscale.component=yscale.components.right,
between=list(x=0.5, y=0.2), between=list(x=0.5, y=0.2),
par.settings=list( par.settings=list(
layout.widths=list( layout.widths=list(
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment