context("Get pmlame")
#test_that("medusaRClient.read.pmlame works with dataframe.",{
# gid <- "20081202172326.hkitagawa"
# pmlame <- data.frame()
# pmlame <- medusaRClient.read.pmlame(pmlame)
# expect_equal(class(pmlame),"data.frame")
#})
#test_that("medusaRClient.read.pmlame works with global_id.",{
# global_id <- "20081202172326.hkitagawa"
# pmlame <- medusaRClient.read.pmlame(global_id)
# expect_that(pmlame, is_a("data.frame"))
#})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.