R/cwrapper.R

In dggridR: Discrete Global Grids

#' @name dgGEO_to_GEO
#' 
#' @title      Convert from GEO to GEO
#'
#' @description
#'             Uses a discrete global grid system to convert between GEO
#'             and GEO (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_lon_deg  Vector of longitude, in degrees
#' @param in_lat_deg  Vector of latitude, in degrees
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgGEO_to_GEO(dggs, in_lon_deg, in_lat_deg)
#' }
#'
#' @export 
dgGEO_to_GEO <- function(dggs, in_lon_deg, in_lat_deg){
  dgverify(dggs)

  N <- length(in_lon_deg)
  out_lon_deg <- rep(0,N)
  out_lat_deg <- rep(0,N)

  GEO_to_GEO(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_lon_deg, in_lat_deg, out_lon_deg, out_lat_deg)

  list(
    lon_deg = out_lon_deg,
    lat_deg = out_lat_deg
  )
}

#' @name dgGEO_to_PROJTRI
#' 
#' @title      Convert from GEO to PROJTRI
#'
#' @description
#'             Uses a discrete global grid system to convert between GEO
#'             and PROJTRI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_lon_deg  Vector of longitude, in degrees
#' @param in_lat_deg  Vector of latitude, in degrees
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgGEO_to_PROJTRI(dggs, in_lon_deg, in_lat_deg)
#' }
#'
#' @export 
dgGEO_to_PROJTRI <- function(dggs, in_lon_deg, in_lat_deg){
  dgverify(dggs)

  N <- length(in_lon_deg)
  out_tnum <- rep(0,N)
  out_tx <- rep(0,N)
  out_ty <- rep(0,N)

  GEO_to_PROJTRI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_lon_deg, in_lat_deg, out_tnum, out_tx, out_ty)

  list(
    tnum = out_tnum,
    tx = out_tx,
    ty = out_ty
  )
}

#' @name dgGEO_to_Q2DD
#' 
#' @title      Convert from GEO to Q2DD
#'
#' @description
#'             Uses a discrete global grid system to convert between GEO
#'             and Q2DD (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_lon_deg  Vector of longitude, in degrees
#' @param in_lat_deg  Vector of latitude, in degrees
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgGEO_to_Q2DD(dggs, in_lon_deg, in_lat_deg)
#' }
#'
#' @export 
dgGEO_to_Q2DD <- function(dggs, in_lon_deg, in_lat_deg){
  dgverify(dggs)

  N <- length(in_lon_deg)
  out_quad <- rep(0,N)
  out_qx <- rep(0,N)
  out_qy <- rep(0,N)

  GEO_to_Q2DD(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_lon_deg, in_lat_deg, out_quad, out_qx, out_qy)

  list(
    quad = out_quad,
    qx = out_qx,
    qy = out_qy
  )
}

#' @name dgGEO_to_Q2DI
#' 
#' @title      Convert from GEO to Q2DI
#'
#' @description
#'             Uses a discrete global grid system to convert between GEO
#'             and Q2DI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_lon_deg  Vector of longitude, in degrees
#' @param in_lat_deg  Vector of latitude, in degrees
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgGEO_to_Q2DI(dggs, in_lon_deg, in_lat_deg)
#' }
#'
#' @export 
dgGEO_to_Q2DI <- function(dggs, in_lon_deg, in_lat_deg){
  dgverify(dggs)

  N <- length(in_lon_deg)
  out_quad <- rep(0,N)
  out_i <- rep(0,N)
  out_j <- rep(0,N)

  GEO_to_Q2DI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_lon_deg, in_lat_deg, out_quad, out_i, out_j)

  list(
    quad = out_quad,
    i = out_i,
    j = out_j
  )
}

#' @name dgGEO_to_SEQNUM
#' 
#' @title      Convert from GEO to SEQNUM
#'
#' @description
#'             Uses a discrete global grid system to convert between GEO
#'             and SEQNUM (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_lon_deg  Vector of longitude, in degrees
#' @param in_lat_deg  Vector of latitude, in degrees
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgGEO_to_SEQNUM(dggs, in_lon_deg, in_lat_deg)
#' }
#'
#' @export 
dgGEO_to_SEQNUM <- function(dggs, in_lon_deg, in_lat_deg){
  dgverify(dggs)

  N <- length(in_lon_deg)
  out_seqnum <- rep(0,N)

  GEO_to_SEQNUM(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_lon_deg, in_lat_deg, out_seqnum)

  list(
    seqnum = out_seqnum
  )
}

#' @name dgGEO_to_PLANE
#' 
#' @title      Convert from GEO to PLANE
#'
#' @description
#'             Uses a discrete global grid system to convert between GEO
#'             and PLANE (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_lon_deg  Vector of longitude, in degrees
#' @param in_lat_deg  Vector of latitude, in degrees
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgGEO_to_PLANE(dggs, in_lon_deg, in_lat_deg)
#' }
#'
#' @export 
dgGEO_to_PLANE <- function(dggs, in_lon_deg, in_lat_deg){
  dgverify(dggs)

  N <- length(in_lon_deg)
  out_px <- rep(0,N)
  out_py <- rep(0,N)

  GEO_to_PLANE(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_lon_deg, in_lat_deg, out_px, out_py)

  list(
    px = out_px,
    py = out_py
  )
}

#' @name dgPROJTRI_to_GEO
#' 
#' @title      Convert from PROJTRI to GEO
#'
#' @description
#'             Uses a discrete global grid system to convert between PROJTRI
#'             and GEO (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_tnum  Vector of triangle numbers
#' @param in_tx  Vector of triangle x values
#' @param in_ty  Vector of triangle y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgPROJTRI_to_GEO(dggs, in_tnum, in_tx, in_ty)
#' }
#'
#' @export 
dgPROJTRI_to_GEO <- function(dggs, in_tnum, in_tx, in_ty){
  dgverify(dggs)

  N <- length(in_tnum)
  out_lon_deg <- rep(0,N)
  out_lat_deg <- rep(0,N)

  PROJTRI_to_GEO(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_tnum, in_tx, in_ty, out_lon_deg, out_lat_deg)

  list(
    lon_deg = out_lon_deg,
    lat_deg = out_lat_deg
  )
}

#' @name dgPROJTRI_to_PROJTRI
#' 
#' @title      Convert from PROJTRI to PROJTRI
#'
#' @description
#'             Uses a discrete global grid system to convert between PROJTRI
#'             and PROJTRI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_tnum  Vector of triangle numbers
#' @param in_tx  Vector of triangle x values
#' @param in_ty  Vector of triangle y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgPROJTRI_to_PROJTRI(dggs, in_tnum, in_tx, in_ty)
#' }
#'
#' @export 
dgPROJTRI_to_PROJTRI <- function(dggs, in_tnum, in_tx, in_ty){
  dgverify(dggs)

  N <- length(in_tnum)
  out_tnum <- rep(0,N)
  out_tx <- rep(0,N)
  out_ty <- rep(0,N)

  PROJTRI_to_PROJTRI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_tnum, in_tx, in_ty, out_tnum, out_tx, out_ty)

  list(
    tnum = out_tnum,
    tx = out_tx,
    ty = out_ty
  )
}

#' @name dgPROJTRI_to_Q2DD
#' 
#' @title      Convert from PROJTRI to Q2DD
#'
#' @description
#'             Uses a discrete global grid system to convert between PROJTRI
#'             and Q2DD (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_tnum  Vector of triangle numbers
#' @param in_tx  Vector of triangle x values
#' @param in_ty  Vector of triangle y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgPROJTRI_to_Q2DD(dggs, in_tnum, in_tx, in_ty)
#' }
#'
#' @export 
dgPROJTRI_to_Q2DD <- function(dggs, in_tnum, in_tx, in_ty){
  dgverify(dggs)

  N <- length(in_tnum)
  out_quad <- rep(0,N)
  out_qx <- rep(0,N)
  out_qy <- rep(0,N)

  PROJTRI_to_Q2DD(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_tnum, in_tx, in_ty, out_quad, out_qx, out_qy)

  list(
    quad = out_quad,
    qx = out_qx,
    qy = out_qy
  )
}

#' @name dgPROJTRI_to_Q2DI
#' 
#' @title      Convert from PROJTRI to Q2DI
#'
#' @description
#'             Uses a discrete global grid system to convert between PROJTRI
#'             and Q2DI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_tnum  Vector of triangle numbers
#' @param in_tx  Vector of triangle x values
#' @param in_ty  Vector of triangle y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgPROJTRI_to_Q2DI(dggs, in_tnum, in_tx, in_ty)
#' }
#'
#' @export 
dgPROJTRI_to_Q2DI <- function(dggs, in_tnum, in_tx, in_ty){
  dgverify(dggs)

  N <- length(in_tnum)
  out_quad <- rep(0,N)
  out_i <- rep(0,N)
  out_j <- rep(0,N)

  PROJTRI_to_Q2DI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_tnum, in_tx, in_ty, out_quad, out_i, out_j)

  list(
    quad = out_quad,
    i = out_i,
    j = out_j
  )
}

#' @name dgPROJTRI_to_SEQNUM
#' 
#' @title      Convert from PROJTRI to SEQNUM
#'
#' @description
#'             Uses a discrete global grid system to convert between PROJTRI
#'             and SEQNUM (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_tnum  Vector of triangle numbers
#' @param in_tx  Vector of triangle x values
#' @param in_ty  Vector of triangle y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgPROJTRI_to_SEQNUM(dggs, in_tnum, in_tx, in_ty)
#' }
#'
#' @export 
dgPROJTRI_to_SEQNUM <- function(dggs, in_tnum, in_tx, in_ty){
  dgverify(dggs)

  N <- length(in_tnum)
  out_seqnum <- rep(0,N)

  PROJTRI_to_SEQNUM(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_tnum, in_tx, in_ty, out_seqnum)

  list(
    seqnum = out_seqnum
  )
}

#' @name dgPROJTRI_to_PLANE
#' 
#' @title      Convert from PROJTRI to PLANE
#'
#' @description
#'             Uses a discrete global grid system to convert between PROJTRI
#'             and PLANE (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_tnum  Vector of triangle numbers
#' @param in_tx  Vector of triangle x values
#' @param in_ty  Vector of triangle y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgPROJTRI_to_PLANE(dggs, in_tnum, in_tx, in_ty)
#' }
#'
#' @export 
dgPROJTRI_to_PLANE <- function(dggs, in_tnum, in_tx, in_ty){
  dgverify(dggs)

  N <- length(in_tnum)
  out_px <- rep(0,N)
  out_py <- rep(0,N)

  PROJTRI_to_PLANE(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_tnum, in_tx, in_ty, out_px, out_py)

  list(
    px = out_px,
    py = out_py
  )
}

#' @name dgQ2DD_to_GEO
#' 
#' @title      Convert from Q2DD to GEO
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DD
#'             and GEO (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_qx  Vector of quadrant x values
#' @param in_qy  Vector of quadrant y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DD_to_GEO(dggs, in_quad, in_qx, in_qy)
#' }
#'
#' @export 
dgQ2DD_to_GEO <- function(dggs, in_quad, in_qx, in_qy){
  dgverify(dggs)

  N <- length(in_quad)
  out_lon_deg <- rep(0,N)
  out_lat_deg <- rep(0,N)

  Q2DD_to_GEO(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_qx, in_qy, out_lon_deg, out_lat_deg)

  list(
    lon_deg = out_lon_deg,
    lat_deg = out_lat_deg
  )
}

#' @name dgQ2DD_to_PROJTRI
#' 
#' @title      Convert from Q2DD to PROJTRI
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DD
#'             and PROJTRI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_qx  Vector of quadrant x values
#' @param in_qy  Vector of quadrant y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DD_to_PROJTRI(dggs, in_quad, in_qx, in_qy)
#' }
#'
#' @export 
dgQ2DD_to_PROJTRI <- function(dggs, in_quad, in_qx, in_qy){
  dgverify(dggs)

  N <- length(in_quad)
  out_tnum <- rep(0,N)
  out_tx <- rep(0,N)
  out_ty <- rep(0,N)

  Q2DD_to_PROJTRI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_qx, in_qy, out_tnum, out_tx, out_ty)

  list(
    tnum = out_tnum,
    tx = out_tx,
    ty = out_ty
  )
}

#' @name dgQ2DD_to_Q2DD
#' 
#' @title      Convert from Q2DD to Q2DD
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DD
#'             and Q2DD (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_qx  Vector of quadrant x values
#' @param in_qy  Vector of quadrant y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DD_to_Q2DD(dggs, in_quad, in_qx, in_qy)
#' }
#'
#' @export 
dgQ2DD_to_Q2DD <- function(dggs, in_quad, in_qx, in_qy){
  dgverify(dggs)

  N <- length(in_quad)
  out_quad <- rep(0,N)
  out_qx <- rep(0,N)
  out_qy <- rep(0,N)

  Q2DD_to_Q2DD(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_qx, in_qy, out_quad, out_qx, out_qy)

  list(
    quad = out_quad,
    qx = out_qx,
    qy = out_qy
  )
}

#' @name dgQ2DD_to_Q2DI
#' 
#' @title      Convert from Q2DD to Q2DI
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DD
#'             and Q2DI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_qx  Vector of quadrant x values
#' @param in_qy  Vector of quadrant y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DD_to_Q2DI(dggs, in_quad, in_qx, in_qy)
#' }
#'
#' @export 
dgQ2DD_to_Q2DI <- function(dggs, in_quad, in_qx, in_qy){
  dgverify(dggs)

  N <- length(in_quad)
  out_quad <- rep(0,N)
  out_i <- rep(0,N)
  out_j <- rep(0,N)

  Q2DD_to_Q2DI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_qx, in_qy, out_quad, out_i, out_j)

  list(
    quad = out_quad,
    i = out_i,
    j = out_j
  )
}

#' @name dgQ2DD_to_SEQNUM
#' 
#' @title      Convert from Q2DD to SEQNUM
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DD
#'             and SEQNUM (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_qx  Vector of quadrant x values
#' @param in_qy  Vector of quadrant y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DD_to_SEQNUM(dggs, in_quad, in_qx, in_qy)
#' }
#'
#' @export 
dgQ2DD_to_SEQNUM <- function(dggs, in_quad, in_qx, in_qy){
  dgverify(dggs)

  N <- length(in_quad)
  out_seqnum <- rep(0,N)

  Q2DD_to_SEQNUM(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_qx, in_qy, out_seqnum)

  list(
    seqnum = out_seqnum
  )
}

#' @name dgQ2DD_to_PLANE
#' 
#' @title      Convert from Q2DD to PLANE
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DD
#'             and PLANE (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_qx  Vector of quadrant x values
#' @param in_qy  Vector of quadrant y values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DD_to_PLANE(dggs, in_quad, in_qx, in_qy)
#' }
#'
#' @export 
dgQ2DD_to_PLANE <- function(dggs, in_quad, in_qx, in_qy){
  dgverify(dggs)

  N <- length(in_quad)
  out_px <- rep(0,N)
  out_py <- rep(0,N)

  Q2DD_to_PLANE(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_qx, in_qy, out_px, out_py)

  list(
    px = out_px,
    py = out_py
  )
}

#' @name dgQ2DI_to_GEO
#' 
#' @title      Convert from Q2DI to GEO
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DI
#'             and GEO (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_i  Vector of quadrant i values
#' @param in_j  Vector of quadrant j values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DI_to_GEO(dggs, in_quad, in_i, in_j)
#' }
#'
#' @export 
dgQ2DI_to_GEO <- function(dggs, in_quad, in_i, in_j){
  dgverify(dggs)

  N <- length(in_quad)
  out_lon_deg <- rep(0,N)
  out_lat_deg <- rep(0,N)

  Q2DI_to_GEO(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_i, in_j, out_lon_deg, out_lat_deg)

  list(
    lon_deg = out_lon_deg,
    lat_deg = out_lat_deg
  )
}

#' @name dgQ2DI_to_PROJTRI
#' 
#' @title      Convert from Q2DI to PROJTRI
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DI
#'             and PROJTRI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_i  Vector of quadrant i values
#' @param in_j  Vector of quadrant j values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DI_to_PROJTRI(dggs, in_quad, in_i, in_j)
#' }
#'
#' @export 
dgQ2DI_to_PROJTRI <- function(dggs, in_quad, in_i, in_j){
  dgverify(dggs)

  N <- length(in_quad)
  out_tnum <- rep(0,N)
  out_tx <- rep(0,N)
  out_ty <- rep(0,N)

  Q2DI_to_PROJTRI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_i, in_j, out_tnum, out_tx, out_ty)

  list(
    tnum = out_tnum,
    tx = out_tx,
    ty = out_ty
  )
}

#' @name dgQ2DI_to_Q2DD
#' 
#' @title      Convert from Q2DI to Q2DD
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DI
#'             and Q2DD (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_i  Vector of quadrant i values
#' @param in_j  Vector of quadrant j values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DI_to_Q2DD(dggs, in_quad, in_i, in_j)
#' }
#'
#' @export 
dgQ2DI_to_Q2DD <- function(dggs, in_quad, in_i, in_j){
  dgverify(dggs)

  N <- length(in_quad)
  out_quad <- rep(0,N)
  out_qx <- rep(0,N)
  out_qy <- rep(0,N)

  Q2DI_to_Q2DD(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_i, in_j, out_quad, out_qx, out_qy)

  list(
    quad = out_quad,
    qx = out_qx,
    qy = out_qy
  )
}

#' @name dgQ2DI_to_Q2DI
#' 
#' @title      Convert from Q2DI to Q2DI
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DI
#'             and Q2DI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_i  Vector of quadrant i values
#' @param in_j  Vector of quadrant j values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DI_to_Q2DI(dggs, in_quad, in_i, in_j)
#' }
#'
#' @export 
dgQ2DI_to_Q2DI <- function(dggs, in_quad, in_i, in_j){
  dgverify(dggs)

  N <- length(in_quad)
  out_quad <- rep(0,N)
  out_i <- rep(0,N)
  out_j <- rep(0,N)

  Q2DI_to_Q2DI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_i, in_j, out_quad, out_i, out_j)

  list(
    quad = out_quad,
    i = out_i,
    j = out_j
  )
}

#' @name dgQ2DI_to_SEQNUM
#' 
#' @title      Convert from Q2DI to SEQNUM
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DI
#'             and SEQNUM (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_i  Vector of quadrant i values
#' @param in_j  Vector of quadrant j values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DI_to_SEQNUM(dggs, in_quad, in_i, in_j)
#' }
#'
#' @export 
dgQ2DI_to_SEQNUM <- function(dggs, in_quad, in_i, in_j){
  dgverify(dggs)

  N <- length(in_quad)
  out_seqnum <- rep(0,N)

  Q2DI_to_SEQNUM(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_i, in_j, out_seqnum)

  list(
    seqnum = out_seqnum
  )
}

#' @name dgQ2DI_to_PLANE
#' 
#' @title      Convert from Q2DI to PLANE
#'
#' @description
#'             Uses a discrete global grid system to convert between Q2DI
#'             and PLANE (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_quad  Vector of quad numbers
#' @param in_i  Vector of quadrant i values
#' @param in_j  Vector of quadrant j values
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgQ2DI_to_PLANE(dggs, in_quad, in_i, in_j)
#' }
#'
#' @export 
dgQ2DI_to_PLANE <- function(dggs, in_quad, in_i, in_j){
  dgverify(dggs)

  N <- length(in_quad)
  out_px <- rep(0,N)
  out_py <- rep(0,N)

  Q2DI_to_PLANE(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_quad, in_i, in_j, out_px, out_py)

  list(
    px = out_px,
    py = out_py
  )
}

#' @name dgSEQNUM_to_GEO
#' 
#' @title      Convert from SEQNUM to GEO
#'
#' @description
#'             Uses a discrete global grid system to convert between SEQNUM
#'             and GEO (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_seqnum  Globally unique number identifying the surface polygon
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgSEQNUM_to_GEO(dggs, in_seqnum)
#' }
#'
#' @export 
dgSEQNUM_to_GEO <- function(dggs, in_seqnum){
  dgverify(dggs)

  N <- length(in_seqnum)
  out_lon_deg <- rep(0,N)
  out_lat_deg <- rep(0,N)

  SEQNUM_to_GEO(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_seqnum, out_lon_deg, out_lat_deg)

  list(
    lon_deg = out_lon_deg,
    lat_deg = out_lat_deg
  )
}

#' @name dgSEQNUM_to_PROJTRI
#' 
#' @title      Convert from SEQNUM to PROJTRI
#'
#' @description
#'             Uses a discrete global grid system to convert between SEQNUM
#'             and PROJTRI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_seqnum  Globally unique number identifying the surface polygon
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgSEQNUM_to_PROJTRI(dggs, in_seqnum)
#' }
#'
#' @export 
dgSEQNUM_to_PROJTRI <- function(dggs, in_seqnum){
  dgverify(dggs)

  N <- length(in_seqnum)
  out_tnum <- rep(0,N)
  out_tx <- rep(0,N)
  out_ty <- rep(0,N)

  SEQNUM_to_PROJTRI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_seqnum, out_tnum, out_tx, out_ty)

  list(
    tnum = out_tnum,
    tx = out_tx,
    ty = out_ty
  )
}

#' @name dgSEQNUM_to_Q2DD
#' 
#' @title      Convert from SEQNUM to Q2DD
#'
#' @description
#'             Uses a discrete global grid system to convert between SEQNUM
#'             and Q2DD (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_seqnum  Globally unique number identifying the surface polygon
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgSEQNUM_to_Q2DD(dggs, in_seqnum)
#' }
#'
#' @export 
dgSEQNUM_to_Q2DD <- function(dggs, in_seqnum){
  dgverify(dggs)

  N <- length(in_seqnum)
  out_quad <- rep(0,N)
  out_qx <- rep(0,N)
  out_qy <- rep(0,N)

  SEQNUM_to_Q2DD(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_seqnum, out_quad, out_qx, out_qy)

  list(
    quad = out_quad,
    qx = out_qx,
    qy = out_qy
  )
}

#' @name dgSEQNUM_to_Q2DI
#' 
#' @title      Convert from SEQNUM to Q2DI
#'
#' @description
#'             Uses a discrete global grid system to convert between SEQNUM
#'             and Q2DI (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_seqnum  Globally unique number identifying the surface polygon
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgSEQNUM_to_Q2DI(dggs, in_seqnum)
#' }
#'
#' @export 
dgSEQNUM_to_Q2DI <- function(dggs, in_seqnum){
  dgverify(dggs)

  N <- length(in_seqnum)
  out_quad <- rep(0,N)
  out_i <- rep(0,N)
  out_j <- rep(0,N)

  SEQNUM_to_Q2DI(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_seqnum, out_quad, out_i, out_j)

  list(
    quad = out_quad,
    i = out_i,
    j = out_j
  )
}

#' @name dgSEQNUM_to_SEQNUM
#' 
#' @title      Convert from SEQNUM to SEQNUM
#'
#' @description
#'             Uses a discrete global grid system to convert between SEQNUM
#'             and SEQNUM (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_seqnum  Globally unique number identifying the surface polygon
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgSEQNUM_to_SEQNUM(dggs, in_seqnum)
#' }
#'
#' @export 
dgSEQNUM_to_SEQNUM <- function(dggs, in_seqnum){
  dgverify(dggs)

  N <- length(in_seqnum)
  out_seqnum <- rep(0,N)

  SEQNUM_to_SEQNUM(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_seqnum, out_seqnum)

  list(
    seqnum = out_seqnum
  )
}

#' @name dgSEQNUM_to_PLANE
#' 
#' @title      Convert from SEQNUM to PLANE
#'
#' @description
#'             Uses a discrete global grid system to convert between SEQNUM
#'             and PLANE (see vignette for details)
#'
#' @param dggs A dggs object from dgconstruct()
#' @param in_seqnum  Globally unique number identifying the surface polygon
#'
#' @return     Returns a dggs object which can be passed to other dggridR
#'             functions
#'
#' @examples 
#' \dontrun{
#' library(dggridR)
#' dggs <- dgconstruct(res=20)
#'
#' dgSEQNUM_to_PLANE(dggs, in_seqnum)
#' }
#'
#' @export 
dgSEQNUM_to_PLANE <- function(dggs, in_seqnum){
  dgverify(dggs)

  N <- length(in_seqnum)
  out_px <- rep(0,N)
  out_py <- rep(0,N)

  SEQNUM_to_PLANE(dggs[["pole_lon_deg"]], dggs[["pole_lat_deg"]], dggs[["azimuth_deg"]], dggs[["aperture"]], dggs[["res"]], dggs[["topology"]], dggs[["projection"]], N, in_seqnum, out_px, out_py)

  list(
    px = out_px,
    py = out_py
  )
}