dbExecute(con_diaspara_admin,"INSERT INTO ref.tr_units_uni (
uni_code, uni_description)
SELECT * FROM refwgeel.tr_units_uni;")#25
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='KGXX'
where uni_code = 'kg';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='MTON'
where uni_code = 't';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UCNT'
where uni_code = 'nr';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UGRM'
where uni_code = 'g';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UPMS'
where uni_code = 'nr/m2';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UPMM'
where uni_code = 'nr/m3';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UYRS'
where uni_code = 'nr year';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UXMM'
where uni_code = 'mm';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='NGPG'
where uni_code = 'ng/g';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='HCTR'
where uni_code = 'ha';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UTAA'
where uni_code = 'nr day';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='NOPH'
where uni_code = 'nr/h';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='NGPG'
where uni_code = 'ng/g';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='UPCT'
where uni_code = 'percent';")
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set
(uni_icesvalue, uni_description)=
('XXXX', 'Not applicable (without unit)')
where uni_code = 'wo';")
dbExecute(con_diaspara_admin, "INSERT INTO ref.tr_units_uni
VALUES ('year-1', 'Per year', 'XXPY');")
dbExecute(con_diaspara_admin, "INSERT INTO ref.tr_units_uni
VALUES ('s', 'Seconds', 'UTBB');")
p06 <- icesVocab::getCodeList('p06')
SamplingUnit <- icesVocab::getCodeList('SamplingUnit')
MUNIT <- icesVocab::getCodeList('MUNIT')
uni <- dbGetQuery(con_diaspara_admin, "SELECT * FROM ref.tr_units_uni;")
tempuni <- inner_join(uni, p06, by=join_by(uni_icesvalue==Key))
dbWriteTable(con_diaspara_admin, "tempuni", tempuni, overwrite=TRUE)
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni
set uni_icesguid = \"GUID\"::uuid
FROM tempuni
where tempuni.uni_icesvalue=tr_units_uni.uni_icesvalue;") #16
dbExecute(con_diaspara_admin, "DROP TABLE tempuni;")
dbExecute(con_diaspara_admin,
"UPDATE ref.tr_units_uni set uni_icestablesource = 'p06' where uni_icesvalue
IS NOT NULL AND
uni_icestablesource IS NULL;") # 16
query <- sprintf("INSERT INTO ref.tr_units_uni (uni_code,uni_description, uni_icesvalue, uni_icestablesource,uni_icesguid) VALUES ('%s','%s','%s','%s','%s'::uuid);",
"gd",
"Gear days for fyke/trap nets",
"gd",
"MUNIT",
"bf0570b7-45f2-41c7-9a46-de912a2b9ad4")
dbExecute(con_diaspara_admin, query)
dbExecute(con_diaspara_admin, "UPDATE ref.tr_units_uni set uni_icesvalue='idx',
uni_icestablesource = 'MUNIT',
uni_icesguid ='87a9cf7f-fff4-4712-b693-76eec1403254'::uuid
where uni_code = 'index';")
# p06[grep('Ton',p06$Description),c("Description","Key")]
# p06[grep('Without',tolower(p06$Description)),c("Description","Key")]
# p06[grep('nanogram',tolower(p06$Description)),c("Description","Key")]
# p06[grep('index',tolower(p06$Description)),c("Description","Key")]
# p06[grep('hour',tolower(p06$Description)),c("Description","Key")]
# p06[grep('kilogram',tolower(p06$Description)),c("Description","Key")]
# p06[grep('nanogram',tolower(p06$Description)),c("Description","Key")]
# p06[grep('haul',tolower(p06$Description)),c("Description","Key")]
dbExecute(con_diaspara_admin, "COMMENT ON TABLE ref.tr_units_uni IS
'Table of units, values from tables MUNIT and p06 have corresponding ICES code.'")
dbExecute(con_diaspara_admin, "COMMENT ON COLUMN ref.tr_units_uni.uni_code IS
'Unit code, lowercase, nr number, otherwise standard units.'")
dbExecute(con_diaspara_admin, "COMMENT ON COLUMN ref.tr_units_uni.uni_description
IS 'Unit code, lowercase, nr number, otherwise standard units.'")
dbExecute(con_diaspara_admin, "COMMENT ON COLUMN ref.tr_units_uni.uni_icesvalue IS
'ICES code standard from the British Oceanographic Data Centre (p06) or MUNIT
table.';")
dbExecute(con_diaspara_admin,
"COMMENT ON COLUMN ref.tr_units_uni.uni_icestablesource IS
'Table source in ICES.';")
dbExecute(con_diaspara_admin,
"COMMENT ON COLUMN ref.tr_units_uni.uni_icesguid IS
'GUID, type https://vocab.ices.dk/?codetypeguid=<guidcode> to get access to the
vocab in ICES.';")
dbExecute(con_diaspara_admin, "GRANT ALL ON TABLE ref.tr_units_uni
to diaspara_admin;")
dbExecute(con_diaspara_admin, "GRANT SELECT ON TABLE ref.tr_units_uni
to diaspara_read;")
#for WGBAST
#
query <- sprintf("INSERT INTO ref.tr_units_uni (uni_code,uni_description, uni_icesvalue, uni_icestablesource,uni_icesguid) VALUES ('%s','%s','%s','%s','%s'::uuid);",
"nd",
"Net-days (fisheries)",
"nd",
"MUNIT",
"f2783f1c-defa-4551-a9e3-1cfa173a0b9f")
dbExecute(con_diaspara_admin, query)