my_path <- "some/complicated/path/some_file.extension"

# no path, with extenstion
# expected: "some_file.extension"
basename(my_path)

# with path, no extension
# expected: some/complicated/path/some_file
tools::file_path_sans_ext(in_model)

# without path and extenstion
## expected: some_file
basename(tools::file_path_sans_ext(my_path))