tidied the R code with formatR::tidy.dir()