R/doclick.R

In WindCurves: Tool to Fit Wind Turbine Power Curves

do.click <- function(unit) {
  click.locn <- grid.locator(unit)
  grid.segments(unit.c(click.locn$x, unit(0, "npc")),
                unit.c(unit(0, "npc"), click.locn$y),
                click.locn$x, click.locn$y,
                gp=gpar(lty="dashed", col="grey"))
  grid.points(click.locn$x, click.locn$y, pch=16, size=unit(1, "mm"))
  clickx <- unittrim(click.locn$x)
  clicky <- unittrim(click.locn$y)
  #grid.text(paste0("(", clickx, ", ", clicky, ")"),
  #          click.locn$x + unit(2, "mm"), click.locn$y,
  #          just="left")
  return(c(click.locn$x, click.locn$y))
}