|
...
|
...
|
@@ -307,7 +307,7 @@ processDEA <- function(d) {
|
|
307
|
307
|
seq_along(relevant_ids[k,]) %>% purrr::map(function(l){
|
|
308
|
308
|
factors <- experimental_factors[[colnames(relevant_ids)[l]]]
|
|
309
|
309
|
ids <- factors %>% purrr::map_int('id')
|
|
310
|
|
- factors[[which(ids == relevant_ids[k,l])]]$factorValue
|
|
|
310
|
+ factors[[which(ids == relevant_ids[k,l])]]$factorValue %>% nullCheck(NA_character_)
|
|
311
|
311
|
}) %>% {do.call(paste,c(.,list(sep = '_')))}
|
|
312
|
312
|
}),
|
|
313
|
313
|
experimental.factorValueURI = seq_len(nrow(relevant_ids)) %>%
|
|
...
|
...
|
@@ -315,7 +315,7 @@ processDEA <- function(d) {
|
|
315
|
315
|
seq_along(relevant_ids[k,]) %>% purrr::map(function(l){
|
|
316
|
316
|
factors <- experimental_factors[[colnames(relevant_ids)[l]]]
|
|
317
|
317
|
ids <- factors %>% purrr::map_int('id')
|
|
318
|
|
- factors[[which(ids == relevant_ids[k,l])]]$valueUri
|
|
|
318
|
+ factors[[which(ids == relevant_ids[k,l])]]$valueUri %>% nullCheck(NA_character_)
|
|
319
|
319
|
}) %>% {do.call(paste,c(.,list(sep = '_')))}
|
|
320
|
320
|
}),
|
|
321
|
321
|
subsetFactor.subset = d[[i]]$isSubset %>% nullCheck(),
|
