karthik

library(rAltmetric)
library(purrr)
# we launch purrr because it gives us the safely function


ids <- c("10.1371/journal.pbio.0000002",
         "10.1371/journal.pbio.0000003",
         "10.1371/journal.pbio.0000004",
         "10.1371/journal.pbio.0000005",
         "10.1371/journal.pbio.0000006",

karthik

What is this?

A scratchpad for a classifer of software libraries focussing on a number of areas that will guide users to make more informed decisions about whether to include a library within their own project.

See librariesio/libraries.io#1486 for more information.

Themes/Questions

There are a number of key themes here that we need to look at. Within each I have posed a number of questions that might be of interest to a developer or maintainer.

Code

• What scale is this project? - Looking at things like novel LoC, #dependencies and LoC in dependencies perhaps.

karthik

library(tidyverse)
library(leaflet)
# If you don't have leaflet, install with:
# install.packages("leaflet")

# How to map data with Leaflet

download.file(
  "https://commondatastorage.googleapis.com/ckannet-storage/2012-07-09T214020/global_airports.csv",
  destfile = "global_airports.csv"

karthik

library(magick)
# Package and issues available at: https://github.com/ropensci/magick
# -------------------------------------------------------------------------
wizard_hat <- image_read("http://i.imgur.com/rpJ09lY.png") %>%
  image_scale("x100")

bigdata <-
  image_read('https://i.imgur.com/6X65Els.jpg') %>%
  image_scale("x300")

karthik

Explore functions in a package

lsp <- function (package, pattern, all.names = FALSE)
{
  package <- deparse(substitute(package))
  ls(pos = paste("package", package, sep = ":"), all.names = all.names,
     pattern = pattern)
}

karthik

#' Convert a dplyr expression to a list of step objects
separate_steps <- function(expr, iscall=FALSE) {
  if (iscall) {
    call <- expr
  } else {
    call <- match.call()[["expr"]]
  }
  
  len <- length(call)
  if (len == 1) {

karthik

> session_info()
Session info ------------------------------------------------------
 setting  value                       
 version  R version 3.3.1 (2016-06-21)
 system   x86_64, darwin13.4.0        
 ui       RStudio (1.0.5)             
 language (EN)                        
 collate  en_US.UTF-8                 
 tz       America/Los_Angeles         
 date     2016-09-07                  

karthik

library(rfisheries)
library(dplyr)
slist <- of_species_codes()
# This function fails with NULL quietly when there is no data for a particular species.
# However, if there is data, it will return the landings information
land_data <- dplyr::failwith(NULL, of_landings, quiet = TRUE) 

# e.g.
# land_data(species = "COD")
# will work

karthik

# This example shows you how to turn a JSON (and nested JSON) 
# response into a data.frame for further use in a R package


sample_response <- '{
                "crust": "original",
                "toppings": ["cheese", "potatoes", "garlic"],
                "status": "cooking",
                "customer": {
                    "name": "Garrett",

karthik