The code used to analyze the information in the CrossRef Database on works that are or have translations.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

19 lines
611 B

save_csv_data <- function(data, fileDirName) {
# Write out the data. Just to check the basic input of the analysis is okay.
# Only DOI, title and language is given out.
if (file.exists(fileDirName) == FALSE) {
noVal = nrow(data)
noElements = vector(mode="integer", noVal)
for (i in 1:noVal) {
noElements[i] = length(data$title[[i]])
if ( noElements[i] !=1 ) {
print(i)
print(data$title[[i]])
}
}
print(unique(noElements))
data2 = data[c("DOI", "title", "language")] # "title",
write.csv(as.data.frame(data2), file = fileDirName)
}
}