Connect to google datastore through R

gistfile1.txt

library(httr)
library(jsonlite)

# 1. Find OAuth settings for google:
#    https://developers.google.com/accounts/docs/OAuth2InstalledApp
oauth_endpoints("google")

# 2. Register an application at https://cloud.google.com/console#/project
#    Replace key and secret below.
myapp <- oauth_app("google",
                   key = "",
                   secret = "")

# 3. Get OAuth credentials
google_token <- oauth2.0_token(oauth_endpoints("google"), myapp,
                               scope = "https://www.googleapis.com/auth/datastore")

# 4. Use API

resp = list(keys = "test")

req <- POST("https://datastore.googleapis.com/v1beta3/projects/<project_id>:lookup",
           config(token = google_token),
           body = list(keys = list(path = list(kind = "test", name = "test1"))),
           encode = "json",
          verbose())


stop_for_status(req)
content(req)

fromJSON(text_content(req))$found