R/scatterTileTraceDefaults.R

In chrisadolph/tileForShiny: Plot multiple graphical displays in a tiled layout with automated or customizable titles, axes, and annotations

scatterTileTraceDefaults <- function(x=NULL,
                                     y=NULL,
                                     top=NULL,
                                     right=NULL,
                                     xlower=NULL,
                                     xupper=NULL,
                                     ylower=NULL,
                                     yupper=NULL,
                                     toplower=NULL,
                                     topupper=NULL,
                                     rightlower=NULL,
                                     rightupper=NULL,
                                     attachToTop=NULL,
                                     attachToRight=NULL,
                                     simulates=NULL,
                                     factors=c("x","y","top","right"),
                                     xdatalimits=c("x","hlower","hupper"),
                                     ydatalimits=c("y","lower","upper"),
                                     xtransform=c("x","hlower","hupper"),
                                     ytransform=c("y","lower","upper"),
                                     extrapolate=NULL,
                                     graphic="scatter",
                                     plot=NULL,               # need a default?
                                     layer=NULL,
                                     fit=NULL,
                                     upper=NULL,
                                     lower=NULL,
                                     se=NULL,
                                     markers=TRUE,
                                     labels=NULL,
                                     labelsxoffset=0,
                                     labelsyoffset=0,
                                     fill="transparent",
                                     col="black",
                                     lty="solid",
                                     lwd=1,
                                     cex=1,
                                     fontsize=12,
                                     lineheight=1.2,
                                     font=1,
                                     fontfamily="",
                                     fontface="plain",
                                     alpha=1,                   # only if pdf
                                     lineend="round",
                                     linejoin="round",
                                     linemitre=10,
                                     lex=1,
                                     pch=16,
                                     size=0.33,
                                     addArrow=FALSE,
                                     angleArrow=30,
                                     lengthArrow=unit(0.25, "inches"),
                                     endsArrow="last",
                                     typeArrow="open",
                                     just="centre",
                                     hjust=NULL,
                                     vjust=NULL,
                                     rot=0,
                                     check.overlap=FALSE,
                                     clip="on",
                                     lighten=0.75,
                                     polyalpha=0.8,            # only if pdf
                                     connect=FALSE
                                     ) {

    fitdefault <- list(method=NULL,
                      ci=0.95,
                      mark="shaded",
                      col="black",
                       weights=NULL
                      )

    cidefault <- list(levels=c(0.95),
                      mark=c("lines")
                      )

    
    extrapolatedefault <- list(formula=NULL,
                               data=NULL,
                               cfact=NULL,
                               control=NULL,
                               omit.extrapolated=FALSE
                               )
    
    defaults <- list(x=x,
                     y=y,
                     top=top,
                     right=right,
                     xlower=xlower,
                     xupper=xupper,
                     ylower=ylower,
                     yupper=yupper,
                     toplower=toplower,
                     topupper=topupper,
                     rightlower=rightlower,
                     rightupper=rightupper,
                     attachToTop=attachToTop,
                     attachToRight=attachToRight,
                     simulates=simulates,
                     factors=factors,
                     xdatalimits=xdatalimits,
                     ydatalimits=ydatalimits,
                     xtransform=xtransform,
                     ytransform=ytransform,
                     extrapolatedefault=extrapolatedefault,
                     cidefault=cidefault,
                     graphic=graphic,
                     plot=plot,
                     layer=layer,
                     fitdefault=fitdefault,
                     upper=upper,
                     lower=lower,
                     se=se,
                     markers=markers,
                     labels=labels,
                     labelsxoffset=labelsxoffset,
                     labelsyoffset=labelsyoffset,         
                     fill=fill,
                     col=col,
                     lty=lty,
                     lwd=lwd,
                     cex=cex,
                     fontsize=fontsize,
                     lineheight=lineheight,
                     font=font,
                     fontfamily=fontfamily,
                     fontface=fontface,
                     alpha=alpha,
                     lineend=lineend,
                     linejoin=linejoin,
                     linemitre=linemitre,
                     lex=lex,
                     pch=pch,
                     size=size,
                     addArrow=addArrow,
                     angleArrow=angleArrow,
                     lengthArrow=lengthArrow,
                     endsArrow=endsArrow,
                     typeArrow=typeArrow,
                     just=just,
                     hjust=hjust,
                     vjust=vjust,
                     rot=rot,
                     check.overlap=check.overlap,
                     clip=clip,
                     lighten=lighten,
                     polyalpha=polyalpha,
                     connect=connect
                     )
    
    defaults

}