List DBI backends on home page

[hadley]

This will be some work to keep up to date, but it would be really nice to be able to point people to a list.

[krlmlr]

Relevant GitHub search: https://github.com/search?o=desc&q=org%3Acran+contains+DBIDriver&s=indexed&type=Code

# Auto-pagination requires dev version of gh
x <- gh::gh("/search/code", q = "contains+DBIDriver+org:cran", sort = "indexed", .limit = 1000)

sort(purrr::map_chr(x$items, c("repository", "full_name")))
#>  [1] "cran/AzureKusto"        "cran/bigrquery"        
#>  [3] "cran/civis"             "cran/DatabaseConnector"
#>  [5] "cran/DBI"               "cran/DBI"              
#>  [7] "cran/DBI"               "cran/DBI"              
#>  [9] "cran/DBI"               "cran/DBI"              
#> [11] "cran/MonetDB.R"         "cran/MonetDBLite"      
#> [13] "cran/odbc"              "cran/RClickhouse"      
#> [15] "cran/RecordLinkage"     "cran/RJDBC"            
#> [17] "cran/RMariaDB"          "cran/RMySQL"           
#> [19] "cran/ROracle"           "cran/ROracle"          
#> [21] "cran/ROracle"           "cran/RPostgres"        
#> [23] "cran/RPresto"           "cran/RSQLite"          
#> [25] "cran/RSQLServer"        "cran/sergeant"         
#> [27] "cran/TSfame"            "cran/TSfame"           
#> [29] "cran/TSgetSymbol"       "cran/TShistQuote"      
#> [31] "cran/TSjson"            "cran/TSmisc"           
#> [33] "cran/TSpadi"            "cran/TSsdmx"           
#> [35] "cran/TSxls"             "cran/TSzip"

library(tidyverse)
pkg <- 
  tibble(items = x$items) %>% 
  unnest_wider(items) %>% 
  select(path, repository) %>% 
  unnest_wider(repository) %>% 
  mutate(available = name %in% rownames(available.packages())) %>% 
  arrange(available, name) %>% 
  filter(name != "DBI") %>% 
  nest(data = -c(name, description)) %>% 
  mutate(crandb = map(name, crandb::package))

pkg %>% 
  mutate(crandb = map(crandb, unclass)) %>% 
  hoist(crandb, version = "Version", title = "Title", description = "Description", license = "License", url = "URL", bugs = "BugReports") %>% 
  select(-crandb)
#> # A tibble: 27 x 8
#>    name        data version  title    description   license url     bugs   
#>    <chr>  <list<df> <chr>    <chr>    <chr>         <chr>   <chr>   <chr>  
#>  1 Monet…  [1 × 46] 0.6.0    In-Proc… An in-proces… MPL (=… https:… https:…
#>  2 RSQLS…  [1 × 46] 0.3.0    SQL Ser… "Utilises Th… GPL-2   https:… https:…
#>  3 TSget…  [1 × 46] 2013.9-1 TSdbi e… Provides met… GPL-2   http:/… <NA>   
#>  4 TShis…  [1 × 46] 2013.9-1 TSdbi e… Provides met… GPL-2   http:/… <NA>   
#>  5 TSjson  [1 × 46] 2014.4-1 TSdbi e… Provides met… GPL-2   http:/… <NA>   
#>  6 TSpadi  [1 × 46] 2012.8-1 TSdbi e… "Provides me… GPL-2   http:/… <NA>   
#>  7 TSxls   [1 × 46] 2013.8-2 TSdbi e… Provides TSd… GPL-2   http:/… <NA>   
#>  8 TSzip   [1 × 46] 2013.9-1 TSdbi e… Provides TSd… GPL-2   http:/… <NA>   
#>  9 Azure…  [1 × 46] 1.0.3    Interfa… An interface… MIT + … "https… https:…
#> 10 bigrq…  [1 × 46] 1.2.0    An Inte… Easily talk … GPL-3   https:… https:…
#> # … with 17 more rows

^{Created on 2019-10-13 by the reprex package (v0.3.0)}

Things to do here:

• Find URL of GitHub repo if available
• Check if package is archived, cross-reference with available.packages()
• Get number of package downloads from cranlogs, https://cranlogs.r-pkg.org/#jsonapi
• Get number of GitHub stars via stargazers
• Create a nice table with name, title, description, badges and links
• Make sure it's generated automatically

[krlmlr]

Draft available at https://github.com/r-dbi/backends.