# NOT RUN {
input_subdomain <- data.frame(
"filename" = c(
"Hepatitis C virus genotype 1",
"Hepatitis C virus type 1b complete genome"
),
"uri" = c(
"https://www.ncbi.nlm.nih.gov/nuccore/22129792",
"https://www.ncbi.nlm.nih.gov/nuccore/5420376"
),
"access_time" = c(
as.POSIXct("2017-01-24T09:40:17", format = "%Y-%m-%dT%H:%M:%S", tz = "EST"),
as.POSIXct("2017-01-24T09:40:17", format = "%Y-%m-%dT%H:%M:%S", tz = "EST")
),
stringsAsFactors = FALSE
)
output_subdomain <- data.frame(
"mediatype" = c("text/csv", "text/csv"),
"uri" = c(
"https://example.com/data/514769/dnaAccessionBased.csv",
"https://example.com/data/514801/SNPProfile*.csv"
),
"access_time" = c(
as.POSIXct("2017-01-24T09:40:17", format = "%Y-%m-%dT%H:%M:%S", tz = "EST"),
as.POSIXct("2017-01-24T09:40:17", format = "%Y-%m-%dT%H:%M:%S", tz = "EST")
),
stringsAsFactors = FALSE
)
compose_io(input_subdomain, output_subdomain) %>% convert_json()
# }
Run the code above in your browser using DataLab