diff --git a/R/load_metadata.R b/R/load_metadata.R index b4ba566..ab475db 100644 --- a/R/load_metadata.R +++ b/R/load_metadata.R @@ -20,6 +20,8 @@ load_metadata <- function(webaddress = "https://raw.githubusercontent.com/Semant metadata <- read.csv(url(webaddress), stringsAsFactors = F) + colnames(metadata)[1] <- "included" + metadata <- subset(metadata, included == "yes") return(metadata)