knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(GwasDataImport)

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()


MRCIEU/EbiDataImport documentation built on May 9, 2023, 6 a.m.