Naming convention, which adds k prefix for each key, capitalizes and removes file extension

Naming convention, which adds k prefix for each key, capitalizes and removes file extension

naming_k(path)

Arguments

path	full path or its element

Examples

library(magrittr)
naming_k("path/to/myfile.txt")
#> [1] "kMyfile"
# Using with full_path_chain
tmp <- create_temp_dir("files")
create_sample_dir(tmp, override = TRUE)
#> [1] TRUE
full.path.chain <- full_path_chain(tmp, naming = naming_k)
full.path.chain
#> $.
#> [1] "/tmp/Rtmp4l1UVj/files"
#> 
#> $kData
#> $kData$.
#> [1] "/tmp/Rtmp4l1UVj/files/data"
#> 
#> $kData$kExample1
#> [1] "/tmp/Rtmp4l1UVj/files/data/example1.RData"
#> 
#> $kData$kExample2
#> [1] "/tmp/Rtmp4l1UVj/files/data/example2.RData"
#> 
#> $kData$kPersons
#> [1] "/tmp/Rtmp4l1UVj/files/data/persons.csv"
#> 
#> 
#> $kDocs
#> $kDocs$.
#> [1] "/tmp/Rtmp4l1UVj/files/docs"
#> 
#> $kDocs$kSchema
#> [1] "/tmp/Rtmp4l1UVj/files/docs/schema.txt"
#> 
#> 
tmp <- create_temp_dir("files")
create_sample_dir(tmp)
#> Warning: katalog '/tmp/Rtmp4l1UVj/files' już istnieje
#> Warning: katalog '/tmp/Rtmp4l1UVj/files/docs' już istnieje
#> Warning: katalog '/tmp/Rtmp4l1UVj/files/data' już istnieje
#> [1] TRUE
# Using with path_chain / create_path_chain
path.chain <- path_chain(tmp, naming = naming_k)
path.chain %>%
  as.list()
#> $root.dir
#> [1] "files/"
#> 
#> $kData
#> $kData$root.dir
#> [1] "data/"
#> 
#> $kData$kExample1
#> [1] "example1.RData"
#> 
#> $kData$kExample2
#> [1] "example2.RData"
#> 
#> $kData$kPersons
#> [1] "persons.csv"
#> 
#> 
#> $kDocs
#> $kDocs$root.dir
#> [1] "docs/"
#> 
#> $kDocs$kSchema
#> [1] "schema.txt"
#> 
#>