Learn R Programming

miceadds (version 2.10-14)

filename_split: Some Functionality for Strings and File Names

Description

The function filename_split splits a file name into parts.

The function string_extract_part extracts a part of a string.

Usage

filename_split(file_name, file_sep = "__", file_ext = ".")

string_extract_part( vec , part=1, sep="__" )

Arguments

file_name

File name

file_sep

Separator within file name

file_ext

Separator for file extension

vec

Vector with strings

part

Integer indicating the part of the string to be selected

sep

String separator

Value

List with components of the file name (see Examples).

See Also

files_move

Examples

Run this code
# 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