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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.