R/utils.R

In hrbrmstr/cymruservices: Query 'Team Cymru' 'IP' Address, Autonomous System Number ('ASN'), Border Gateway Protocol ('BGP'), Bogon and 'Malware' Hash Data Services

sock <- safely(socketConnection)

safe_rl <- safely(readLines)

# remove leading/trailing blanks around all strings in data.frame cols
trim_df <- function(df, stringsAsFactors=FALSE) {
  data.frame(lapply(df, function (v) {
    if (is.character(v)) {
      trimws(v)
    } else {
      v
    }
  }), stringsAsFactors = stringsAsFactors)
}