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
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) |
|
} |
|
}
|
|
|