Nothing
test.read_table <- function()
{
conn <- RSAPConnect("tests/sap.yml")
#res <- RSAPReadTable(conn, "SFLIGHTS2")
res <- readTable(conn, "SFLIGHTS2")
str(res)
checkTrue(length(res$CARRID) >= 15)
res <- RSAPReadTable(conn, "SFLIGHTS2", options=list("CARRID = 'AA' ", " AND CONNID = 0017 "), fields=list('CARRID', 'CONNID', 'PRICE', 'SEATSMAX', 'SEATSOCC'))
str(res)
checkTrue(length(res$CARRID) >= 15)
checkTrue(RSAPClose(conn))
}
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.