Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(tidyUSDA)
## -----------------------------------------------------------------------------
# Use keyring to store your api key
# key <- keyring::key_get("tidyusda")
# Or hard code that thing
key <- '7CE0AFAD-EF7B-3761-8B8C-6AF474D6EF71' # please get your own key!
## -----------------------------------------------------------------------------
tidyUSDA::allCategory %>% head()
## -----------------------------------------------------------------------------
tidyUSDA::allGeogLevel %>% head()
## ----results = "hide", eval=FALSE---------------------------------------------
#
# # Get count of operations with sales in 2017
# ops.with.sales <- tidyUSDA::getQuickstat(
# sector=NULL,
# group=NULL,
# commodity=NULL,
# category=NULL,
# domain='TOTAL',
# county=NULL,
# key = key,
# program = 'CENSUS',
# data_item = 'CROP TOTALS - OPERATIONS WITH SALES',
# geographic_level = 'STATE',
# year = '2017',
# state = NULL,
# geometry = TRUE,
# lower48 = TRUE,
# weighted_by_area = T)
## ----eval=FALSE---------------------------------------------------------------
#
# # Plot this data for each state
# tidyUSDA::plotUSDA(df = ops.with.sales)
#
## ----eval=FALSE---------------------------------------------------------------
# tidyUSDA::plotUSDA(df = ops.with.sales, fill_by = 'value_per_sq_mile')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.