R/ggScalebar.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

#' Title
#'
#' @param xunit
#' @param yunit
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
#' library(ggplot2)
#'ggplot(mtcars, aes(cyl, mpg)) + geom_point()  ->p

#'p

#'p + coord_scalebar( "ms", "pA" ) + theme_scalebar()
#'p + ggScalebar(" min", " nA")
#'p + ggScalebar(" min", " nA",  xlab.pos="t")

ggScalebar<-function(xunit,yunit,...){
  list(
    coord_scalebar(xunit,yunit, ... ),
    theme_scalebar(...)
  )
}