Retrieve a table with codings (or other data)

Below is code for retrieving a table of codings, amongst others, from an RQDA project. For more information, see this blog post.

library(RQDAassist)

url <-
  "http://comm.eval.org/HigherLogic/System/DownloadDocumentFile.ashx?DocumentFileKey=101e221b-297e-4468-bfc9-8deccb4adf8c&forceDialog=0"
project <- 'MyProject.rqda'

download.file(url, project, mode = 'wb')   ## 'mode' for binary files

## Retrieval of the default codings table
df <- retrieve_codingtable(project)
str(df)

## Custom query
qry <- "SELECT DISTINCT name FROM source WHERE status=1;"
tbl <- retrieve_codingtable(project, qry)
tbl