R/sharpen.R

.sharpen<-function(x){
  require(magrittr)
  base64enc::base64decode(x) %>%
    rawToChar() %>%
    {
      if (grepl('%%', .)) {
        strsplit(., split = "%%") %>%
          unlist() %>%
          lapply(., strsplit, split = ";") %>%
          lapply(unlist) %>%
          {
            setNames(.[[1]], .[[2]])
          }
      } else{
        .
      }
    }
}
JARS3N/PipeFish documentation built on May 7, 2019, 6:47 a.m.