library(adegenet)
library(poppr)
## Read all .str files into a list
files
mapply(FUN=write.table, counts, names(counts), MoreArgs=list(row.names=F, col.names=F, quote=F, sep='\t'))
## Tables written above were stripped of the locus and population names. Because we want to preserve these
## let's write that information out in another directory
dir.create('with_loc_pop_names')
setwd('with_loc_pop_names/')
mapply(FUN=write.table, counts, names(counts), MoreArgs=list(row.names=T, col.names=T, quote=F, sep='\t'))
## At this point, you should have allele counts matrices (one per input file). Further processing may be required.