Nothing
test_that("BackRateOfSpread", {
checkData('BackRateOfSpread',
back_rate_of_spread,
list(data.table(FUELTYPE=FUELTYPE),
data.table(FFMC=FFMC),
data.table(BUI=BUI),
data.table(WSV=WSV),
data.table(FMC=FMC),
data.table(SFC=SFC),
data.table(PC=PC),
data.table(PDF=PDF),
data.table(CC=CC),
data.table(CBH=CBH)))
})
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.