| query_clue | R Documentation | 
run the api.clue.io API to acquire information on LINCS experiments
query_clue(
  service = "profiles",
  filter = list(where = (list(pert_iname = "sirolimus", cell_id = "MCF7", assay =
    "L1000"))),
  key = Sys.getenv("CLUE_KEY")
)
service | 
 a character(1) service name  | 
filter | 
 a list to be converted to JSON for submission as a GET request  | 
key | 
 character(1) API key provided by clue.io  | 
API return value processed by fromJSON
if (nchar(Sys.getenv("CLUE_KEY"))>0) {
demos = clueDemos()
nd = length(demos)
chk = lapply(seq_len(nd), function(x) query_clue( service=names(demos)[x],
              filter=demos[[x]]) )
names(chk) = names(demos)
sapply(chk,length)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.