bqr_list_datasets(projectId = bqr_get_global_project())

## Not run: 
  library(bigQueryR)
  
  ## this will open your browser
  ## Authenticate with an email that has access to the BigQuery project you need
  bqr_auth()
  
  ## verify under a new user
  bqr_auth(new_user=TRUE)
  
  ## get projects
  projects <- bqr_list_projects()
  
  my_project <- projects[1]
  
  ## for first project, get datasets
  datasets <- bqr_list_datasets[my_project]
  

## End(Not run)