Add files via upload

Author: vlarmet

src/RcppExports.cpp

@@ -182,6 +182,20 @@ BEGIN_RCPP
     return rcpp_result_gen;
 END_RCPP
 }
+// Remove_duplicate
+Rcpp::NumericMatrix Remove_duplicate(std::vector<int> gfrom, std::vector<int> gto, std::vector<double> gw, int NbNodes);
+RcppExport SEXP _cppRouting_Remove_duplicate(SEXP gfromSEXP, SEXP gtoSEXP, SEXP gwSEXP, SEXP NbNodesSEXP) {
+BEGIN_RCPP
+    Rcpp::RObject rcpp_result_gen;
+    Rcpp::RNGScope rcpp_rngScope_gen;
+    Rcpp::traits::input_parameter< std::vector<int> >::type gfrom(gfromSEXP);
+    Rcpp::traits::input_parameter< std::vector<int> >::type gto(gtoSEXP);
+    Rcpp::traits::input_parameter< std::vector<double> >::type gw(gwSEXP);
+    Rcpp::traits::input_parameter< int >::type NbNodes(NbNodesSEXP);
+    rcpp_result_gen = Rcpp::wrap(Remove_duplicate(gfrom, gto, gw, NbNodes));
+    return rcpp_result_gen;
+END_RCPP
+}
 // Isochrone
 Rcpp::List Isochrone(std::vector<int> gfrom, std::vector<int> gto, std::vector<double> gw, int NbNodes, std::vector<int> dep, double max_limit, std::vector<std::string> dict);
 RcppExport SEXP _cppRouting_Isochrone(SEXP gfromSEXP, SEXP gtoSEXP, SEXP gwSEXP, SEXP NbNodesSEXP, SEXP depSEXP, SEXP max_limitSEXP, SEXP dictSEXP) {
@@ -218,6 +232,23 @@ BEGIN_RCPP
     return rcpp_result_gen;
 END_RCPP
 }
+// Simplify2
+Rcpp::List Simplify2(std::vector<int> gfrom, std::vector<int> gto, std::vector<double> gw, int NbNodes, bool loop, std::vector<int> keep, std::vector<std::string> dict);
+RcppExport SEXP _cppRouting_Simplify2(SEXP gfromSEXP, SEXP gtoSEXP, SEXP gwSEXP, SEXP NbNodesSEXP, SEXP loopSEXP, SEXP keepSEXP, SEXP dictSEXP) {
+BEGIN_RCPP
+    Rcpp::RObject rcpp_result_gen;
+    Rcpp::RNGScope rcpp_rngScope_gen;
+    Rcpp::traits::input_parameter< std::vector<int> >::type gfrom(gfromSEXP);
+    Rcpp::traits::input_parameter< std::vector<int> >::type gto(gtoSEXP);
+    Rcpp::traits::input_parameter< std::vector<double> >::type gw(gwSEXP);
+    Rcpp::traits::input_parameter< int >::type NbNodes(NbNodesSEXP);
+    Rcpp::traits::input_parameter< bool >::type loop(loopSEXP);
+    Rcpp::traits::input_parameter< std::vector<int> >::type keep(keepSEXP);
+    Rcpp::traits::input_parameter< std::vector<std::string> >::type dict(dictSEXP);
+    rcpp_result_gen = Rcpp::wrap(Simplify2(gfrom, gto, gw, NbNodes, loop, keep, dict));
+    return rcpp_result_gen;
+END_RCPP
+}
 
 static const R_CallMethodDef CallEntries[] = {
     {"_cppRouting_Astar", (DL_FUNC) &_cppRouting_Astar, 9},
@@ -230,8 +261,10 @@ static const R_CallMethodDef CallEntries[] = {
     {"_cppRouting_Dijkstra_early_stop_path", (DL_FUNC) &_cppRouting_Dijkstra_early_stop_path, 7},
     {"_cppRouting_Dijkstra_mat", (DL_FUNC) &_cppRouting_Dijkstra_mat, 6},
     {"_cppRouting_Dijkstra_multi_path", (DL_FUNC) &_cppRouting_Dijkstra_multi_path, 7},
+    {"_cppRouting_Remove_duplicate", (DL_FUNC) &_cppRouting_Remove_duplicate, 4},
     {"_cppRouting_Isochrone", (DL_FUNC) &_cppRouting_Isochrone, 7},
     {"_cppRouting_Isochrone_multi", (DL_FUNC) &_cppRouting_Isochrone_multi, 9},
+    {"_cppRouting_Simplify2", (DL_FUNC) &_cppRouting_Simplify2, 7},
     {NULL, NULL, 0}
 };
 

src/RcppExports.o

@@ -0,0 +1,81 @@
+#include <iostream>
+#include <queue>
+#include <vector>
+#include <fstream>
+#include <limits>
+#include <functional>
+#include <algorithm>
+#include <Rcpp.h>
+
+
+
+
+using namespace Rcpp;
+
+// [[Rcpp::plugins(cpp11)]]
+// [[Rcpp::export]]
+
+Rcpp::NumericMatrix Remove_duplicate(std::vector<int> gfrom,std::vector<int> gto,std::vector<double> gw,int NbNodes){
+
+  std::vector<std::vector<std::pair<int,double> > > Graph(NbNodes);   
+  //std::vector<std::vector<std::pair<int,double> > > Graphr(NbNodes);
+  int count=0;
+  for (unsigned int i = 0; i < gfrom.size(); ++i) {
+
+    count=0;
+    if (Graph[gfrom[i]].size()==0){
+      Graph[gfrom[i]].push_back(std::make_pair(gto[i],gw[i]));
+    }
+    else {
+    
+    for (int j=0;j < Graph[gfrom[i]].size();++j){
+      
+      if (Graph[gfrom[i]][j].first==gto[i]){
+        if (Graph[gfrom[i]][j].second >= gw[i]){
+          count=1;
+          Graph[gfrom[i]][j].second=gw[i];
+        }
+        else {
+          count=1;
+          break;
+        }
+    
+      }
+
+    }
+    
+    if (count==0){
+      Graph[gfrom[i]].push_back(std::make_pair(gto[i],gw[i]));
+    }
+    }
+    
+  }
+  
+  std::vector<int> From;
+  std::vector<int> To;
+  std::vector<double> W;
+  
+  for (int i=0; i < Graph.size(); ++i){
+    for (int j=0; j < Graph[i].size(); ++j){
+      From.push_back(i);
+      To.push_back(Graph[i][j].first);
+      W.push_back(Graph[i][j].second);
+    }
+    
+  }
+  
+  Rcpp::NumericMatrix final(From.size(),3);
+  
+  
+  Rcpp::IntegerVector temp=wrap(From);
+  final( _ ,0)=temp;
+  Rcpp::IntegerVector temp2=wrap(To);
+  final( _ ,1)=temp2;
+  Rcpp::NumericVector temp3=wrap(W);
+  final( _ ,2)=temp3;
+  
+  return final;
+  
+  
+  
+}