file to make JSON format

mpra_json.R

library(jsonlite)
library(readr)
dat <- read_csv("IGVF MPRA FG designed sequence metadata - Sheet1.csv")
dat$constraints <- as.list(dat$constraints)
dat$constraints[[1]] <- list(required=TRUE)
dat$constraints[[2]] <- list(required=TRUE)
dat$constraints[[3]] <- list(
  required=TRUE,
  enum=strsplit(sub(".*enum: \\[(.*)\\]","\\1",dat$constraints[[3]]),", ")[[1]]
)
dat$constraints[[4]] <- list(
  required=TRUE,
  enum=strsplit(sub(".*enum: \\[(.*)\\]","\\1",dat$constraints[[4]]),", ")[[1]]
)
dat$constraints[[8]] <- list(minimum=0)
dat$constraints[[9]] <- list(minimum=1)
dat$constraints[[10]] <- list(enum=c("+","-"))
dat$constraints[[11]] <- list(enum=c("SNP","indel"))
dat$constraints[[12]] <- list(minimum=0)
dat$constraints[[14]] <- list(enum=c("ref","alt"))
write(toJSON(list(fields=dat, missingValues=c(NaN, "")), pretty=4), file="designed_sequences.json")