R/old/get-gear-name.R

In longwei66/mountainbikeR: A package for mountainbikers to access and visualise ride data through strava API

#' getGearName
#'
#' using a gear list database
#' return gear name from a list of gear id
#'
#' @param x
#' @param gearList
#'
#' @return the name of the gear for a given id
#' @export
#'
#' @examples
getGearName <- function(x,gearList){
    if(!is.na(x)){
        test <- (gearList$id == x)
        if(sum(test) > 0) {
            return(myGear$gear.name[test])
        } else {
            return(NA)
        }} else {
            return(NA)
        }
}