R/RcppExports.R

In spatialrisk: Calculating Spatial Risk

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

haversine_cpp_vec <- function(latFrom, lonFrom, latTo, lonTo, earth_radius) {
    .Call('_spatialrisk_haversine_cpp_vec', PACKAGE = 'spatialrisk', latFrom, lonFrom, latTo, lonTo, earth_radius)
}

haversine_loop_cpp <- function(x, lat_center, lon_center, radius = 200) {
    .Call('_spatialrisk_haversine_loop_cpp', PACKAGE = 'spatialrisk', x, lat_center, lon_center, radius)
}

concentration_loop_cpp <- function(sub, ref, radius = 200, display_progress = TRUE) {
    .Call('_spatialrisk_concentration_loop_cpp', PACKAGE = 'spatialrisk', sub, ref, radius, display_progress)
}

block_loop_cpp <- function(sub, ref, radius = 200, display_progress = TRUE) {
    .Call('_spatialrisk_block_loop_cpp', PACKAGE = 'spatialrisk', sub, ref, radius, display_progress)
}

concentration_loop_cpp2 <- function(sub, ref, radius = 200) {
    .Call('_spatialrisk_concentration_loop_cpp2', PACKAGE = 'spatialrisk', sub, ref, radius)
}

one_lon_in_meters <- function(lat0) {
    .Call('_spatialrisk_one_lon_in_meters', PACKAGE = 'spatialrisk', lat0)
}

add_cell_bounds_cpp <- function(df, size = 50, radius = 200) {
    .Call('_spatialrisk_add_cell_bounds_cpp', PACKAGE = 'spatialrisk', df, size, radius)
}

seq_cpp <- function(from, to, length_out) {
    .Call('_spatialrisk_seq_cpp', PACKAGE = 'spatialrisk', from, to, length_out)
}

expand_grid_cpp <- function(seq1, seq2) {
    .Call('_spatialrisk_expand_grid_cpp', PACKAGE = 'spatialrisk', seq1, seq2)
}

filter_full_cpp <- function(dffull, subb, i) {
    .Call('_spatialrisk_filter_full_cpp', PACKAGE = 'spatialrisk', dffull, subb, i)
}

highest_indices_cpp <- function(x, n) {
    .Call('_spatialrisk_highest_indices_cpp', PACKAGE = 'spatialrisk', x, n)
}

max_conc_per_cell_cpp <- function(dfsub, dffull, points = 50L, size = 50L, radius = 200) {
    .Call('_spatialrisk_max_conc_per_cell_cpp', PACKAGE = 'spatialrisk', dfsub, dffull, points, size, radius)
}

haversine_loop_cpp0 <- function(x, lat_centers, lon_centers, radius = 200) {
    .Call('_spatialrisk_haversine_loop_cpp0', PACKAGE = 'spatialrisk', x, lat_centers, lon_centers, radius)
}