Generate a citation for downloaded data

Produces a citation string from metadata attached to data by get_data().

Usage

px_cite(data_df)

Arguments

data_df

A tibble returned by get_data().

Value

A character string (formatted citation).

Examples

# \donttest{
scb <- px_api("scb", lang = "en")
if (px_available(scb)) {
  d <- get_data(scb, "TAB638", Region = "0180", Tid = px_top(3))
  px_cite(d)
}# }
#> Warning: PX-Web API returned HTTP 400: {"type":"Parameter error","title":"Missing selection for mandantory variable","status":400}
#> Warning: No source metadata found. Was this data fetched with get_data()?
#> [1] NA