align get_csv_spec() utility functions with those used in read_portfolio_csv()

[cjyetman]

The R/get_csv_specs.R script includes a number of unexported utility functions. These functions should be extracted into their own script file or should be replaced by the equivalent functions being used by read_portfolio_csv() to avoid mis-alignment.

for example...

pacta.portfolio.import/R/get_csv_specs.R

Lines 287 to 295 in d318951

	check_column_names <- function(filepaths, encodings, delimiters) {
	vapply(
	X = seq_along(filepaths),
	FUN = function(i) {
	readr::read_delim(file = filepaths[[i]], locale = readr::locale(encoding = encodings[[i]]), delim = delimiters[[i]], n_max = 1L, col_names = FALSE, show_col_types = FALSE, progress = FALSE)
	},
	FUN.VALUE = integer(1)
	)
	}

pacta.portfolio.import/R/get_csv_specs.R

Lines 323 to 336 in d318951

	get_fields_per_line <- function(filepaths, tokenizers) {
	vapply(
	X = seq_along(filepaths),
	FUN = function(i) {
	list(
	readr::count_fields(
	file = filepaths[[i]],
	tokenizer = tokenizers[[i]]
	)
	)
	},
	FUN.VALUE = list(1)
	)
	}

AB#10857