data/coordinates_examples.r

In AlbanSagouis/iClean: Cleaning and homogenising species names, coordinates and site names.

coords <- c('52.473892, 13.40444',
            '52,473892; 13,40444', '52,473892 13,40444',
            '52°28’26”, 13°24’16”', '52°28’26”N, 13°24’16”E','N52°28’26”, E13°24’16”',
            '52°28’26’’, 13°24’16’’','52°28’26"’, 13°24’16"', "52°28'26'', 13°24'16''",
            '52 28 26, 13 24 16', '52 28 26.13 24 16', '52°28’26” 13°24’16”',
            'S52°28’26”, W13°24’16”', '52°28’26”S, 13°24’16”W', 'S52°28’26” E13°24’16”',
            '13.40444E, 52.473892N', '13°24’16”E, 52°28’26”N',
            '13.40444, 52.473892', '13°24’16”, 52°28’26”',

            # Examples from here https://www.codeproject.com/articles/15659/longitude-latitude-string-parser-and-formatter
            '45:26:46N, 65:56:55W',
            '45:26:46.302N, 65:56:55.903W',
            '45°26’21"N, 65°58’36"W',
            '45N26 21, 65W58 36',
            '45.446195N, 65.948862W',
            '45.446195, -65.948862',
            'N45° 26.7717’, W65° 56.93172’',

            # example from parzer test
            "45W54.2356, 45N54.2356",

            # example from parzer
            "N 04.1683, E 101.5823", "N 04.25164, E 101.70695", "N04.82344, E101.61320",
              "N05.03062, E101.75172", "N05.03062,E101.75172", "N4.9196, E101.345",
              "N4.9196, E101.346", "N4.9196, E101.347",
            # expected errors
            '52°28’260”, 13°64’16”', '92°28’26”, 190°24’16”'
)

id <- rep("Site 1", length(coords))

# load('data/coordinates_test_dataset_1')