问题描述
我正在尝试将此 xml 更改为下图中显示的格式,但是到目前为止我还没有取得任何成功。
下面是包含在 xml 中的示例数据,但我只关心更改 xml 的格式以匹配下面所需的输出图像。
注意我使用的是包 xml2
。
任何帮助将不胜感激!
RTI_valores_negociables <- list(
Transferencia_internacional_de_Valores_Negociables = c("Rechazada"),Fecha_de_liquidacion = c("2020-07-01"),Entidad_depositaria_del_exterior = c("EUROCLEAR"),Denominaci93n = c(""),Nro_de_la_cuenta_receptoraX85Xemisora_del_exterior = c(7500),Pa92s_de_la_cuenta_receptoraX85Xemisora_del_exterior = c("Rusia"),Cuenta_depositante_Nro = c(58),Nro_de_la_cuenta_comitente_de_Argentina = c(21201),Especie_transferida = c("T?tulo Privado"),Denominacion_de_la_especie = c(""),TICKER_del_VN = c("AL30"),Tipo_de_c93digo_identificatorio_del_VN = c("ISIM"),C93digo_identificatorio_del_VN = c("US040114HK91"),Moneda_de_cotizaci93n_del_VN = c("Dolar Canadiense"),Cantidad_nominal_de_VN_transferida = c( 12000),Las_cuentas_comitentes_comparten_alg94n_cond93mino = c("NO"),Denominaci93n_contraparte_del_exterior = c("PEREZ JUAN"),Cantidad_de_clientes_y_otros_sujetos_vinculados_a_la_cuenta_comitente_de_Argentina_a_la_fecha_de_la_transferencia = c(0)
)
IDENTIFICACI98N_DE_CLIENTES <- list(
Tipo_Cliente88Cliente = c("Otro"),CUIT_CUIL_CDI_CIE88Cliente = c("99999999"),Tipo_de_Persona88Cliente = c("Persona humana"),Apellidos88Cliente = c("PEREZ"),Nombres88Cliente = c("JUAN"),Tipo_Documento88Cliente = c("Documento Nacional de Identidad"),N94mero_Documento88Cliente = c(911111)
)
mylist <- list(RTI_valores_negociables,IDENTIFICACI98N_DE_CLIENTES)
YYY2 <- xml_new_document() %>%
xml_add_child('RTI_valores_negociables Version="1.0"')
YYY2 %>%
xml_add_child("Transferencia_internacional_de_Valores_Negociables",mylist[[1]][[1]][[1]]) %>%
xml_add_sibling("Fecha_de_liquidaci93n",mylist[[1]][[2]][[1]]) %>%
xml_add_sibling("Entidad_depositaria_del_exterior",mylist[[1]][[3]][[1]]) %>%
xml_add_sibling("Denominaci93n",mylist[[1]][[4]][[1]]) %>%
xml_add_sibling("Nro_de_la_cuenta_receptoraX85Xemisora_del_exterior",mylist[[1]][[5]][[1]]) %>%
xml_add_sibling("Pa92s_de_la_cuenta_receptoraX85Xemisora_del_exterior",mylist[[1]][[6]][[1]]) %>%
xml_add_sibling("Cuenta_depositante_Nro",mylist[[1]][[7]][[1]]) %>%
xml_add_sibling("Nro_de_la_cuenta_comitente_de_Argentina",mylist[[1]][[8]][[1]]) %>%
xml_add_sibling("Especie_transferida",mylist[[1]][[9]][[1]]) %>%
xml_add_sibling("Denominacion_de_la_especie",mylist[[1]][[10]][[1]]) %>%
xml_add_sibling("TICKER_del_VN",mylist[[1]][[11]][[1]]) %>%
xml_add_sibling("Tipo_de_c93digo_identificatorio_del_VN",mylist[[1]][[12]][[1]]) %>%
xml_add_sibling("C93digo_identificatorio_del_VN",mylist[[1]][[13]][[1]]) %>%
xml_add_sibling("Moneda_de_cotizaci93n_del_VN",mylist[[1]][[14]][[1]]) %>%
xml_add_sibling("Cantidad_nominal_de_VN_transferida",mylist[[1]][[15]][[1]]) %>%
xml_add_sibling("Las_cuentas_comitentes_comparten_alg94n_cond93_mino",mylist[[1]][[16]][[1]]) %>%
xml_add_sibling("Denominaci93n_contraparte_del_exterior",mylist[[1]][[17]][[1]]) %>%
xml_add_sibling("Cantidad_de_clientes_y_otros_sujetos_vinculados_a_la_cuenta_comitente_de_Argentina_a_la_fecha_de_transferencia",mylist[[1]][[18]][[1]])
YYY2 %>%
xml_add_child("IDENTIFICACI98N_DE_CLIENTES",.where = "before") %>%
xml_add_child("Tipo_Cliente88Cliente",mylist[[2]][[1]][[1]]) %>%
xml_add_sibling("CUIT_CUIL_CDI_CIE88Cliente",mylist[[2]][[2]][[1]]) %>%
xml_add_sibling("Tipo_de_Persona88Cliente",mylist[[2]][[3]][[1]]) %>%
xml_add_sibling("Apellidos88Cliente",mylist[[2]][[4]][[1]]) %>%
xml_add_sibling("Nombres88Cliente",mylist[[2]][[5]][[1]]) %>%
xml_add_sibling("Tipo_Documento88Cliente",mylist[[2]][[6]][[1]]) %>%
xml_add_sibling("N94mero_Documento88Cliente",mylist[[2]][[7]][[1]])
YYY2 %>%
xml_add_parent("Operacion")
cat(as.character(YYY2))
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)