R/RcppExports.R

In APackOfTheClones: Visualization of Clonal Expansion for Single Cell Immune Profiles

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

rcppGetEdgeCircleindices <- function(apotcPlotDataFrame) {
    .Call(`_APackOfTheClones_rcppGetEdgeCircleindices`, apotcPlotDataFrame)
}

rcppRescaleClones <- function(rClusterlist, newCloneScale, prevCloneScale, prevRadScale) {
    .Call(`_APackOfTheClones_rcppRescaleClones`, rClusterlist, newCloneScale, prevCloneScale, prevRadScale)
}

rcppRemoveUniqueClonesHelper <- function(clonotypes, clusters) {
    .Call(`_APackOfTheClones_rcppRemoveUniqueClonesHelper`, clonotypes, clusters)
}

rcppConstructLineLinkDf <- function(clusterLists, rawCloneSizes, sharedClonotypeClusters, oneIndexedSourceClusterIndex, extraSpacing) {
    .Call(`_APackOfTheClones_rcppConstructLineLinkDf`, clusterLists, rawCloneSizes, sharedClonotypeClusters, oneIndexedSourceClusterIndex, extraSpacing)
}

cpp_circle_layout <- function(input_rad_vec, centroid, rad_decrease = 0, try_place = FALSE, verbose = TRUE) {
    .Call(`_APackOfTheClones_cpp_circle_layout`, input_rad_vec, centroid, rad_decrease, try_place, verbose)
}

rcppGetUniquePairsUpTo <- function(x, oneIndexed) {
    .Call(`_APackOfTheClones_rcppGetUniquePairsUpTo`, x, oneIndexed)
}

rcppUnionListOfNamedNumericsHelper <- function(listOfNamedNumerics) {
    .Call(`_APackOfTheClones_rcppUnionListOfNamedNumericsHelper`, listOfNamedNumerics)
}

rcppFilterReductionCoords <- function(seuratBarcodes, reductionCoords) {
    .Call(`_APackOfTheClones_rcppFilterReductionCoords`, seuratBarcodes, reductionCoords)
}

get_average_vector <- function(vec_list) {
    .Call(`_APackOfTheClones_get_average_vector`, vec_list)
}

get_component_repulsion_vector <- function(inp, i, j, G) {
    .Call(`_APackOfTheClones_get_component_repulsion_vector`, inp, i, j, G)
}

do_cluster_intersect <- function(Cn_centroid, Cn_clRad, Cm_centroid, Cm_clRad, thr) {
    .Call(`_APackOfTheClones_do_cluster_intersect`, Cn_centroid, Cn_clRad, Cm_centroid, Cm_clRad, thr)
}

calculate_transformation_vectors <- function(transformation_vectors, overall_repulsion_vec, num_clusters) {
    .Call(`_APackOfTheClones_calculate_transformation_vectors`, transformation_vectors, overall_repulsion_vec, num_clusters)
}