R/map-binned.R

In adnaniazi/nanoporePractical: Interactive squiggle browser for Oxford Nanopore data

#' bs
#' 
#' bs2
#'
#' @param quality_score_string qss
#'
#' @return a val
#' @export
#'
map_binned <- function (quality_score_string) {
  binned_map <- list('!'= '\U1F92E',
                     '"'= '\U1F92E',
                     #2–9 6
                     '#'= '\U1F922',
                     '$'= '\U1F922',
                     '%'= '\U1F922',
                     '&'= '\U1F922',
                     "'"= '\U1F922',
                     '\\'= '\U1F922',
                     '('= '\U1F922',
                     ')'= '\U1F922',
                     '*'= '\U1F922',
                     #10–19 15
                     '+'= '\U1F915' ,
                     ','= '\U1F915' ,
                     '-'= '\U1F915' ,
                     '.'= '\U1F915' ,
                     '/'= '\U1F915' ,
                     '0'= '\U1F915' ,
                     '1'= '\U1F915' ,
                     '2'= '\U1F915' ,
                     '3'= '\U1F915' ,
                     '4'= '\U1F915' ,
                     #20–24 22
                     '5'= '\U1F642',
                     '6'= '\U1F642',
                     '7'= '\U1F642',
                     '8'= '\U1F642',
                     '9'= '\U1F642',
                     #25–29 27
                     '='= '\U1F601',
                     ':'= '\U1F601',
                     ';'= '\U1F601',
                     '<'= '\U1F601',
                     '='= '\U1F601',
                     '>'= '\U1F601',
                     #30–34 33
                     '?'= '\U1F618',
                     '@'= '\U1F618',
                     'A'= '\U1F618',
                     'B'= '\U1F618',
                     'C'= '\U1F618',
                     #35–39 37
                     'D'= '\U1F60D',
                     'E'= '\U1F60D',
                     'F'= '\U1F60D',
                     'G'= '\U1F60D',
                     'H'= '\U1F60D',
                     #≥ 40 40
                     'I'= '\U1F929',
                     'J'= '\U1F929')

  emoji_string = ''
  for (i in seq(nchar(quality_score_string))) {
    emoji_string <- paste0(emoji_string, binned_map[substr(quality_score_string, i, i)])
  }
  return(emoji_string)
}

#map_binned("$#(&&)'730/)))((82(*055.+,)*+)('&'/&+$%%%$)(,.(+-'*-)(('*'%3'0%%&$&('/)''+%,-.+-....))''$'(-1'(&(0'%##&*.%(&&&0))**)('.%'+))-,*('&'-%)&,)-)'(()(%'+''-+++'&#&%%'',0)(()*+,-+)(1.1,&'&,+.//-2&(.%'%$'**,1+,+*0/-.225+662%($&'$$%&&(/,0.%(+)&('(),'+/+*)-())*.'(-)***/42)(+.-&&&&')&&$%$&'%$%()55,,**$%):/0,*+'(-.*..*)*(('+$$$&$'+.*+,+*++(((+0*3,,*+-///+-87,())-./0+++0*.60+*.102/2.&,1+3((()('''$&%'$&+*-)$)-&3;52.,,-,-./+*('+.+'%%$'&'')&(+*-*1.1-++0)(-&)).--,,/1./7/3,.1&(5&)*,-&%&'&-0,*)6.)'%'$)'&&)))/+*&&%\"$%#%)()+++*:1)-&$&''&(&$#$$$&)$$##$,,.50*+**1,(''%&'-+%)%)'))**)-$#'%$%$(&''&%)-+0)*,-,57*.,&(+(')*.*'(0''1//-)&.7-0<;-/(''%&)))++.8/,0***)+)'%$%*++)471(**+*)-.,-'&%$&')/-049/,.)(-/')($&)/*,:.(()(+.)(*++**&(***03-**./*(+&*+.2((&)*(&&((($(&+*&'$(16*''&%&''&&$((%-''-.4-50(*-0/&(/,0)..,()(1/2.6123*)('&'&%(0:5.5:3+41)+'+(%%&%+0.*-..0/21(/%(.&&%),(*12.--)('&&'+1)+.470*++&*090::426.13.-,+(*.$$,0).0.,&$''-2210+*(-/,$,)/*,,-++6,/0-/+*,--'(-/&./')*+*#++$$8..-430)**2,.-),0/2*+1**)&(%/,)+***+&('%+(*)+,,*//22.4.,+.++-5*(+-./1/+*+3,//4%&%%&/+()+%3+.):+'&$%$%%%'(,'+5&,&.5.())&%%&-0*',&&'*'*-0'''++*+-,+,'--&&++0+'+-)*++133)((&(//&%&&&/.-12+**%,)*+)',3)*',&&'((*'((*91,+*,(),(-++1+)%$&(*56'**.-0-,.,,040))()-,+*()%&&%&)'%%$(*%&(&*-*+//,-)-1,*1,,,7,7))%&(-*''&&&%$%&($#'&&&'()&$%$&&)(*998)+'&%'(*,86%)--.--0)*+,;3212,+())()00-./+,))&).((**/,../0)-4,''+*)--''($#')'(',80)(*&*(/795-)&)+)&,,4263''$')%-=9(*((*)-(,#),+-(((%'*+////1.3*/3(((()-)/+')+*-*-%(*$$))((',-/%+,3(3:91,9--))'#,+&+(/((-&&/)'*)(0/(%',-/&&*&&(5345*(&&//,2++,0-+/.//)-,*$(*&%$&-&+)(.*)/-+5/'%'$(%(''(,+(%'+**,.:.201(((&&%&&''(''(&'#%#%&*/*-*,+-.2+-/&'$%'%&'5,%&$#$,*3''('(,'')+/1+*..11(*&&+)++*%%('-'40-.)(%%%,)(+,(+/(($$%'&(+---+0<3+,)***/6:0+(',$-.,)(.35;37000//49.*)*+0,+6.(&(%*/*+36.''(//,),83//**++,*,++1(*)$'+&(453'.0((('(/52,0$++)*.30--53,..-0)&')+-+''&&&./)#'()((%')+((*()+'6<0*#)+,.0&%%((/10..#$'6722))0(-'(()/.63/')(()(())$.)('(%*)'($$%%&($''$&''('&,++)++247,(+,'+++/320'((*.(,1-*2))$)/0/#-,)0,'),+./))*(/%%&((-)/.$)%'&(),/0-405.3//60)*'2/24531-3./,+)+*(*'),++.++*+,+**&1;7%.6/1.'),,)$(&$9,*%'-)*0-00'*,--060'+2)('-)0)-)'&'(),*)&''*5(*3/-'(--*516+,&/.1/.-(+*$)**,$0-3-*)694-13,,/%'2-)&*)1(.6-%+)'*(+3...51,'*)%*.--(+(*(&$&&'(+().,)3-*$&'+'('(22+(10.1:40-,++**.7:3%(&#&'*'+%$$'&%'''&'-)(6*('2/-#$*0'$$%)*&&%&''''$$%$#$)+'#(&(($&*(*(#&)-'%\"\"")

#map_binned('9C;=;=<9@4868>967AA<9>65<=>591:')

#cat('\U1F92E \U1F922  \U1F915	\U1F610	 \U1F601  \U1F60A \U1F60D \U1F911')