From 5e8e50c48da3c506bfac7688d580bf92d5a79efb Mon Sep 17 00:00:00 2001
From: Carson Sievert <cpsievert1@gmail.com>
Date: Thu, 26 Apr 2018 16:21:31 -0500
Subject: [PATCH 1/2] add RStudio project

---
 openfda.Rproj | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 openfda.Rproj

diff --git a/openfda.Rproj b/openfda.Rproj
new file mode 100644
index 0000000..21a4da0
--- /dev/null
+++ b/openfda.Rproj
@@ -0,0 +1,17 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source

From 97a8572e4037393bcdb83797f6981b06db50a38c Mon Sep 17 00:00:00 2001
From: Carson Sievert <cpsievert1@gmail.com>
Date: Thu, 26 Apr 2018 16:22:09 -0500
Subject: [PATCH 2/2] Use OPENFDA_API_KEY environment variable if available

---
 R/openfda.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/openfda.R b/R/openfda.R
index 0001b5c..f6f303a 100644
--- a/R/openfda.R
+++ b/R/openfda.R
@@ -84,7 +84,7 @@ fda_query <- function(base) {
   q$base = base
   q$limit = FALSE
   q$skip = FALSE
-  q$key = FALSE
+  q$key = Sys.getenv("OPENFDA_API_KEY", NA)
   q$count = FALSE
   q$debug = TRUE
   q$filters = vector("character")
@@ -159,7 +159,7 @@ fda_skip <- function(q, skip) {
 #'
 #' @return fda_query
 #' @export
-fda_api_key <- function(q, key) {
+fda_api_key <- function(q, key = Sys.getenv("OPENFDA_API_KEY", NA)) {
   q = copy_query(q)
   q$key = key
   q
@@ -175,7 +175,7 @@ fda_url <- function(q) {
 
   args = c(search);
 
-  if (q$key != FALSE) {
+  if (!is.na(q$key)) {
     args = c(args, paste("api_key", q$key, sep="="))
   }