context("Rename Record Functionality")
test_that(
"Rename a record",
{
expect_true(renameRecord(rcon,
record_name = "1",
new_record_name = "100"))
Rec <- exportRecordsTyped(rcon,
fields = "record_id")
expect_true("100" %in% Rec$record_id)
expect_true(renameRecord(rcon,
record_name = "100",
new_record_name = "1"))
Rec <- exportRecordsTyped(rcon,
fields = "record_id")
expect_false("100" %in% Rec$record_id)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.