| 93 | == Parcours Distance_sea == |
| 94 | Le parcours est fait dans R par la méthode distance_sea.R voir main_RHT_France.R |
| 95 | {{{ |
| 96 | #!sql |
| 97 | --pour des raisons d'efficacité on sauve un texte depuis R et on recharge en sql |
| 98 | --Sauvegarde sous R |
| 99 | --write.table(rht@data[,c("id_drain","ltree_from_sea","dmer")],file=str_c(datawd,"/dataEDArht/rht_ltree_distance.csv"),sep=";",row.names=FALSE) |
| 100 | --Restauration en sql |
| 101 | create table rht.temp_ltree_distance( |
| 102 | id_drain integer primary key, |
| 103 | ltreetext text, |
| 104 | distance bigint); |
| 105 | copy rht.temp_ltree_distance from 'E:/workspace/EDAdata/dataEDArht/rht_ltree_distance.csv' with csv header delimiter as ';' NULL AS 'NA';--114600 |
| 106 | |
| 107 | -- lancer le script ltree.sql qui se trouve dans postgres/share |
| 108 | alter table rht.rht_topology add column chemin ltree; |
| 109 | update rht.rht_topology t set chemin=sub.chemin from ( |
| 110 | select text2ltree(ltreetext) as chemin,id_drain from rht.temp_ltree_distance) as sub |
| 111 | |
| 112 | where t.id_drain=sub.id_drain; --114600 |
| 113 | |
| 114 | -- mise à jour des distances mer |
| 115 | |
| 116 | update rht.rht_topology t set dmer=sub.distance from ( |
| 117 | select distance,id_drain from rht.temp_ltree_distance) as sub |
| 118 | where t.id_drain=sub.id_drain |
| 119 | and dmer is null; --113517 |
| 120 | |
| 121 | source:data/Docs/trac/rht/distances_mer.JPG |
| 122 | }}} |