qtbase: Interface Between R and 'Qt'

### Explicit coercion functions for translating some simple Qt data
### structures to and from native R objects, like vectors and matrices.

## These are all from C++ to R. For the other direction, see constructors.R.

as.matrix.QRectF <- function(x, ...) .Call("qt_coerce_QRectF", x, PACKAGE="qtbase")
as.matrix.QRect <- function(x, ...) .Call("qt_coerce_QRect", x, PACKAGE="qtbase")

as.vector.QPointF <- function(x, mode) as.vector(as.double(x), mode)
as.double.QPointF <- function(x, ...) .Call("qt_coerce_QPointF", x, PACKAGE="qtbase")
as.vector.QPoint <- function(x, mode) as.vector(as.integer(x), mode)
as.integer.QPoint <- function(x, ...) .Call("qt_coerce_QPoint", x, PACKAGE="qtbase")
## so that as.numeric() works in either case
as.double.QPoint <- function(x, ...) as.numeric(as.integer(x))

as.vector.QSizeF <- function(x, mode) as.vector(as.double(x), mode)
as.double.QSizeF <- function(x, ...) .Call("qt_coerce_QSizeF", x, PACKAGE="qtbase")
as.vector.QSize <- function(x, mode) as.vector(as.integer(x), mode)
as.integer.QSize <- function(x, ...) .Call("qt_coerce_QSize", x, PACKAGE="qtbase")
as.double.QSize <- function(x, ...) as.numeric(as.integer(x))

as.matrix.QPolygon <- function(x, ...) .Call("qt_coerce_QPolygon", x, PACKAGE="qtbase")
as.matrix.QPolygonF <- function(x, ...) .Call("qt_coerce_QPolygonF", x, PACKAGE="qtbase")

as.matrix.QTransform <- function(x, ...) .Call("qt_coerce_QTransform", x, PACKAGE="qtbase")

qcol2rgb <- as.matrix.QColor <- function(x, ...) .Call("qt_coerce_QColor", x, PACKAGE="qtbase")

as.character.QChar <- function(x, ...) .Call("qt_coerce_QChar", x, PACKAGE="qtbase")

as.list.QItemSelection <- function(x, ...) .Call("qt_coerce_QItemSelection", x, PACKAGE="qtbase")

as.list.QTestEventList <- function(x, ...) .Call("qt_coerce_QTestEventList", x, PACKAGE="qtbase")
as.list.QSignalSpy <- function(x, ...) .Call("qt_coerce_QSignalSpy", x, PACKAGE="qtbase")

as.vector.QMargins <- function(x, mode) as.vector(as.integer(x), mode)
as.integer.QMargins <- function(x, ...) .Call("qt_coerce_QMargins", x, PACKAGE="qtbase")

as.vector.QMarginsF <- function(x, mode) as.vector(as.integer(x), mode)
as.integer.QMarginsF <- function(x, ...) .Call("qt_coerce_QMarginsF", x, PACKAGE="qtbase")