old/demo_query.r

In amcat/amcat-r: R bindings for the AmCAT API

conn = amcat.connect("http://localhost:8000", "amcat", "amcat")
conn = amcat.connect("http://amcat.vu.nl", Sys.getenv('USER'))

x = amcat.gethierarchy(conn=conn, codebook_id=296, languages=c("nl", "query"))

x = amcat.codebook.cats(x, maxdepth=1)
q = amcat.getqueries(x$label.query, x$code)

queries=q$query
labels=q$label

h = amcat.hits(conn, queries, labels, sets=6263) 

c = amcat.aggregate(conn, queries, labels=labels, sets=6263, axis1="year")
c = merge(x, c, by.x="code", by.y="query", all.x=T)