added message when complete

btskinner · btskinner · commit f4f8d9c8171b · 2016-10-02T17:26:18.000-05:00
diff --git a/R/get.R b/R/get.R
@@ -110,6 +110,7 @@ sc_get <- function(sccall, api_key) {
 
     ## add year column and return
     df[['year']] <- sccall[['year']]
+    message('Request complete!')
     df
 
 }

Original file line number	Diff line number	Diff line change
`@@ -110,6 +110,7 @@ sc_get <- function(sccall, api_key) {`
`110`	`110`
`111`	`111`	`## add year column and return`
`112`	`112`	`df[['year']] <- sccall[['year']]`
	`113`	`+ message('Request complete!')`
`113`	`114`	`df`
`114`	`115`
`115`	`116`	`}`