# NOT RUN {
#############################################################################
# EXAMPLE 1: Demonstration example for filename_split
#############################################################################
# file name
file_name <- "pisa_all_waves_invariant_items_DATA_ITEMS_RENAMED__DESCRIPTIVES__2016-10-12_1000.csv"
# apply function
miceadds::filename_split( file_name )
## $file_name
## [1] "pisa_all_waves_invariant_items_DATA_ITEMS_RENAMED__DESCRIPTIVES__2016-10-12_1000.csv"
## $stem
## [1] "pisa_all_waves_invariant_items_DATA_ITEMS_RENAMED__DESCRIPTIVES"
## $suffix
## [1] "2016-10-12_1000"
## $ext
## [1] "csv"
## $main
## [1] "pisa_all_waves_invariant_items_DATA_ITEMS_RENAMED__DESCRIPTIVES.csv"
#############################################################################
# EXAMPLE 2: Example string_extract_part
#############################################################################
vec <- c("ertu__DES" , "ztu__DATA" , "guzeuue745_ghshgk34__INFO", "zzu78347834_ghghwuz")
miceadds::string_extract_part( vec=vec , part=1, sep="__" )
miceadds::string_extract_part( vec=vec , part=2, sep="__" )
## > string_extract_part( vec=vec , part=1, sep="__" )
## [1] "ertu" "ztu" "guzeuue745_ghshgk34"
## [4] "zzu78347834_ghghwuz"
## > string_extract_part( vec=vec , part=2, sep="__" )
## [1] "DES" "DATA" "INFO" NA
# }
Run the code above in your browser using DataLab