-
-
Save CliffordAnderson/148c63407ce61c2ecabd456f3e1d15b4 to your computer and use it in GitHub Desktop.
Test Network
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
xquery version "3.1"; | |
declare function local:convert-records($url as xs:string) as element(record)* | |
{ | |
let $rows := fetch:text($url) | |
let $records := csv:parse($rows, map { 'header': true() }) | |
for $record in $records/csv/record | |
return $record | |
}; | |
declare function local:remove-duplicates($records as element(record)*) as element(record)* | |
{ | |
for $record in $records | |
where $record/ToPoint/text() | |
order by $record/FromPoint/text() + $record/ToPoint/text() | |
count $seq | |
let $dups := if ($seq mod 2 = 0) then $record else () | |
order by xs:int($dups/FromPoint) | |
return $dups | |
}; | |
let $uri := "https://gist.githubusercontent.com/langsdlc/39bc7f3f55a8de4513f7c05b6e8c6cab/raw/66a0c3e41b0a6c1ba2ed6495d54b67e22dfa9282/Test_Network.csv" | |
let $records := local:convert-records($uri) | |
let $records := element csv { local:remove-duplicates($records) } | |
return csv:serialize($records, map { "header" : "yes" } ) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
FromPoint | ToPoint | DistanceFt | PATH_Seg_Join | Building | Entrance | Surface | Path_Type | Stairs | Description | |
---|---|---|---|---|---|---|---|---|---|---|
0 | 266 | 16.75001259 | 492 | 0 | 0 | 2 | 0 |