library(soilcarbon)
library(knitr)
database<-read.csv("~/Dropbox/data_files/database/compiled_database.csv")
dataset_names<-unique(database$dataset_name)
doi_names<-unique(database$doi_number)

datasets<-data.frame()
for (n in 1:length(dataset_names)){
  sub<-subset(database, dataset_name==dataset_names[n])
  dois<-unique(sub$doi_number)
  datasets<-rbind(datasets, cbind(as.character(dataset_names[n]), as.character(dois)))
}
colnames(datasets)<-c("dataset_name","doi_number")

kable(datasets)


powellcenter-soilcarbon/soilcarbon documentation built on May 25, 2019, 11:24 a.m.