From b172b887e95e48d6792e4f0018053d53fb8cdebc Mon Sep 17 00:00:00 2001 From: Amelia Tran Date: Fri, 19 Jan 2024 15:30:40 -0800 Subject: [PATCH] Superseded deprecated function (#36) * update admiral look-up * update admiral look-up * update admiral lookup csv * running documentation for the one row added --- DESCRIPTION | 4 ++-- _pkgdown.yml | 2 ++ data/discovery.rda | Bin 6248 -> 6209 bytes inst/admiral-lookup-book.csv | 30 +++++++++++++++--------------- man/admiraldiscovery-package.Rd | 2 +- tests/testthat/test-discovery.R | 2 +- 6 files changed, 21 insertions(+), 19 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 39d6e19..b8dd510 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -4,7 +4,7 @@ Version: 0.1.0.9000 Authors@R: c( person("Daniel D.", "Sjoberg", , "danield.sjoberg@gmail.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-0862-2018")), - person("Amelia", "Tran", , "tran.amelia@gene.com", role = "aut", + person("Amelia H.", "Tran", , "tran.amelia@gene.com", role = "aut", comment = c(ORCID = "0000-0002-9472-0302")) ) Description: Package exports a function that creates an interactive gt or @@ -43,4 +43,4 @@ Encoding: UTF-8 Language: en-US LazyData: true Roxygen: list(markdown = TRUE) -RoxygenNote: 7.2.3 +RoxygenNote: 7.3.0 diff --git a/_pkgdown.yml b/_pkgdown.yml index 2a9ea9f..2281c14 100644 --- a/_pkgdown.yml +++ b/_pkgdown.yml @@ -9,6 +9,8 @@ development: authors: Daniel D. Sjoberg: href: https://www.danieldsjoberg.com/ + Amelia H. Tran: + href: https://athenamelia.github.io/ navbar: structure: diff --git a/data/discovery.rda b/data/discovery.rda index 07cf11dfb80ec6ef8b53d10d7991a905f15ef8f0..068931baa50ed2d7bc193d157dc5a2372bde0b65 100644 GIT binary patch literal 6209 zcmV-H7{2F1T4*^jL0KkKStc`i*#J!^fAIhR|NsC0|GU5c|M|cF|L{NnfCvBq00H14 zKYf?ibbU9rxCQDaknO4z%cpub21j`HbinjCZBQT>p1?G0#E)&r(&9<0y3Qyq0q$gg zP?ai_U71q!(5)I=hC+BrB*>T%lN4%s42h}wnl&^G}A_gji}JjXvw1|qeM2N zLx2DP00000G8zB?00000002s2LI|dsQ^=V;LqIgsL)0<@KmY&$00EE#K+s95NtE?X zi9I9K0000D8UO$Q8Udgh00002l%Pb&CXtDyFlu@lo`6g=nr$XV6HJW&8Z-ut8Z;R+ zX^=#afiw}6Xvjv2ep6G@dIEY!r~m*4fB+2u008PIb;2==!U?_vvUAH81rljUDu%6E zL-=tI_s9>={-2>X%4X0b7ytk~xx4%=z~4+Fe6a!GgQqyGNHCyeB8P!oLbL`R^b-0W zgoIZ|che*r__9C7M@4@0oGmIvQ^Aobl*&qnyvb6|pT*as`@Vmy2Zzy2-2Ar~qE&1l zjD#j-+`HLrl~rMGC&J4l`?*~u_l5W?UdVmw9v|68$=;*4`}s?{AtDkdLL*QlMCbgH zOI=8b_dDZF1n99y@+9%9nWLt;VL$5_>^uKo*&MPQjNS_AmYsHq_a!aQnRBmH3wU%q zrd=#viy3DKRg7jj=3Kx`w4ND67NUtDfgc&^pS|I&wVl4CJODW(>gM@s)X}L`9{xGc zH*6VpuV+73^wyZ)hkd(Vc<|F5;CS?Lc5H`duAU>x?Frmw)Rk|z%EhktZMWGA&ntT{ z<7?%W@%K7!b0`y^$f$p}x`jvlB7k&&mWtW})BurW6YC#68u@$`&Zy&KzFgF+I}n?m zf-+smXF_@KItSrRw&S#?ql)?^Y04c=d>4zRA@Xqj!qT)Dic0kh42+h8n!#2s zMRW=zBdMv&#C_-2`&c%IP3lUGJ5kcyXqVu(X%=OhwprnL;WtUKqyK?#jv%a>6#vyvT~ z7bc;=G-p<}!7D6iTD!ZeRJ&GX^UUK>MoyctNB z&x?Fnmq%E1ZvQFj;BUpl3hz>)>o}qw1D`Z4KM|REgiIldtEnyXC>4j9z^5XYeyJ^v- z8*0%M;^AmX@M23{%e5WtFQqk!3~NVlCs?ZO1o4S@0+xuhTP@IAQOiMSCK#uNCqBl> zYTuokAZI{p6-y220-B^~&W^UeThec%=OfdK2=+k*l}N913ec=n*BW9{i%blRRY*Q& z9*l~b#w1qdrhra=hRNCax@h;iNeWiS65(%EeV?c4`p2*^cF@mjfly7T>>R}7g#=7# znUG=d^arOyLx$lEqjLU}2mI^4Td?FHRNuJdtWyBwofI*KF^15fgQcPs6CLFUWZwos z?6ZT}9c0|IKohrPE6+MXgLx_|uvKF_4a)-#L zeFB2x4(>@s1s^4XuZwKhzb-?_F69grQ8mm0h2#9z2xTGNsna!hOhM4vke&SeZu26R zIM}jfo1`q&sWwW#JYGY7W=Q99S|MXk;@;uAjYx2dPSBL3MG!&j90V5p^fud}X4_8& z{Q4Du=?e3lYa_j*k&JD~%$xEwm@h50$=;!ooBDAcq%+|9EjZGlw0&+@4dS{`LN<$!aDUBh+p0?f|vvQLT02mmSiZH=F zlw7u}pJPf7*y+^u%=mhY(EMkDp9_aX)|`_~EDw@60{Jz+wL{D6qnEU!+380qKlfji zQ=QqS<(b|NuA5U*LI6edWC2_o08%^L*g+ECXfa9%p9CIfdRlX;CmQYFdTJ5`?(AV5 zG}3CFWu57>7Tf1#c3cL7IqB1qZNY}@w%}jB(q39ph_PbdLjqQkV>O~C%CwRaYNoXe zjq41uV~2LGnzg4SInj(=>qxqd-RndwyLr9fjt2~-!>vXb7;I!?*7n*PsRmNl5>YnF z*CsKH9BCU@3!2%>O)k~1%s~_4`GEvaJN3=-5JZZl-a=tUFibA;^21uvQx#<^L4ax+ z=`$6XrCO6kHIk3Qi98V}cWNZn5_qCc2N;ujTuD7NsLg;m6E&BCSFgJ_c7n} zJ%_eFXUg_TRe9*Tt!qTOE;iqdN4_wNpfVxQT?(kQDpg%V!I3q`ruPjxtTEFV-_?M6 zR7vx_$k%_0+R>_fj@Ad1d~Z{z`jYx3_aTI`UpGlD43OAZse7`;^=vIgifesrj`P37 zxSZ$k+D_bgumO)lmLw-!3!^4H&RvdGE6)i*N zgrsNX_xHP64WS@m6w#FJSBZT3MNmCx7(oNUdZSr;_cUaLZsdijwnZ|#84Lxd`G#3p zAhj&w?k@i4hQT29LlzcyKSfJ%EX@cnodL0bj>x8d8vUF4V4`PWpq^Szn5@MN%&5$T zn5m*v_GVHZn9ytWc-Pbnv3BWPK5F-TDYPw>6dBB?l*UH=;lmd(MwFVA%Ut1dq#+gl zKYx*@SR^A+f+mo2fbKA74auV4J&xV=bvyg#fl#;k-d&B}X6FIHN#jA^=!^FSS!;Od zJ;h_wk&m0!J=NWKPou@*xcxJE9zXhi&kvHw()YI1x9aGs%moMYz!~bRMrQ=B%XTNo z?>9{U7pK$BJ+7=Wag5ZMO8U4o>$aIJlehA?>duHp^~wH{lw*=Wc^@#>FcAa|VlXlK z5NXE!FbavW3c7IUmIvRNB<86b@*w>A2g@p5u>I|4|r-#3yzFgij#?`=R(fG$k< z-eYQl2hCwxqhSpk*cIkOfIecX`XWAfb>$HDCq#~2Zp`3q?_8#Ykat?gg<>EeLMJ+5 zIux?C81PnROPAJjoNPL$9ZG_jC|3M03?Bwt)88AVaOE+mAd;hbWSa?LVmP^KUvDO+ zZ*T=Rz-VMME->PX^NX+Vj{zexL6X}?A?;u&r#@@@A<)2u^LKCSFLFE_95j4;tcJR% zc{X`I*McHDjDg}WHKJTSf!&8HBo@nb-M`0i%fg>xCJow0ewVqQ52{`*2;!J zGCfGC3yBvUJQ3K?d5v_9zB{7l4U2CSK`03WG6a!fEu@EFIL1=x1Sc4xGoRg&60Aol z?1Cj2@+xWL)`-*Zs{Ei78r3GNP(Y{J+QyR8HdX)whIT;at-@gw-(f&3dcA*3Z-<|j zd2}d`CIwX|Wm<@Br<&b-IOZOXKC_Y4?iEjuheBIjiw|AtBs;BLIww<54GAJb0_O$f z@Bs62HYYii2 zP(EpmWe*{$geAP7Mg#Q?uv?E*%W?Po_uhUZ{Z&u$G8knF{6s&+_uS27!$W0$1g;!7 zH>di>V+>(rW-!J`HC7xsWtpa{F>Y9+rj zE-RR<5(|LFB!)z=3jL8;_+dgZihz-$X<2xoeJ+x+cl{R%*FRSN4rEz@DS7W5H z4o0`^e02Ya|DT`sQ6~q1lbH{P@v|D){}t%192;CO6s(>h;LQ}k^wH`|k3>BjOO_R5 z9y$c6M$o`Ccq&%zvlV5!C|MMP7=nfyOBQMnxK$AdvLhmk31}`6Cd$!Ph4el{y1Q(z zuF@*rN6;d$DJ7w0KusO%NJ-t!=07qd@klZpg>)iV)UldYk(LQz1cgtMGb%A{62MMG z!hGe6v10qSTrAHAWnIj4&Sb)F#)Vi_ ztPu_}PS41CyufuLFz_1<1(1E$6WL^{p1w&*?{I9nFfBo%kRc(cyKNH663$5+%7aenk2+Y-R|C=BiG7Oa-rJr zc#h|?L~Rz(1IDw7U8!Ln%nzFeg7U7y}QL(_#(49}iwZRhjKg$O9s6 zWODUqRHBLPb9N1|rVa;4G6k-|iy}ZmD+K+c^h#B5^OM=ulcCi2_G1PynVFecgfJJx zX%tcnMT2FaN{Zr&BCcf2dmcQ~Ta-0YI~dq)p3)@jM4Egh#B~^)Cx)kz_5GC4%SL*X zYYUd8dn8Gws%7tul+Rq&-*q!NO(Az8Pq8X~V<}&hSd;9l^w?i={rG*s_9=UE!gH^$ z*t%2gwr!#D^4+?0zkKB2pSZcM+lzSk%ZcCDS2%1<$<~_H%W#<;KIE?5e%E>4@M!P2 z5Fs4E%c>2RWDIwW8Z^v| z#$+hOHWJTZ*-=&V0B+gNMb;n^3eqGPCTdHMP&(Ykwv$^kS{W^Jj(rVZsHce%X}@lq zFP72OiCx)MUGT}tgsm|$WJWTT4(556#1p^b3$5qAZ;zQCzeipoqgP!9&s6Zsh)J;c z*x1Ul##(5vB~9x@kmT&?_56+%J`OCH4<&c`9D~&jktSG)Ghumz?W3!H)ZA{K=|V#bRo;M4eutUA+jCQ$^TUF10S9Y;bgXm`gWY)Q&mxZ5T~nN<12OU3L{! z!&gK}%&%z98(hCv2$P~D*Ov|mNs*hTPobx>Fe4EWDOQ9}NP;F0Mq+7ASucUgM=JH5<8(MV zj6K0UOUOe{G37v=LQ$ZJLI|4;*iaj&bz;oPkvgHKrn2c;cb4ev$Xj?N>Fp}fJPvUh zx-`8mTph9F7RIC(n46CwHeIj8BsuU0uyu$V6{LNKZRJ(fUFtMX(w+<0-O~d>O|{mY8P(l_(Z+VBC)&Z}B2On??;E)u0Gf`%O=ebzL?m;E zXjig}k`RQ1Rf`D3jFC|UAR-`L2+NCnX}*r6IE*b!EiqN!fvj$VZp0y#lt!w$V!95N z8DUSX zqE4l|Ssl$Vs12K`kuM>Dg-Hb`qIvwSZAVGQ9?4+^TZ-X)twN%r>^XxM;uasOx*pG` zhepE;FODr`YULnt;NW!AOl6s+XBRjQ+Ly3!i*r)+hre&7ltjoH0EVMc=K+;i&S;aP z&P1FEP7#h4GsdT!hV(B3$w?;V; zk8&t#rhAwD=sSLw>EzvZ%Ao=$$x3rAL?|R=KTt3>xpsu&TC}H%B;0e6;NdmI zt!uTbLs>wx2&tbf3ywZ7L`+ztPT?&CsPMG%v3cy(IamZi!fNni1*&0ss8=c!@OSI5 z0-%t}42Cd8eRFaM=`3za!6wd@G*&n!vKB`uSy^S^O4&~y8C^~yaERKb_9=~m6k?^Y zAc??5jwFnd#|rPQh|*5=r}BL-FXp-BJ|}pf3HAyf$?<4RpC#c9AD)xkoP7bvScvyR}}2VG?-T8n%pHX<&NyMC->ieXt<( zMW9`NGmC(pfcj`bqL7(&0Q?xH1{TsiLx{9n0%q|;nGa*tE^ytr8u^|hZCQIcJ5rBr zqCK`vQd5+#LnUNr(o|NiQoE}skUwqpXiQh z4@(~nl}%RbMElZ9apGL*(E{E4j~SOM7ox^l!WCl~j=7gG6D=oxQ3a@?NFYbTd1v15 z*4oa$96P`}5o3{QnK`9SXE~L%NY~v0JDt0e9}A_0G+PzVZMr3epnPaGsxpU1YJ10p z%qNCs5{)z&7Nyh9o9L3S#l0ADwergN{2aI3$^_%;R6h^YqyhgZpd6qjqL+zyfLbU> z1d4rg<)dF8Zn)JPEOxWWiuExG{bUi7aK|Ms9b-BaQ7fQ*bzODWRL$1Qg)=n;E~{2r zN(m1mUFHc$Ffw77P~K)o7p~44Y_U(piVB1ysj1oEKKc0HHVvW6eMwQLYB^hl6NenK zs)~?kFWUc0LIMam>)-A0PWLzL@yfgE$f)B7;`bEy^py0Hs-YtzCa^oN%N)Lp^KP1~>1b>uYGq_V2S#I94U5_L_s z&H6P)A3BHFMN(>&^Hntyx|vVG$h;zQw8TnCAQFv4IfcL&l!Tt8rfG3hrmv;1zM8~_HKUj( zNUH4w@QHW=mV;Vt$0Qc$=b>sQ87H0&o(<638du0^c@JUH=pcFKrus10BqDU- z%*COAY)=GC3&f5v3gb0cd>G7;MDJBf1BqTfsJIZCPFe4BMY8IAMRo$nUELjecPjafD zk{L`@OHn0^jFyl(-;W!n3k4a@Rjr>ls65ziNgNQUQ@{>#SiIjC0ccgIERmveXE(X5 z^rV2z&TXuP^fZ*mX=vd54A@NcNHb+3Fv%Y@3Zvn^F;m;#7D;f%NbI%-@1=JA+M(4%w2jl@mccF_2#_+Ieb&S7PK`@Ca2J znn@(#h{OIUePc5kqm`4|0;sgv3tPRpL*i4vK%lt8pJGu#N2x{KC#K%>4tDx+VEgo@MTz~I?_mS z3AFk2ML9ng0L-bolS$bTkl~{5LdX`I%loyu|1&F}*0hS^!qXPHm}FU5IMow{b?v=12?2F7SsUS`)Hu63XDnIL`Bg`rz%?sT|t z;VIuGRYFEaP7pam5MIfMLK#tnkdsk3#FrbTig?afxAJhD(fi(wjqZGRRogW(m&3&MRA^4{CLp#<#W6(_49>PtE$IN$tM7 z$An3WrQU*NR%E6yOfKc>hSjM|Rg|p^17O=zF|&ob9b+N!I_p2HBj z21F?fq*CyVUIB2T(x%@{Y8levifE%+{jG<&M4w~kjk$cS?KV%X;=uI}&-L~ntuMA; zdKgP3`dX6Fk{gQ^FVmJU^;laA6x#n@M{~cVxSc2N)SKbm$PRRVfdqco8;HE#-OT%y zbddStZlm82o!Ut&kTH@WNQPR?7m^U1bz$P^-na0|RL9%j@BWs16xENO6A_jWE%qmc-dNU~xENC_Q+$-Y@v3BWOy><0H z#M&0S7-3y@RjzN+8(NDqE)53?XxfI5g%G~ZhLT*+NJe%DnnBJ3yuqkAXN!>a`?y!w z@Nym%O6215?{vDHJ~PKr_@MB0h5rFqT;GjHysdh2Gj)3>zP_i08vhR!=ljRV@&0G? zxqOz!mt%oVhSs|6l%)K;VXC_I;^3LuZ_4={`TM7xdOaOe+3Ukb*^Nd*&b+%fTV$5W z-T54K=tLuW==qYEW1>KLA5h&TA_yCVU}pW0Y~P1S@^+uY4r(|{c&#%sS{tR9kVeGZ zJHG}T-5nm^#w3eA6OAL{1KbhV_LK;^Ql42WpjfR5yvf##@R5XbWl z)WROc2$9RP+n^2(JJj%!4(!_SutWq1MF+YRAx$$=np+G~>GoXb8_uoA!B|xV3m=i; zFY(iYd*gJ@9H%pgB&_3FC&*e_j&7Qp+R>jMcm+Q2Yh*JmvBfrO7i-}j0!AqYi>@4p zwV!e7Hq~DxM%K$iL`K~*qLx$>aCav~U@>AbLSiw5GGUM; z3HQQsGsyLF+P2LDjT;9~B8O(Vm-u^($3-7M!O`)xyYoY1U=0tt-sqeNNg06fNWmMs zjR}w-83XJP@QqYvL`ri-+^2T1oei#1@l*uYYj#*#_UB-h;=EYgb2%F~&5X&lKJg&h zM5cFLyo|`W&B=p+Q;%R5%tsY5Op-?ClrjO4(2AhEk#p0;kB?dTo2eWe_eI1uUJS7W zz$i$9r)jTKGxdYO@jJ5-qm_?v`g?3@@;x`Q2$W;Us;i%3BTvG-G=NfWR+_xx1xEh< zVJ(yCU;rqRBnCv2!Jve6A`$?I$8%)*vT2hpMG@>^RZ?|TsD|2iTc>{v!`k8JI}VRA zRQI=XCAHYF^xsJ#&ehA3bTt6bk|ZE5a9+o72X|qyTdzG{xJ@)X_*~-W4f~r3#%M#7 zIBQ%mJD_Q9%Q+D*0lDM8tTVnsYhZeSd)}H@8zrnIlM3mRInNE(4jf2N(hx#0A~Kx= zxTGL5zzK`ZC<}zelvx=GL=n9TYwlm`9mj5fdge5gJO-)|mhpiY561LzZRP8na*yWr z-+lPc#HxQWki#ff<01ct{oM_u!$#`F$oHwq9Or8Lnk=Q7ZL*n zIcZS;LR2D23YAeIe85W?h-O$-ZZJX*x5`a!A#q&52qYH)dh(@-U@vRFVsYy5VqwSfY-KFjOCI|r`yG#Hk4wV*-bLFmSKm+ zi8wwF?Z%WnODf^+ES{R(d^e@HiBZ6A51o?f>f}#6t_YI^rpb21<=|F1XZDknWh0cB zeV)#FB_>fxS;7)~W90!12ns>t2AJF{J*;erF;>;zcO>#y%*mLrtVSZBnD6+e3}Reb z*})}6K}d@jMi5*eR9!_Lp_F7{aOyKpYQXf7C&i1a7o8rz*zzN}5`7d&;7?`~2>TSu z(fJPuZ0TdESa==>gD&?Jw#o4#POfc+=-HH`&u~trVPx+VAy0r`JFJ12fKok5?@;2j zjR+!H3KJ379mqwF;z&X;k`TVHkU%MNeVMwOBLNJ;&-wnUe_Vg(?EcCm;PWzcA^G2* znA*?luYR=P-r;&uvU)?!no|SaN3L9Z@H_HHI10iY@FZobp+Fg(&7En=(aE?VR}{#` zAY>y|B*Q`|8x#VFSuDh?X4y^=ChF3y7ux#ID)F+vU8t*+kF>KgHC+xi7sKPxEB-#e z<_?84Ogb;@4i7s+PNs$?XGUyBrK@wks z4_k%QHGU=#r^AX;eEb`(Yz+kZ0^1Xei)x(;`Le4riK?=kA4^pFZOUq|73G<#wECY@>+||r zcbmOch_pB&os@uyb2CEL!S;+6j&&wwQD;QKbT0Clvlx)n4MI?%L`c{nA>C%Mxx0mv zMIkX(3lmbT%vx#bH>zl@ZW`uUA&}HlC?JXTWr~Qmkb(`2oUwybEufVK8A@EjA@bO! z5Jy<(3Id887a;*qhJls|z94%Xf+%p5V4;#DHjN^cz?TgoG`TWuf{Q_$876s9hEPgP z)aJm-26>T6Ed-GqLF=1Xy%r!6i&{wqaxb;5m~b+6_xNkQ==4)An-OI#pf~(Es0v}5 zi1xt*P2im5qYEW+u$h#*xQ8a z#P^Q)yt39aBLsrPNDB%j5m+t!CBcT2Tp>cWON-Jr3NX2pMT{5=5g;fGk_4)$6>Q}c zQ7n9AfPPNMOFVJ`<bFCT|BXbbISI@P?5jNwJewj$?$9rHQIR_o$Sx`P)1N)WMi!BiHc7kyg z&z=er9oatON9ScMZkQ8~au@>-jniTc#ZLb|K~TQHnKT+v#L=<^trnR*i#1M zlo?Up2d97a>lu7*oP5?v5M9zyWnjcpiWGJ8CfK34!EwPt%h96>)>?RWX(oks|Zrb zD9bM(xe7FnVv;~&rs~&+Emy4)dfHQmHBQGw%P|sW?qBGB)1LL7W0%>L)>kELPX2wW zN1Uwk#wC1tzpZakv(Pkxu4XxrC#dj`QcmgP`ksfC*Q+Imv^xn+D3h^rZ6nF7YYS_7 zaLw}^f*MGO7hQF`GddBK$sMI42&XEft(GK-NqdIt6i?$OE2Yx3t^RDy1{hxqTFTYR zK;^VpjORAK47@0eAdPe?LuC<0g*XqDugkiVg3x2ZYcD)3*0G%tCs(wII8ja!jutfb zTW21=@bbe<#x!W=%`<6>HL@hsHI|Vl5#rWdQO`j&Qt5S0rP4xCZcK6`9%!MeneQ-m zDni>D=sSMT?d07JvZz3b>ZLfAq7)J`A8ar-xpsu$TB%NA2%LvW9&QtCO4__zG;J(4 zv6VUTl8Co&uAsDx&oT)_4Fl}5ckvWCivlF87S8xFg7KifZHIKQ)()=_3W7r@G8n-X z^UdTD(pcU~!6wd@G*&n!vKB`uSy^S=O4&~h*tZ!0aj)O}zTf+Fk0V2i00USci6XotfnkUiI5&nYST|Uk{m}$YyRLN~s-+H4O)dR*LZW-d7_&1Lcfb zYBP^meY~Rs3uzvKz*;SVGk77yf$8cFh!`*dx3TFP?91cH;#7S$k@VR%5}f6G?3IzG zsYPt(Q_8Y>9Y~369l~4^oC%UT7Zl4mh#Ce@J5e{3gHXa5584n!g~5YmK-W;URE&j0 zl>@veEIk*r5*3Tub~icU3;g~8hSEkwlR5<03m+%ZgwWL#Ii60f{*StS=>mUitYlzp SR