test_that("ConstructTicketJsonBody works with udf datagrid request", {
Originalquery <- structure(list(method = "POST", url = "http://localhost:9060/api/udf/",
status_code = 200L, headers = structure(list(`Access-Control-Allow-Origin` = "*",
`X-Request-Id` = "1e09229d-b273-4fba-805f-5ee45a653e4a",
`Content-Type` = "application/json; charset=utf-8", `Content-Length` = "928",
ETag = "W/\"3a0-crkdF5s2n+iaDoEpF4jgubpoGO8\"", Date = "Fri, 22 Dec 2023 21:36:36 GMT",
Connection = "keep-alive"), class = "httr2_headers"),
body = as.raw(c(0x7b, 0x22, 0x72, 0x65, 0x73, 0x70, 0x6f,
0x6e, 0x73, 0x65, 0x73, 0x22, 0x3a, 0x5b, 0x7b, 0x22, 0x63,
0x6f, 0x6c, 0x75, 0x6d, 0x6e, 0x48, 0x65, 0x61, 0x64, 0x65,
0x72, 0x73, 0x43, 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x31,
0x2c, 0x22, 0x64, 0x61, 0x74, 0x61, 0x22, 0x3a, 0x5b, 0x5b,
0x22, 0x41, 0x41, 0x50, 0x4c, 0x2e, 0x4f, 0x22, 0x2c, 0x22,
0x55, 0x53, 0x44, 0x22, 0x2c, 0x22, 0x4f, 0x72, 0x64, 0x69,
0x6e, 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61, 0x72, 0x65,
0x73, 0x22, 0x2c, 0x22, 0x4e, 0x4f, 0x20, 0x4d, 0x41, 0x52,
0x4b, 0x45, 0x54, 0x20, 0x28, 0x45, 0x2e, 0x47, 0x2e, 0x20,
0x55, 0x4e, 0x4c, 0x49, 0x53, 0x54, 0x45, 0x44, 0x29, 0x22,
0x2c, 0x22, 0x58, 0x58, 0x58, 0x58, 0x22, 0x2c, 0x74, 0x72,
0x75, 0x65, 0x2c, 0x22, 0x55, 0x53, 0x30, 0x33, 0x37, 0x38,
0x33, 0x33, 0x31, 0x30, 0x30, 0x35, 0x22, 0x5d, 0x2c, 0x5b,
0x22, 0x47, 0x4f, 0x4f, 0x47, 0x2e, 0x4f, 0x22, 0x2c, 0x22,
0x55, 0x53, 0x44, 0x22, 0x2c, 0x22, 0x4f, 0x72, 0x64, 0x69,
0x6e, 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61, 0x72, 0x65,
0x73, 0x22, 0x2c, 0x22, 0x4e, 0x4f, 0x20, 0x4d, 0x41, 0x52,
0x4b, 0x45, 0x54, 0x20, 0x28, 0x45, 0x2e, 0x47, 0x2e, 0x20,
0x55, 0x4e, 0x4c, 0x49, 0x53, 0x54, 0x45, 0x44, 0x29, 0x22,
0x2c, 0x22, 0x58, 0x58, 0x58, 0x58, 0x22, 0x2c, 0x74, 0x72,
0x75, 0x65, 0x2c, 0x22, 0x55, 0x53, 0x30, 0x32, 0x30, 0x37,
0x39, 0x4b, 0x31, 0x30, 0x37, 0x39, 0x22, 0x5d, 0x2c, 0x5b,
0x22, 0x49, 0x49, 0x49, 0x2e, 0x4c, 0x22, 0x2c, 0x22, 0x47,
0x42, 0x70, 0x22, 0x2c, 0x22, 0x4f, 0x72, 0x64, 0x69, 0x6e,
0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61, 0x72, 0x65, 0x73,
0x22, 0x2c, 0x22, 0x4c, 0x4f, 0x4e, 0x44, 0x4f, 0x4e, 0x20,
0x53, 0x54, 0x4f, 0x43, 0x4b, 0x20, 0x45, 0x58, 0x43, 0x48,
0x41, 0x4e, 0x47, 0x45, 0x22, 0x2c, 0x22, 0x58, 0x4c, 0x4f,
0x4e, 0x22, 0x2c, 0x74, 0x72, 0x75, 0x65, 0x2c, 0x22, 0x47,
0x42, 0x30, 0x30, 0x42, 0x31, 0x59, 0x57, 0x34, 0x34, 0x30,
0x39, 0x22, 0x5d, 0x2c, 0x5b, 0x22, 0x4d, 0x4d, 0x4d, 0x22,
0x2c, 0x22, 0x55, 0x53, 0x44, 0x22, 0x2c, 0x22, 0x4f, 0x72,
0x64, 0x69, 0x6e, 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61,
0x72, 0x65, 0x73, 0x22, 0x2c, 0x22, 0x4e, 0x4f, 0x20, 0x4d,
0x41, 0x52, 0x4b, 0x45, 0x54, 0x20, 0x28, 0x45, 0x2e, 0x47,
0x2e, 0x20, 0x55, 0x4e, 0x4c, 0x49, 0x53, 0x54, 0x45, 0x44,
0x29, 0x22, 0x2c, 0x22, 0x58, 0x58, 0x58, 0x58, 0x22, 0x2c,
0x74, 0x72, 0x75, 0x65, 0x2c, 0x22, 0x55, 0x53, 0x38, 0x38,
0x35, 0x37, 0x39, 0x59, 0x31, 0x30, 0x31, 0x30, 0x22, 0x5d,
0x5d, 0x2c, 0x22, 0x68, 0x65, 0x61, 0x64, 0x65, 0x72, 0x4f,
0x72, 0x69, 0x65, 0x6e, 0x74, 0x61, 0x74, 0x69, 0x6f, 0x6e,
0x22, 0x3a, 0x22, 0x68, 0x6f, 0x72, 0x69, 0x7a, 0x6f, 0x6e,
0x74, 0x61, 0x6c, 0x22, 0x2c, 0x22, 0x68, 0x65, 0x61, 0x64,
0x65, 0x72, 0x73, 0x22, 0x3a, 0x5b, 0x5b, 0x7b, 0x22, 0x64,
0x69, 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65,
0x22, 0x3a, 0x22, 0x49, 0x6e, 0x73, 0x74, 0x72, 0x75, 0x6d,
0x65, 0x6e, 0x74, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
0x3a, 0x22, 0x43, 0x75, 0x72, 0x72, 0x65, 0x6e, 0x63, 0x79,
0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22, 0x3a,
0x22, 0x54, 0x52, 0x2e, 0x50, 0x52, 0x49, 0x43, 0x45, 0x43,
0x4c, 0x4f, 0x53, 0x45, 0x2e, 0x43, 0x75, 0x72, 0x72, 0x65,
0x6e, 0x63, 0x79, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
0x3a, 0x22, 0x49, 0x6e, 0x73, 0x74, 0x72, 0x75, 0x6d, 0x65,
0x6e, 0x74, 0x20, 0x54, 0x79, 0x70, 0x65, 0x22, 0x2c, 0x22,
0x66, 0x69, 0x65, 0x6c, 0x64, 0x22, 0x3a, 0x22, 0x54, 0x52,
0x2e, 0x49, 0x4e, 0x53, 0x54, 0x52, 0x55, 0x4d, 0x45, 0x4e,
0x54, 0x54, 0x59, 0x50, 0x45, 0x22, 0x7d, 0x2c, 0x7b, 0x22,
0x64, 0x69, 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d,
0x65, 0x22, 0x3a, 0x22, 0x45, 0x78, 0x63, 0x68, 0x61, 0x6e,
0x67, 0x65, 0x20, 0x4e, 0x61, 0x6d, 0x65, 0x22, 0x2c, 0x22,
0x66, 0x69, 0x65, 0x6c, 0x64, 0x22, 0x3a, 0x22, 0x54, 0x52,
0x2e, 0x45, 0x58, 0x43, 0x48, 0x41, 0x4e, 0x47, 0x45, 0x4e,
0x41, 0x4d, 0x45, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
0x3a, 0x22, 0x45, 0x78, 0x63, 0x68, 0x61, 0x6e, 0x67, 0x65,
0x20, 0x4d, 0x61, 0x72, 0x6b, 0x65, 0x74, 0x20, 0x49, 0x64,
0x65, 0x6e, 0x74, 0x69, 0x66, 0x69, 0x65, 0x72, 0x20, 0x43,
0x6f, 0x64, 0x65, 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c,
0x64, 0x22, 0x3a, 0x22, 0x54, 0x52, 0x2e, 0x45, 0x58, 0x43,
0x48, 0x41, 0x4e, 0x47, 0x45, 0x4d, 0x41, 0x52, 0x4b, 0x45,
0x54, 0x49, 0x44, 0x43, 0x4f, 0x44, 0x45, 0x22, 0x7d, 0x2c,
0x7b, 0x22, 0x64, 0x69, 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e,
0x61, 0x6d, 0x65, 0x22, 0x3a, 0x22, 0x49, 0x6e, 0x73, 0x74,
0x72, 0x75, 0x6d, 0x65, 0x6e, 0x74, 0x20, 0x49, 0x73, 0x20,
0x41, 0x63, 0x74, 0x69, 0x76, 0x65, 0x20, 0x46, 0x6c, 0x61,
0x67, 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22,
0x3a, 0x22, 0x54, 0x52, 0x2e, 0x49, 0x4e, 0x53, 0x54, 0x52,
0x55, 0x4d, 0x45, 0x4e, 0x54, 0x49, 0x53, 0x41, 0x43, 0x54,
0x49, 0x56, 0x45, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
0x3a, 0x22, 0x49, 0x53, 0x49, 0x4e, 0x20, 0x43, 0x6f, 0x64,
0x65, 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22,
0x3a, 0x22, 0x54, 0x52, 0x2e, 0x49, 0x53, 0x49, 0x4e, 0x43,
0x4f, 0x44, 0x45, 0x22, 0x7d, 0x5d, 0x5d, 0x2c, 0x22, 0x72,
0x6f, 0x77, 0x48, 0x65, 0x61, 0x64, 0x65, 0x72, 0x73, 0x43,
0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x31, 0x2c, 0x22, 0x74,
0x6f, 0x74, 0x61, 0x6c, 0x43, 0x6f, 0x6c, 0x75, 0x6d, 0x6e,
0x73, 0x43, 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x37, 0x2c,
0x22, 0x74, 0x6f, 0x74, 0x61, 0x6c, 0x52, 0x6f, 0x77, 0x73,
0x43, 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x35, 0x7d, 0x5d,
0x7d)), request = structure(list(url = "http://localhost:9060/api/udf/",
method = NULL, headers = structure(list(`x-tr-applicationid` = "nokeyhere",
`Content-Type` = "application/json"), redact = character(0)),
body = list(data = list(Entity = list(E = "DataGrid_StandardAsync",
W = list(requests = list(list(instruments = c("AAPL.O",
"GOOG.O", "III.L", "MMM"), fields = list(list(name = "TR.PriceClose.Currency"),
list(name = "TR.InstrumentType"), list(name = "TR.ExchangeName"),
list(name = "TR.ExchangeMarketIdCode"), list(
name = "TR.InstrumentIsActive"), list(name = "TR.ISINCode"))))))),
type = "json", content_type = "application/json",
params = list(auto_unbox = TRUE, digits = 22, null = "null")),
fields = list(), options = list(useragent = "RefinitivR (https://github.com/GreenGrassBlueOcean/RefinitivR)"),
policies = list()), class = "httr2_request"), cache = list()), class = "httr2_response")
ticket <- 'somehashcode'
testoutcome <- suppressMessages(ConstructTicketJsonBody(query = Originalquery, ticket = ticket, debug = TRUE))
CorrectAnswer <- list(Entity = list(E = "DataGrid_StandardAsync", W = list(requests = list(
list(ticket = "somehashcode")))))
expect_equal(testoutcome, CorrectAnswer)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.