addMetadataToGN.R

library(geonapi)
library(geometa)
library(uuid)
library(stringr)

working_dir = getwd()

# Read params
datasets <- read.csv(file=paste0(working_dir, "/params/datasets.csv"),  sep = ",")
csv_error <- data.frame()

for (dataset in datasets$n){
  print(paste0("Working on: ", datasets$Title.Identifier..if.no.DOI.available.[dataset]))
  error_bool = FALSE
  
  if(datasets$Description.of.the.dataset.Abstract[dataset] == ""){# where there is no abstract
    error <- data.frame(
      n = dataset,
      uuid = datasets$uuid[dataset],
      title = datasets$Title.Identifier..if.no.DOI.available.[dataset],
      error = 'missing abstract',
      contact = datasets$Producer[dataset],
      error_level = 'error'
    )
    error_bool = TRUE
    csv_error <- rbind(csv_error, error)
  }
  if (datasets$Producer[dataset] %in% c("mundialis")){# we harvest them
    error <- data.frame(
      n = dataset,
      uuid = datasets$uuid[dataset],
      title = datasets$Title.Identifier..if.no.DOI.available.[dataset],
      error = 'already harvested',
      contact = datasets$Producer[dataset],
      error_level = 'error'
    )
    error_bool = TRUE
    csv_error <- rbind(csv_error, error)
  }
  if (datasets$Link..html..to.an.image.logo.figure.representing.the.database[dataset] == ""){
    error <- data.frame(
      n = dataset,
      uuid = datasets$uuid[dataset],
      title = datasets$Title.Identifier..if.no.DOI.available.[dataset],
      error = 'missing thumbnail',
      contact = datasets$Producer[dataset],
      error_level = 'warning'
    )
    csv_error <- rbind(csv_error, error)
  }
  
  
  if(error_bool == FALSE){ #skip when error
    metadata_id <- datasets$uuid[dataset]
    
    ##Création métadonnée
    md = ISOMetadata$new()
    metadata_id=paste(metadata_id)
    md$setFileIdentifier(metadata_id)
    md$setCharacterSet("utf8")
    md$setMetadataStandardName("ISO 19115:2003/19139")
    md$setLanguage("eng")
    md$setDateStamp(Sys.time())
    # md$setHierarchyLevel("dataset")
    md$setHierarchyLevel(tolower(paste(datasets$Dataset.or.Software[dataset])))
    
    ##Creation identification
    ident <- ISODataIdentification$new()
    ident$setAbstract(paste(datasets$Description.of.the.dataset.Abstract[dataset]))
    ident$setLanguage("eng")