Add files via upload

michalovadek · Nov 7, 2020 · 40dd8a1 · 40dd8a1
1 parent e0ed75d
commit 40dd8a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/elx_parse_xml.R b/R/elx_parse_xml.R
@@ -18,7 +18,7 @@ elx_parse_xml <- function(sparql_response = ""){
   res_cols <- res_binding %>%
     xml2::xml_attr("name")
 
-  if (identical(res_cols, c("eurovoc","labels"))){ # for use in elx_label_eurovoc
+  if (identical(unique(res_cols), c("eurovoc","labels"))){ # for use in elx_label_eurovoc
 
     out <- dplyr::tibble(res_cols, res_text) %>%
       dplyr::mutate(is_work = dplyr::if_else(res_cols=="eurovoc", T, NA)) %>%