#' A letter counting function
#'
#' This function counts letters
#' @param which string would you like to count the letters of
#' @keywords string count
#' @export
#' @examples
#' multmerge3()
multmerge3 = function(path, read_fn = read.csv, n_files = F, file_path = 1){
if(length(file_path) == 1){
file_path = list.files(path, full.names = T)
}
if(n_files == F){
n_files = length(file_path)
}
count_rows = 0
j = 1
print(paste("file", j , "of", n_files))
# reads first file and make it the data frame
file = file_path[j]
df = data.frame(file = basename(file), read_fn(file), stringsAsFactors = F)
count_rows = count_rows + nrow(df)
guess_rows = (count_rows + 100) * n_files
df_large = df[rep(1,guess_rows),]
df_large[1:count_rows,] = df
for(j in 2:n_files){
print(paste("file", j , "of", n_files))
file = file_path[j]
df = data.frame(file = basename(file), read_fn(file), stringsAsFactors = F)
count_rows_new = count_rows +nrow(df)
while(count_rows_new>guess_rows){
# increase guessed size by 10
guess_rows_new = guess_rows*10
df_temp = df_large
df_large = df[rep(1,guess_rows_new),]
df_large[1:guess_rows,] = df_temp
guess_rows = guess_rows_new
}
df_large[(count_rows+1):count_rows_new,] = df
count_rows = count_rows_new
}
return(df_large[1:(count_rows),])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.