kobotoolbox_api_access.R

getDataList <- function(owner) {
  require(gWidgets)
  options(guiToolkit="tcltk") 
  username = ginput("Enter your username: ")
  password = ginput("Enter your password: ")
  url <- "curl -X GET https://kc.kobotoolbox.org/api/v1/data"
  cmd <- sprintf("%s.csv?owner=%s -u %s:%s", url, owner, username, password)
  read.csv(text = system(cmd, intern = TRUE, ignore.stderr = TRUE))
}

getDataList("mrdwab")

getData <- function(dataID) {
  require(gWidgets)
  require(data.table)
  options(guiToolkit="tcltk") 
  username = ginput("Enter your username: ")
  password = ginput("Enter your password: ")
  url <- "curl -X GET https://kc.kobotoolbox.org/api/v1/data"
  cmd <- sprintf("%s/%s.csv -u %s:%s", url, dataID, username, password)
  x <- tempfile()
  writeLines(system(cmd, intern = TRUE, ignore.stderr = TRUE), con = x)
  fread(x)
}

getData("18878")

library(httr)

x <- GET("https://kc.kobotoolbox.org/api/v1/data/18878.csv", authenticate("mrdwab", "*********"))
fread(rawToChar(x[["content"]]))