fork download
copy 
  1. a <-c("sp|Q9Y6W5|","sp|Q9HB90|,sp|Q9NQL2|","orf|NCBIAAYI_c_1_1023|",
  2.      "orf|NCBIACEN_c_10_906|,orf|NCBIACEO_c_5_1142|", 
  3.       "orf|NCBIAAYI_c_258|,orf|aot172_c_6_302|,orf|aot180_c_2_405|")
  4. gsub("\\|(,|$)", "\\1", a)
Success #stdin #stdout 0.16s 175424KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "sp|Q9Y6W5"                                               
[2] "sp|Q9HB90,sp|Q9NQL2"                                     
[3] "orf|NCBIAAYI_c_1_1023"                                   
[4] "orf|NCBIACEN_c_10_906,orf|NCBIACEO_c_5_1142"             
[5] "orf|NCBIAAYI_c_258,orf|aot172_c_6_302,orf|aot180_c_2_405"
https://ideone.com/q6evKb
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!