test_that("FLExtractStr",{
widetable <- FLTable(getTestTableName("tblAutoMpg"),"ObsID")
flv <- widetable[1:6,"carName"]
resultflvector <- FLExtractStr(flv,"A",1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.