Nothing
Code
dct_add_row(dct_add_row(tibble::tibble(taxonID = "123", scientificName = "Foogenus barspecies",
taxonomicStatus = "accepted"), scientificName = "Bargenus foosp",
taxonomicStatus = "accepted", acceptedNameUsageID = NA, stamp_modified = FALSE),
scientificName = c("Foogenus boospecies", "Bargenus bkaspecies"),
acceptedNameUsage = c("Foogenus barspecies", "Bargenus foosp"),
taxonomicStatus = "synonym", stamp_modified = FALSE)
Output
# A tibble: 4 x 5
taxonID scientificName taxonomicStatus acceptedNameUsageID acceptedNameUsage
<chr> <chr> <chr> <chr> <chr>
1 123 Foogenus bars~ accepted <NA> <NA>
2 22aad276~ Bargenus foosp accepted <NA> <NA>
3 442c4d2d~ Foogenus boos~ synonym 123 Foogenus barspec~
4 42e72bd3~ Bargenus bkas~ synonym 22aad27626cf8f945d~ Bargenus foosp
Code
dct_add_row(base_dat, scientificName = "Bargenus foosp", acceptedNameUsage = "Bargenus bkaspecies",
taxonomicStatus = "synonym", stamp_modified = FALSE)
Output
# A tibble: 4 x 5
taxonID scientificName taxonomicStatus acceptedNameUsage acceptedNameUsageID
<chr> <chr> <chr> <chr> <chr>
1 1 Foogenus bars~ accepted <NA> <NA>
2 2 Foogenus bars~ accepted <NA> <NA>
3 3 Bargenus bkas~ accepted <NA> <NA>
4 22aad276~ Bargenus foosp synonym Bargenus bkaspec~ 3
Code
dct_add_row(dct_add_row(tibble::tibble(taxonID = "123", scientificName = "Foogenus barspecies",
taxonomicStatus = "accepted"), scientificName = "Bargenus foosp",
taxonomicStatus = "accepted", stamp_modified = FALSE), scientificName = c(
"Foogenus boospecies", "Bargenus bkaspecies"), acceptedNameUsage = c(
"Foogenus barspecies", "Bargenus foosp"), taxonomicStatus = "synonym",
stamp_modified = FALSE, fill_usage_id = FALSE)
Output
# A tibble: 4 x 4
taxonID scientificName taxonomicStatus acceptedNameUsage
<chr> <chr> <chr> <chr>
1 123 Foogenus bars~ accepted <NA>
2 22aad27626cf8f945d4792dfceaa~ Bargenus foosp accepted <NA>
3 442c4d2d5df6c3995a8d6a13d10c~ Foogenus boos~ synonym Foogenus barspec~
4 42e72bd3217967151e11da9d181a~ Bargenus bkas~ synonym Bargenus foosp
Code
(expect_no_error(dct_add_row(base_dat, new_dat = add_dat, strict = TRUE)))
Output
# A tibble: 2 x 5
taxonID scientificName acceptedNameUsageID acceptedNameUsage taxonomicStatus
<chr> <chr> <chr> <chr> <chr>
1 1 foo <NA> <NA> <NA>
2 bd40ef6d~ foo <NA> <NA> <NA>
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.