Project

General

Profile

1
SELECT util.search_path_append('util');
2

    
3
SELECT create_if_not_exists($$ALTER TABLE $$||:table_str||$$ ADD PRIMARY KEY ("locationID")$$); -- runtime: 0.2 s ("Time: 238.474 ms") @starscream
4

    
5

    
6
-- remove institutions that we have direct data for
7

    
8
-- CVS
9
DELETE FROM :table
10
WHERE "locationName" IN (SELECT "locationName" FROM "CVS".plot_)
11
-- removes 2323 of 7079 CVS plots (75340 - 73017)
12
; -- runtime: 1 min ("48999.044 ms") @starscream
13

    
14

    
15
-- map_*() derived cols
16
-- runtime: 2 s @starscream
17

    
18
CREATE OR REPLACE FUNCTION map_access_rights(value integer)
19
  RETURNS text AS
20
$BODY$
21
/*
22
"closed List of Values:
23
Value  Description                        Sorting
24
0      Public                             1
25
1      1 km radius (nearest 0.01 degree)  2
26
2      10 km radius (nearest 0.1 degree)  3
27
3      100 km radius (nearest degree)     4
28
4      Location embargo                   5
29
5      Public embargo on data             6
30
6      Full embargo on data               7
31
" (http://vegbank.org/vegbank/views/dba_fielddescription_detail.jsp?view=detail&wparam=1581&entity=dba_fielddescription)
32
*/
33
SELECT util._map('0=>public, 1=>public, 2=>public, 3=>public, 4=>public, 5=>"data by request", 6=>private', $1::text)
34
$BODY$
35
  LANGUAGE sql IMMUTABLE
36
  COST 100;
37

    
38
SELECT mk_derived_col((:table_str, 'accessRights'), $$map_access_rights("accessRights_verbatim")$$); -- runtime: 1 s ("Time: 1167.547 ms") @starscream
39

    
40
CREATE OR REPLACE FUNCTION map_fuzzing(value integer)
41
  RETURNS double precision AS
42
$BODY$
43
/*
44
"closed List of Values:
45
Value  Description                        Sorting
46
0      Public                             1
47
1      1 km radius (nearest 0.01 degree)  2
48
2      10 km radius (nearest 0.1 degree)  3
49
3      100 km radius (nearest degree)     4
50
4      Location embargo                   5
51
5      Public embargo on data             6
52
6      Full embargo on data               7
53
" (http://vegbank.org/vegbank/views/dba_fielddescription_detail.jsp?view=detail&wparam=1581&entity=dba_fielddescription)
54
*/
55
SELECT public._km_to_m(util._map('0=>NULL, 1=>1, 2=>10, 3=>100, 4=>NULL, 5=>NULL, 6=>NULL', $1::text)::double precision)
56
$BODY$
57
  LANGUAGE sql IMMUTABLE
58
  COST 100;
59

    
60
SELECT mk_derived_col((:table_str, 'coordinateUncertaintyInMeters__from_fuzzing'), $$map_fuzzing("accessRights_verbatim")$$); -- runtime: 1 s ("Time: 1064.189 ms") @starscream
61

    
62

    
63
SELECT mk_derived_col((:table_str, 'coordinateUncertaintyInMeters'),
64
$$GREATEST("coordinateUncertaintyInMeters__from_fuzzing", "coordinateUncertaintyInMeters__from_coords")$$)
65
; -- runtime: 0.5 s ("Time: 586.453 ms") @starscream
66

    
67
SELECT mk_derived_col((:table_str, 'locality'),
68
$$_join("directions_to_place", "site_name")$$)
69
; -- runtime: 4 s ("Time: 3651.355 ms") @starscream
(7-7/10)