Edit existing GWAS meta data
edit.Rmd
library(GwasDataImport)
#> API: public: https://api.opengwas.io/api/
Create meta
y <- Dataset$new(igd_id = id)
y$collect_metadata(
list(
trait = "updated trait",
build = "HG19/GRCh37",
category = "NA",
subcategory = "NA",
group_name = "public",
population = "European",
sex = "Males",
note = 'asdasd'
)
)
y$api_metadata_edit()
y$api_metadata_check() %>% httr::content()
y$collect_metadata(
list(
trait = "updated trait again",
build = "HG19/GRCh37",
category = "NA",
subcategory = "NA",
group_name = "public",
population = "European",
sex = "Males",
note = 'asdasd'
)
)
y$api_metadata_edit()
y$api_metadata_check() %>% httr::content()