искать одинаковые символы, стоящие в векторе (не пробелы, не табуляторы), и оставить один такой символ в R

Question

Как из цепочки одинаковых символов, стоящих в ряду (не пробелы, не табуляторы), должен быть оставлен только один такой символ?

Я имею в виду следующее. здесь входные данные

5 NO 58AA WOD~05293_NODC~58AA 005450 WOD~NO005450 6246.630096435547 418.6500072479248 22.540432044045843 -299.02194134859894 06.01.2013 656 368 .NULL. z nc_unique_cast~5#wod_unique_cast~15713249#lat~62.7771682739258#lon~4.31083345413208#time~88759.2895833254#date~20130106#GMT_time~6.94999980926514#Access_no~110866###Bottom_Depth~368######z_row_size~361#Temperature_row_size~361#Temperature_WODprofileflag~0#Salinity_row_size~361#Salinity_WODprofileflag~0#Pressure_row_size~361######country~NORWAY#WOD_cruise_identifier~NO005450##Platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)######dataset~CTD###dbase_orig~ICES (International Council for the Exploration of the Sea)#########ODV_yyyy-mm-ddThh:mm:ss.sss~2013-01-06T06:56:59.9993#Platform_WOD_code~5293##code_name_units_Platform~5293#Platform_by_WODSelect~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_NODC_code~58AA#Platform_Name~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_by_s_3_platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)# ocldb1538536654.25679_CTD.nc 15713249 .NULL. HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233) 0 .NULL. 368 361 361 722 .NULL. .NULL. 06.01.2013 06:56:59.9993

и вывод

5 NO 58AA WOD~05293_NODC~58AA 005450 WOD~NO005450 6246.630096435547 418.6500072479248 22.540432044045843 -299.02194134859894 06.01.2013 656 368 .NULL. z nc_unique_cast~5#wod_unique_cast~15713249#lat~62.7771682739258#lon~4.31083345413208#time~88759.2895833254#date~20130106#GMT_time~6.94999980926514#Access_no~110866#Bottom_Depth~368_row_size~361#Temperature_row_size~361#Temperature_WODprofileflag~0#Salinity_row_size~361#Salinity_WODprofileflag~0#Pressure_row_size~361#country~NORWAY#WOD_cruise_identifier~NO005450#Platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#dataset~CTD#dbase_orig~ICES (International Council for the Exploration of the Sea)#ODV_yyyy-mm-ddThh:mm:ss.sss~2013-01-06T06:56:59.9993#Platform_WOD_code~5293#code_name_units_Platform~5293#Platform_by_WODSelect~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_NODC_code~58AA#Platform_Name~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_by_s_3_platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)# ocldb1538536654.25679_CTD.nc 15713249 .NULL. HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233) 0 .NULL. 368 361 361 722 .NULL. .NULL. 06.01.2013 06:56:59.9993

т.е. Заменить все встречающиеся цепочки символа "#" одним символом "#"

Как это сделать?

Answer 1

Вы можете просто заменить все экземпляры любого числа "#" на "#", используя gsub

gsub("#+","#", your_vector)

Answer 2

Вы можете использовать gsub, чтобы заменить 2 или более "#" только одним. Например:

gsub("#{2,}", "#", c("test", "test###test", "test#test", "##test####"))
# [1] "test"      "test#test" "test#test" "#test#"