Plot window with quartz() specify xpos or bypass xpos

Question

In ubuntu, you can do x11(xpos, ypos) to specify the position of the window.

Option A

Is it posswible to do this in MacOS using quartz() ?

Option B

Most of my googling tells me option A is not possible, so can we by pass it?

I try to overwrite the original quartz function but it fails, somehow not being able to perform d <- check.options(new, name.opt = ".quartz.Options", envir =.Quartzenv) because "no.Quartzenv" and if I tweak conditions to have a q_options <<- quartz.options() it fails on the.External call, saying that can't do C_quartz.

What is going on?

    quartz <- function (title, width, height, pointsize, family, antialias,
                        type, file = NULL, bg, canvas, dpi, xpos=NULL, ypos=NULL)
    {
      if (missing(type) || type %in% c("", "native", "Cocoa")) {
        check <- Sys.getenv("_R_CHECK_SCREEN_DEVICE_", "")
        msg <- "screen devices should not be used in examples etc"
        if (identical(check, "stop"))
          stop(msg, domain = NA)
        else if (identical(check, "warn"))
          warning(msg, immediate. = TRUE, noBreaks. = TRUE,
                  domain = NA)
      }

      if(!is.null(xpos)){
        warning("MacOS quartz does not accept `xpos`. Not using parameter")
      }
      if(!is.null(xpos)){
        warning("MacOS quartz does not accept `ypos`. Not using parameter")
      }

      new <- list()
      if (!missing(title))
        new$title <- title
      if (!missing(width))
        new$width <- width
      if (!missing(height))
        new$height <- height
      if (!missing(pointsize))
        new$pointsize <- pointsize
      if (!missing(family))
        new$family <- family
      if (!missing(antialias))
        new$antialias <- antialias
      if (!missing(bg))
        new$bg <- bg
      if (!missing(canvas))
        new$canvas <- canvas
      if (!missing(type))
        new$type <- type
      if (!missing(dpi))
        new$dpi <- dpi
      if (!grDevices:::checkIntFormat(new$title))
        stop("invalid 'title'")
      if (!is.null(file) && !grDevices:::checkIntFormat(file))
        stop("invalid 'file'")
      d <- check.options(new, name.opt = ".quartz.Options", envir = .Quartzenv)
      .External(C_Quartz, d$type, file, d$width, d$height, d$pointsize,
                d$family, d$antialias, d$title, d$bg, d$canvas, if (is.na(d$dpi)) NULL else d$dpi)
      invisible()
    }
    assign("quartz", quartz, envir = .GlobalEnv)