Почему не делает ODP.NET 11 работ развертывания xcopy над машиной с установленным Oracle DB 10?

Вот что может помочь:

Сначала разделите, используя strsplit, затем свяжите элементы, которые принадлежат друг другу

# split the string
vec <- unlist(strsplit(string, '(?=\")(?=\")', perl = TRUE))
vec <- vec[! vec %in% c(' ', '\"')]
# that's how vec looks like right now
head(vec)
# [1] "FundSponsor:Blackrock Advisors" "Category:"                      "Tax-Free Income-Pennsylvania"   "Ticker:"                        "MPA"                           
# [6] "NAV Ticker:"    
#
# now paste the elements
ind <- grepl(':.+',vec)
tmp <- vec[!ind]
vec[!ind] <- paste0(tmp[seq(1,length(tmp),2)], tmp[seq(2,length(tmp),2)])
head(vec)
# [1] "FundSponsor:Blackrock Advisors"        "Category:Tax-Free Income-Pennsylvania" "Ticker:MPA"                            "NAV Ticker:XMPAX"                     
# [5] "Average Daily Volume (shares):26,000"  "Average Daily Volume (USD):[110].335M" 

, с данными

string = "\"FundSponsor:Blackrock Advisors\" \"Category:\" \"Tax-Free Income-Pennsylvania\" \"Ticker:\" \"MPA\" \"NAV Ticker:\" \"XMPAX\" \"Average Daily Volume (shares):\" \"26,000\" \"Average Daily Volume (USD):\" \"[111].335M\" \"Inception Date:\" \"10/30/1992\" \"Inception Share Price:\" \"$15.00\" \"Inception NAV:\" \"$14.18\" \"Tender Offer:\" \"No\" \"Term:\" \"No\""

Объяснение

• regex (?=\")(?=\") в основном говорит R разбивать строку, когда есть два \". Синтаксис (?!*something*) означает, что *something* идет до / после. Таким образом, вышеприведенное просто гласит: разбить строку в каждой позиции, которой предшествует \" и которая предшествует \" .
• strsplit(...) выше создает элементы вида \" и ('\"Category:\" \"...' становится вектором '\"';'Category:';'\"';' ';'...'). Таким образом, используя ! vec %in% c(...), мы удаляем эти нежелательные элементы.

Приложение

Если содержатся элементы вида "string:", за которым следует " ", в приведенном выше коде удалите строку vec <- vec[! vec %in% c(' ', '\"')] и добавьте строки

vec <- vec[seq(2L, length(vec), 4L)]
vec[vec == ' '] <- NA_character_