Create lists for both main and alternative list and bind them (should have used append).
There are over 2,000 journals here, but running an intersection with aa.list finds only 30, none of which are found in the oa.journals function.
Better function for getting incomplete cases.
Tabulate & plot publishers.
Update wd.
Read in doaj & aa with nastrings.
Pull list of alternative titles (but this function doesn't yet check for it).
Create a doaj.list dataframe including publisher.
Correct path in oa.journals to departments.
Correct %in% to search specifically in the Title vector, for both doaj.list and missing.
Clean scopus titles and type with same procedure as other dfs.
Run table, forget running the percentages (94% for one and 2% all the rest is useless, but keep this function in mind for other dfs).
First commit.
Adds publisher to doaj and plots the top 20.
Makes ArtCounts into a function.
Makes the plot into a function.
Adds the theme_bw to the plot.
Changes "Discipline" into "Department"
Sets a new path for new plots.
Ignore html and onedept files
Lots of changes.
Create function clean.doaj.trim.main for trimming the doaj data.
Create function clean.aa for trimming the AA data.
Create function doaj.aa.punctuation for creating list of intersected journals with punctuation issues.
Change name of main function.
Space out function by operation.
For Trimmed and Replaced Journal name, put all functions into one.
Add a third loop to check the alternative title list.
Because each loop has potential to return results, the "else" return NAs statement cannot follow each one; therefore, create a fourth if loop that says if each of the other loops are not true, then insert the NAs.
Create loops and intersections testing results for alternative lists and comparing the doaj list with everything replaced with the aa list with everything replaced.
It turns out that running the main function with all replaced vs. all replaced finds nothing extra, so it was a waste of time.
But running the alternative list found one extra in communication.
Comparing scopus vs. aa.