1
|
SELECT *
|
2
|
FROM "nodes.src"
|
3
|
JOIN "names.src" USING ("taxonID")
|
4
|
WHERE "*name class" = 'scientific name'
|
5
|
;
|
6
|
|
7
|
ALTER TABLE :table ALTER COLUMN "taxonID" TYPE integer
|
8
|
USING "taxonID"::integer;
|
9
|
ALTER TABLE :table ALTER COLUMN "parentTaxonID" TYPE integer
|
10
|
USING "parentTaxonID"::integer;
|
11
|
|
12
|
ALTER TABLE :table ADD PRIMARY KEY ("taxonID");
|
13
|
|
14
|
CREATE INDEX ON :table ("parentTaxonID");
|
15
|
|
16
|
ALTER TABLE :table ADD FOREIGN KEY ("parentTaxonID") REFERENCES :table ("taxonID")
|
17
|
ON UPDATE CASCADE ON DELETE CASCADE;
|
18
|
|
19
|
-- Make "taxonNameOrEpithet" (mostly) globally unique by removing other kingdoms
|
20
|
-- Note that the delete will cascade to descendants
|
21
|
DELETE FROM :table WHERE "taxonID" IN (
|
22
|
10239 -- superkingdom Viruses
|
23
|
, 12884 -- superkingdom Viroids
|
24
|
, 12908 -- unclassified sequences
|
25
|
, 28384 -- other sequences
|
26
|
, 2 -- superkingdom Bacteria
|
27
|
, 2157 -- superkingdom Archaea
|
28
|
, 4751 -- kingdom Fungi
|
29
|
, 33208 -- kingdom Animalia/Metazoa
|
30
|
);
|
31
|
|
32
|
-- Make "taxonNameOrEpithet" completely globally unique by removing duplicates
|
33
|
DELETE FROM :table
|
34
|
WHERE "taxonNameOrEpithet" IN (
|
35
|
SELECT "taxonNameOrEpithet"
|
36
|
FROM :table
|
37
|
GROUP BY "taxonNameOrEpithet"
|
38
|
HAVING count(*) > 1
|
39
|
)
|
40
|
;
|