The goal of fdadata is to access public information from the FDA website.
Install the development version from GitHub with:
# install.packages("devtools")
devtools::install_github("bjoleary/fdadata")
Access FDA premarket data:
library(fdadata)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
fdadata::premarket %>%
dplyr::sample_n(5) %>%
print()
#> # A tibble: 5 × 30
#> submission_number sponsor company_clean company_group contact address_line_1
#> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 K032404 HDC CORP. HDC HDC EARL … 628 GIBRALTAR…
#> 2 K822154 THE DOW … THE DOW CHEM… THE DOW CHEM… <NA> 803 N. Front …
#> 3 P130006/S088 W.L. GOR… WL GORE AND … WL GORE AND … <NA> 3250 W.KILTIE…
#> 4 P890047/S027 Alcon Re… ALCON RESEAR… NOVARTIS <NA> 6201 SOUTH FR…
#> 5 P010068/S011 BIOSENSE… BIOSENSE WEB… JOHNSON AND … <NA> 31 Technology…
#> # ℹ 24 more variables: address_line_2 <chr>, city <chr>, state <chr>,
#> # country <chr>, zip_code <chr>, date_start <date>, date_decision <date>,
#> # decision_code <chr>, panel_code <chr>, product_code <chr>, summary <fct>,
#> # track <fct>, third_party_review <chr>, expedited <fct>, device <chr>,
#> # type <chr>, panel <fct>, decision <fct>, decision_category <fct>,
#> # date_federal_register <date>, generic_name <chr>, reason <chr>,
#> # docket_number <chr>, approval_order_statement <chr>
Additional datasets include fdadata::pmn
(510(k)s and De Novos),
fdadata::pma
, and fdadata::product_codes
.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.