+# ShinyStan
[](http://cran.r-project.org/web/packages/shinystan)
diff --git a/man/figures/logo.svg b/man/figures/logo.svg
index b4c09fc..496f040 100644
--- a/man/figures/logo.svg
+++ b/man/figures/logo.svg
@@ -1,96 +1 @@
-
-
-
-
+
\ No newline at end of file
diff --git a/man/figures/stanlogo.png b/man/figures/stanlogo.png
deleted file mode 100644
index 4a4f06aa9e11cc8772bfbc428651c85adac16f38..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001
literal 16172
zcmX9_1z1$i*CwTuPU-HJk_HK30cnu#kX&M=OMXaqEFHRllyonMbeH790@Afe3W$8y
z|HrfY?8DxjJ9o}GbLPyv?;HC@TkRSCb9^*3v}do?U+JNtp+kW8d)z0$H+5O{SCGxzm!E9 zTlD!Tjvq2H*E8zR5s;j{`I6qkv^zeTAv@PB^NBv?x}cA4{jA>`c;-Q0?76b(tS+df z*&eA!m3rgC0K6f>(vv$vjF|h%xm+_^3dnQFMTbmMMcyQCvFO7&ymz z@By3vxL?>}B!SC5X9e5D=Y3t<2Wg&{Chw;H@T=r0SvR7{Iiz_EBn9xHq~AEQ&-94r zp7)FAO2lMP?yScVY9}fs#k<8<>ZSJX62JceAx^hYa^&8r==TnEifdLJCr})J;&kLT z9zp(|En$ge^q}B6{6>#yc=wHU<3n$DEm}n^rt4OCL1{Iit>shOmeoXlM|nZN5UVaY zt3%KLl@$B3z0awGeK9`gE9R?%adDiX!3ZEz+?$|)SZ(5zqmYi6D2XyY25a0d%ew2U z#c2uHIHXLI_WQ2%Yb~#`;6aRiy+YNnquklGbV--^2r3H>r^^9^@$W$I%j|%RJd2NF zn1+%)Ws%HAXDXckjWqnjDqQtN9T^L_+!d8HQ_dPRkN?XS5mSi10HVqf+seQ;auZ|v z)dZz=#hwgI;j@a1H(pg_&P2-=?D*;a^KV4Wk%E-c&z vTbiRR)_&k{ep| z6!Yc0QtbFrv;JTBXgfO=`pQpO-qoAnZJ=RUoJhoTQ$}?dA nCOkgrdvQ&=?B-aRIWwJ`>n{ z)FW~7hXtz%uYq|>fYTJy#0R0=& s5kHLh*a{>pA2ImdF) zcJ01vr-5z5XT4~k2D7u>Cw55GH2Fzt*|L+#zBwc0Xum~mGv|%1al_EwN%_sgL1fvu zq`~PGa+#)qL*3a=_$abJ4zA8U8da$+@Y;C8EiW=Mowz!(7EG09DEB?*JVhyo8V8hs zS*rbBO5NFq mww=f4y0OZ }U`tY0#DX!P@vNMyh?;=gLw_ zuBTHYDbc5%T+1vdm7Z;#TA>1T*w32!OhZ{{E^=*np2jO_Cy01HnnmS^Q(b&%Bnc@A z5KhQ>9%Hb=s8#ZN_0;NE*2Xa}1{&E|zK^%eJo=n!j*`vIH eX-?U zqk;9VEz*}*L1&ui`)u7#+i;yc3Ec~PAsJLG0FixM)8w;Tz>1X(X46@pPPH|+ErU!g zh)oC1pCXSN)eWbe$OA0?iqfRhGru8|cD0T1@8igxe$Lj^mSfS iuz>Xb(EY6ME^L zpiSr3%d73;N5ZdYOB6MU-)Xsrd`G3f8SX+8Fzp}n;G%BmHAHov_h@Rg+~jXsk<@ 4;?S*NSa@ z$SI2QO+?Ij(O6EO5Gb0gEJf--L*TGt8>j+PP6}rE(Sx36L+-M>
{J$NE|aLsdi z-VBl#F2X#NfW$*P1F;J}PK)4KIJIoQzj+)+-|@IO9i(%<5yzb?O_>m|F(jVbvYi#L zaMGZw#T>ky)SV )n`WSFm>Z-^GAI^^*^ zr$6ymLD~3#OJC3F<2TH8jUSEv>Ai7(>_q@5-cl`0)oIw_By;>2q)RV7y3 n}GyTz)~LovAc5#2Qnl&@XE931FG<5&3d3JGR5%=B$7%njawdn;Xy zG)w`QlElv1s|m8+SgA2P5Hv2rPr%V3 )lL|G8s@VN6J#DIpxchwQKs~(Z{xw9w#@HX%jW&D|b2rXB zX5qHJmXlv~7}zn-4*2x6Vk1YAZ|O59reSVqn&sm`zy`V8zH~Br#46!cyK>gO!0ZhM zz0_;_1gYLsi!mPBS;KtN&(!7$Ww#m#S;fHbX6V|V?^vu$k*}UCN#$&;D~Ft??8s#& zu14U1Nk^!C)D8cQ{^~$u5>-*mLD*3sKhcce1_`-O(X5TqMvF)eNU*z337WJsyf2Xp zYLja0441H%NC6IrfepQIteq42xf1b(E%Bb;XD$3);}*~0MR&JjthUTtyKvJ00_%=c zIxw8Rqo+77N@e+(UBW?p1W!I)bdW&ru3h;k8azPxey|nAP!95PS z{EoHe CJrC?gxfrl&Apno1)|p>@tC3tRm)I(HwYtw{d2-bztxL2^5c=teB2AWJue z!}TrJmqxNN>U7O_7UN_#
2Pd8-KpEp)>0Exu)22PF@-J<4FAe4OS z>2W&Jlz{)jfgdW&Q9j6yPUUCdrR@|Kv1b1M852YC`AOo5^1Du6e>4^O!mDDK4i@FO zG^k#g$dge!#f<)LCbV2+a61~U*}Jz*a-&jct6hj?{mAFL!RaasJ?c*74pn8N+&a{e z8B4}onErDZ7W2VgQ3qbDwgWHJ4U>s`R%cD6pTNz->;)zV`_i4M^ORy*K=szWwf63M zF8@%E$XCdwlqu{VN>v}s6j>zK!p$eX7bqnEZ2?f&LS~-iqE%hti=LMYjB9zeQ+#3b zL^~pR2hU8IWP^wOk_Brx+i33?hN*v!aHz;FYrnH#<;MxBP==5qr0XHa*x#9POiKg3 zWZ@H9in)~mgpw^fl?lSPP5PU;FHVrhE1X|+aw`JpB)Q|;LCBhlazF5b+NnjAquZqi z$R?ir7L~Hyruz1=Icz{~GZ+9A|LaSX<@ev;VIWC5TfDT!OA_Wl8CWYSh}5KJ5lz`@ znLQHGgnfA&5;85t`_mvHxPNu3JTd=QapofM{-qsAn@vGK^6%>BCfU@QC~^IeYL+S6 zybly{ozI=SEB^i3u7UJ-W_V_&a40)QkMTC|vnH9$lPKQv*Z=xvd0bmvybRn9#j$(x zxzYsZ>FLS4MB#_5Ck29MKLS@QhX?RH{(->Wyw{?ZT;eeXNks$k2kTuGi(#VwIBao< z`PD@lyF2BUh`(<(_n)k+r&rnHc)emAjO(_>{nOAoKo}An7!dwfD1vAvCbdTxCgB^k z6`H#N52N7^o4Q&C4$hy|5A9Q=P~WOpSuXB@JxX_zd)q@ox`kn8I+1^zaZiocWI07w z0aNEGC3|KFOF^tKYwA#A1otn%IB&MqBHy;trpu=G))dQEmY*;%qLa%V{OsD@_(Vjd z2RZU-C;GgzP&41OEQcDrTn(JI!XME&1XvfmuS9=N8A*;U-cJ1W{cat38xrDIl>M>* zCpGHb{av8lQvkh}{a|g2>27sqdW;s=s2il1%6RRhQENr@DqF +W~GLF1t|3Vd#)=~Fam*0hy>C|(`T{-PFsqe*KjgUr|z_4n^_!6Ga) zRys!rB_989+#5XJYbBP&oARX+MxWCl7UD29(bdS626emZE1vyGw1)$?1({vx@e=!M zw>?Y%U6 HuH(b;LdVw-03S{_Sam{VB&5p8~qhPP?BRCt1| zJYyzUcJ=u$LphT5rdG%b6IzgHN28yAY3kMU)T<|V;)@?Nx%n<}9#d-`PJ3wvbg+nf zw{}d&sp;0LuK%An&p1^Yl6-~kZgV`QI4w5-!>SKvKrr&~tZ8z5Frq;OjPr4mcG5ro z#b?i|KBeir|7Kf`Wj+Su9M&L3H!H|T5_@R@EdQSLl6G0zh*C^Hq=%($Y*#pu8_i|9 z6RWj2@)9NJ_&|t^xN{|GHpaapv;KtQ+eLdc);WT92dwBp0C*NhJ;f8BZxm?ti|xr@ zCa*aGz1H#nv8wKV8o4InZS*K0kEP?K+OTf-+$f~&1Gd+%h);&T?g`{>WuOs-uUCKC zm1qEWqZA&*igcr@D*liTmxlvnym98WRfQwkhJaoGX~u4%xusIcYX~s619MSsTTUZ6 zz233bybHk@{qNu5qXxKHS-#FI10}QTb%|^U>CZQ3_bhdk@~ !?Y%*Furbq~ zZ;)cQz?%8ix0O^h5n)p^-aciqxzP%CwMm{JqGPmE;>)b?F930)?FaBfGtkKy)&mnX zWT|F8e##wi#ppnUj|ezsJku&>5 mXVgY;M4R--?@`Mh+W1x;MFFsF`0Q545xw{F % z%f8u^P9OO)B|d#uU|z^Xv?J$HyjA!FnsVd=O>4yP^^SaJIaMKV31oCQ=FSS~piV6A zIx`!pu?RZLcBZGW(*$r^CVvHh>)y%7%gOKm$Ve (>mC*MDL4zjQWZrm#)~ zR9wj;{LzD|Z+$|`oYn<~0a_!i*K7DBunFgxmZoUso2XsgZSd|yDclMb9in4;QSppW zFnOXsxtp{ o(3JOwC&3yp`S$cS?X?sQ(( z*=*b{ixSHj#g>iF)vpL|U%|Dr7E#rXu056ed*=b#KMNw|o*?kP6);!c`^YYur~_HC zAoqe|ozVOV9bk@M%A2{slEH1YH} SwB{$VyQPqOVp2Z@ycqWj@DMW!t7OZF><()C7If>R z(ri5Qgo%>8Zd`M7ouh&PIj6tNa8dS6?hS1flrP)OLZg2 n>90qv(%j5SG}onlb(0>jlGN_`usB|I}IRj&x_sy)ssp*bKJLe zXD<~-5BcK`YP7gt%K!Y?zb^1YLigTdnl`uqNoRy}hUP`(wa3~dCsX(8#_eG8AEJ2B zrarS=+^7JsP3_}iic!_&C#v#$*A=mcjww=dqB*jp(?g1 =RL=yHGhAW0(iPO&V*7XM?lrVw2)Q>&kF z ^8vk$3Aj&2@rgad-!9Nh=a_fwmWO7}3+B=b zmJJp~0kr>sacM04dGZ#yEB#^71-i!aa-B-=m!!}FB#VU#GdV&)(`$^U; Em z)sbcbw4NuPB&;#Gm`JohbT2s}`g==}+syDnq{1p=2u=jX{jMi$R~kQHHK;_r8Dk8~ zA}ggsI$H _UMCFF*W0L &gUEs!5u_u} 77Vt3qM?DTRi1o!e+vj z2FI*<{wRwHPlY#L7S @CJqytA`OQsI1S+er8e#g{BX&c4TRDWEEs- zFH@jPgPySJ;qvFsw{R4Bj6V7Q;#4sFCMan}z^jO5jMN#PkyS3cH&O}E^2)9yJ9bAE z55p_rJ~Th$dr^lj-LsISLaxioB-xdjWW#UVOy#>5T^NGst=t_=^rukG)!N`f`JyZ# z7bPWMqeYop)71@w=~~+8I7d2bP_2x);!sR*%zkC*UF-=@5e|9M=%&jG#a~>onR@Ul zQ0o+Z_X%hO81v|g1&&6nKT>ZYB$jRB9D;9OdOLOhk8U%o4{$%xCO|nQY++bWoKO`V z&+TKkvR=N-&R+RmNTn-ED5)hf$5S4$fNm! 9WYzL^i^-`3ZJbx0RTC?q39Tow0RI)>hZXhN6$76`+f(Km_bYhZC=w;8i*0@8TV~x4+@; z2mcr1jJ9fNbSWHzkc-JO4%s`b4A{_iK-4RJg~S%+7Jt8a2x_f(Bov1Y56}Al*VU5~ zPhTx|?s)S|5yMYIk8{`{ng$TqG}72zxAmkY#cSHEy7S)9wE?UpUAO#(&f(78AsuXB z4Ri#Un-Mr<{@s @m!U&DUiPs*0(?z4$+TUdD!0#uuL)>{+=fdlO zP_;XEWN#yQZUO{riaB>Y*y`2QYeEUlnYodK(RU$EB7^TQ>=n*ndU imcUKH0Cl?YP1BsE72%ZBdQJ5xy}u{sn}_&raaz&Aj20E 8@t4G55tI(O^a~)^8AI4f2A% zKf6J&S!LdmdA|-26anoTN-Z`*uA0`5r9bL8Se>E~RLadU6V%f}6S)2JC|uk=?Svu~ zgB!u9S%6+JA>$kLA3&|okqgkBHoa=<-jG&j=8E?_mDSZ*&GlbFq5-^2+k^xD2W9L) z7{&cNKoTGV9IhO>xEpNq{_8GKqb>+4oNcbO$_q~?C(X-}`oQ73j`IhrbJ`VDvQj&Y z^W4Ss-(4HPs6jxA@zNJv=m#J~7?-p3^17vaTXaeP>CJKzNJ8NAj*G*hX>Tx~1P~5- zF@)u0QV*F@J(Zn*brPfaNKkQBFpwic!F%4U=5l)z0L{w)NmL_(N}#`-cuyUR2Z4Kz z#wyXWp -GB7AVzy}hN^D-%jec9 zD4D^G3X8bl`qV7O--LPzfS|)hxLJ)88sg%3H)#us4d7x5*aLD9N?N_X!37$cqdXSJ z+*F8jj$Qm6!eFNn9{KlcLCKy;{Y`QrqS2m2tQ-%4mJd+2g;fr*qlv_31M5&spL e#ZWxajP17@Fa9SYNrogYFrL$Ynm1|R z8wTUH>fH-R)I}2h0wg^cjRf1gCr!al0{!ss87#m&96KgMg`(Y2{%c7b_EcTYjSA#5 zHYy7oI)oAo6NUc*hW~TqxuU$4&Z=h!4mXa`X+TrPh_dwSFw+gjdRbS{?b7G7HJ+D$ zFKic3XY??0KqoXk-u8AN ~KHeG-RVc}^pGigA zz%QuhH1n_?DB0v|oldloHVK(Q-%R_5nfrQ^BSX;vxeJ3`2j?o&?Q3a@N8xM=v*2>! zIsl@3V{{Jdb;o(A{~qG=Ppd^}M`*uexk0HfEfb-Ge}|V>D~xT8v!BdzxtiVR*oYF^ zod)Dy{ikU-4{96g$N pvV~1q`APpwzLQbb~kCKu^u1yhf52* z_WvaNz{$~Wb#6e4CFsRgga%D~FwH&guu5h8 AX$LuL?MVt9%WXmENiQuUxjWQ zMH~hc6i1||qraH(_wJBeqL8~f8m~ K!ERlk=4KMx-I-@F22F zXQKvC2*_}FT4L?;2KunNhm8&3)zZBPd|EGu>bLl_YH{=k-U&~A{4fepD15SpZGees zxZ~5K>G_+6303jD`PJsHycLO1VJhfoL1qxtwbVbik0KI|DY*bB6a8w6Tk$=<(Y-yL zT4)+8=_+%bH>QC4>fiqdK|dC_Ve_8zJT-aTmhqZ;M%_&8;6Kkm-yUw<+EruQk2l%= zxVm2We9i5C#@=FII{a5zL{@otd3Zo)Jj10%1UI}93fFZeyUYrvxRcv6a*X bn3S(A<$7LSFduV2o-tDEB_%Nz-q zc*{|Zn2-Ym4MJx^XFC9|SSB2Ok9&kJMe}RG9Y!%N)-CI>ZNx6dO4GY=O+N-NoT@M8 z=n2gFr%1-M^-HPiI|6lY>4Ae@nO#0wqto4#T}LC~7mx>KvgSFgZpnyvtN{9b;vT%Q zKHlOmqu*p+LA3%O9lr%G8yY^lUoZX?+sSia@)&F)<|@^P(_)->E4Z>)xAYL8Sfvuc z^ysY#2n-MEyJ4QSP$ET&<{^T4?hz>_(Fn4y@s|%QXChu!kqE}#5Tcp${jRO|r86Pk z#Z;I&$B(ht)85f+KFWSNyd#fjo>-S5plXfApI6$zw)cA$CNE@;6Z)Wfo$>H2rCoV} zq@ciF^~y;~a-@a(biq;aZ&q<~ @%H|bF|!KPo|UE~73 zcp&H_ssrM+5D1&UJhImJYHtGmNE{>z27WX@cgt`9yON0gB!}_{X{o~iWq>0ZX0X#( z8SZ<_jY_P5m2clMbS7X9pIZrvrMz~+b>meW#u86x*RNV4ShWe}3+ikR@A6t4T3)na zL|XR_KgNtwQk{KN<)g|r5B^y@5q4G3O>Wwr*JVbyN$FZ{k6% `&mJOc044lmNK~amlwZZhmFm77ETGSqP&|aZ=);;%$NI|fj z4bZMiSQer3|3wygK0AnR_4Ny81rCmVtQ28FRj!vx8|njzX!Pg_Os&Z8cwcFJMTZ?D zCh+q_8SO$GEdm-eDovIF(U;V??u+#y617h_pF9*QF+)FTqvBLn^hlKFM_%XdOTUt& z;xt}s^7#%-eNAX)C%0>>Q0Oc6gg24Qc!#9+)ZtNI9+B(qKhdyMbiGd9_cQoZT_||Q z^j0FTOrkz8ZC$JzT4O$s&H2k#Uf_Bxf;OP`-(k0~oBa35;@=}BRV Date: Wed, 3 Dec 2025 11:21:50 -0800 Subject: [PATCH 04/10] Don't run examples or dontrun blocks [ci skip] --- .github/workflows/pkgdown.yaml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/.github/workflows/pkgdown.yaml b/.github/workflows/pkgdown.yaml index efa8e21..fa85f77 100644 --- a/.github/workflows/pkgdown.yaml +++ b/.github/workflows/pkgdown.yaml @@ -41,7 +41,8 @@ jobs: c("NOT_CRAN" = "true"), # this should already be set by setup-r@v2? keeping because vignettes don't build otherwise pkgdown::build_site_github_pages( lazy = FALSE, # change to TRUE if runner times out. - run_dont_run = TRUE, + run_dont_run = FALSE, # shinystan is interactive so hangs + examples = FALSE, new_process = TRUE ) ) From 54e2042051189bef4924a3e9364f2fdd2f7fc98e Mon Sep 17 00:00:00 2001 From: VisruthSK <67435125+VisruthSK@users.noreply.github.com> Date: Wed, 3 Dec 2025 11:29:19 -0800 Subject: [PATCH 05/10] Added dev site [ci skip] --- _pkgdown.yml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/_pkgdown.yml b/_pkgdown.yml index 887ec1d..00545e0 100644 --- a/_pkgdown.yml +++ b/_pkgdown.yml @@ -2,6 +2,9 @@ url: https://mc-stan.org/shinystan destination: "." +development: + mode: auto + template: package: pkgdownconfig From af10419b53deaf74b48708bc41ca421da1f95c00 Mon Sep 17 00:00:00 2001 From: VisruthSK <67435125+VisruthSK@users.noreply.github.com> Date: Wed, 3 Dec 2025 13:45:31 -0800 Subject: [PATCH 06/10] Logo is svg --- R/shinystan-package.R | 2 +- README.md | 2 +- inst/ShinyStan/ui_utils.R | 159 +++++++++++++++++++++++--------------- man/shinystan-package.Rd | 2 +- 4 files changed, 100 insertions(+), 65 deletions(-) diff --git a/R/shinystan-package.R b/R/shinystan-package.R index 90e5fc8..1a3d4de 100644 --- a/R/shinystan-package.R +++ b/R/shinystan-package.R @@ -17,7 +17,7 @@ #' #' @description #' \if{html}{ -#' \figure{logo.png}{options: width="50" alt="mc-stan.org"} +#' \figure{logo.svg}{options: width="50" alt="mc-stan.org"} #' \emph{Stan Development Team} #' } #' diff --git a/README.md b/README.md index 0dced8a..296add3 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,4 @@ -# ShinyStan +# ShinyStan
[](http://cran.r-project.org/web/packages/shinystan) diff --git a/inst/ShinyStan/ui_utils.R b/inst/ShinyStan/ui_utils.R index 7a15330..9e6198c 100644 --- a/inst/ShinyStan/ui_utils.R +++ b/inst/ShinyStan/ui_utils.R @@ -18,25 +18,28 @@ save_and_close_button <- function() { shinystan_version <- function() { # prevents error when deployed to shinyapps.io ver <- try(utils::packageVersion("shinystan")) - if (inherits(ver, "try-error")) + if (inherits(ver, "try-error")) { return() - else + } else { strong(paste("Version", ver)) + } } logo_and_name <- function() { - div(div( - img( - src = "wide_ensemble.png", - class = "wide-ensemble", - width = "100%" - ) - ), div( - style = "margin-top: 25px", - img(src = "stan_logo.png", class = "stan-logo"), - div(id = "shinystan-title", "ShinyStan") - )) + div( + img( + src = "wide_ensemble.png", + class = "wide-ensemble", + width = "100%" + ) + ), + div( + style = "margin-top: 25px", + img(src = "stan_logo.svg", class = "stan-logo"), + div(id = "shinystan-title", "ShinyStan") + ) + ) } @@ -56,34 +59,42 @@ save_and_close_reminder <- function(id) { # show/hide options/glossary --------------------------------------------- a_options <- function(name) { - lab <- if (name == "table") - "Table Options" else "Show/Hide Options" - div(class = "aoptions", - checkboxInput( - inputId = paste0(name, "_options_show"), - label = strong(style = "margin-top: 20px; color: #222222;", lab), - value = FALSE - )) + lab <- if (name == "table") { + "Table Options" + } else { + "Show/Hide Options" + } + div( + class = "aoptions", + checkboxInput( + inputId = paste0(name, "_options_show"), + label = strong(style = "margin-top: 20px; color: #222222;", lab), + value = FALSE + ) + ) } a_glossary <- function(id) { - div(class = "aoptions", - actionLink( - inputId = id, - label = strong(style = "margin-top: 20px; color: #222222;", "Glossary"), - icon = icon("book", lib = "glyphicon") - )) + div( + class = "aoptions", + actionLink( + inputId = id, + label = strong(style = "margin-top: 20px; color: #222222;", "Glossary"), + icon = icon("book", lib = "glyphicon") + ) + ) } - # plotOutput generators --------------------------------------------------- -dygraphOutput_175px <- function(id) +dygraphOutput_175px <- function(id) { dygraphs::dygraphOutput(id, height = "175px") -plotOutput_200px <- function(id, ...) +} +plotOutput_200px <- function(id, ...) { plotOutput(id, height = "200px") -plotOutput_400px <- function(id, ...) +} +plotOutput_400px <- function(id, ...) { plotOutput(id, height = "400px") - +} # conditionalPanel generator for EXPLORE/density ------------------------- @@ -91,25 +102,39 @@ condPanel_dens_together <- function(...) { conditionalPanel(condition = "input.dens_chain_split == 'Together'", ...) } condPanel_dens_prior <- function(dist, ...) { - cond <- paste0("input.dens_prior ==","'", dist,"'") + cond <- paste0("input.dens_prior ==", "'", dist, "'") conditionalPanel(cond, ...) } # conditional transparency settings --------------------------------------- alpha_calc_pt <- function(N) { - if (N <= 100) return(1) - else if (N <= 200) return(0.75) - else if (N >= 1500) return(0.15) - else 1 - pnorm(N/1500) + if (N <= 100) { + return(1) + } else if (N <= 200) { + return(0.75) + } else if (N >= 1500) { + return(0.15) + } else { + 1 - pnorm(N / 1500) + } } alpha_calc_lines <- function(N) { - if (N < 50) return(0.5) - if (N < 500) return(0.4) - if (N < 1000) return(0.3) - if (N < 5000) return(0.2) - else return(0.1) + if (N < 50) { + return(0.5) + } + if (N < 500) { + return(0.4) + } + if (N < 1000) { + return(0.3) + } + if (N < 5000) { + return(0.2) + } else { + return(0.1) + } } @@ -125,28 +150,38 @@ transformation_selectInput <- function(id) { transform_helpText <- function(var = "x") { div( - if (var == "x") - helpText(style = "font-size: 13px;", - "To apply a transformation", - "select a function and click", - code("Transform")) - else if (var == "x,y") - helpText(style = "font-size: 13px;", - "To apply transformations", - "select a function for x and/or y", - "and click", code("Transform")) - else - helpText(style = "font-size: 13px;", - "To apply transformations", - "select a function for x, y, and/or z", - "and click", code("Transform")) + if (var == "x") { + helpText( + style = "font-size: 13px;", + "To apply a transformation", + "select a function and click", + code("Transform") + ) + } else if (var == "x,y") { + helpText( + style = "font-size: 13px;", + "To apply transformations", + "select a function for x and/or y", + "and click", + code("Transform") + ) + } else { + helpText( + style = "font-size: 13px;", + "To apply transformations", + "select a function for x, y, and/or z", + "and click", + code("Transform") + ) + } ) } # diagnostics help text --------------------------------------------------- -hT11 <- function(...) +hT11 <- function(...) { helpText(style = "font-size: 11px;", ...) +} help_interval <- hT11("Highlighted interval shows \\(\\bar{x} \\pm sd(x)\\)") help_lines <- hT11("Lines are mean (solid) and median (dashed)") help_max_td <- hT11("Horizontal line indicates the max_treedepth setting") @@ -162,7 +197,6 @@ help_dynamic <- hT11( ) - # ppcheck plot descriptions ---------------------------------------------- plot_descriptions <- c( @@ -175,7 +209,6 @@ plot_descriptions <- ) - # stan manual reference --------------------------------------------------- stan_manual <- function() { helpText( @@ -209,8 +242,10 @@ if (!exists(".SHINYSTAN_OBJECT")) { isTRUE(.SHINYSTAN_OBJECT@misc$stanreg) && !is.null(.SHINYSTAN_OBJECT@misc$pp_check_plots) -if (exists("object")) +if (exists("object")) { rm(object) -if (exists(".SHINYSTAN_OBJECT")) +} +if (exists(".SHINYSTAN_OBJECT")) { rm(.SHINYSTAN_OBJECT) +} gc() diff --git a/man/shinystan-package.Rd b/man/shinystan-package.Rd index b729ca4..f1d621e 100644 --- a/man/shinystan-package.Rd +++ b/man/shinystan-package.Rd @@ -6,7 +6,7 @@ \title{\pkg{shinystan} R package ('ShinyStan' graphical user interface)} \description{ \if{html}{ - \figure{logo.png}{options: width="50" alt="mc-stan.org"} + \figure{logo.svg}{options: width="50" alt="mc-stan.org"} \emph{Stan Development Team} } From f7c218a5e48057ca585cb5243b3c1f36ae5de7dd Mon Sep 17 00:00:00 2001 From: VisruthSK <67435125+VisruthSK@users.noreply.github.com> Date: Wed, 3 Dec 2025 14:27:51 -0800 Subject: [PATCH 07/10] Removed duplicate development section --- _pkgdown.yml | 3 --- 1 file changed, 3 deletions(-) diff --git a/_pkgdown.yml b/_pkgdown.yml index 00545e0..11f73ae 100644 --- a/_pkgdown.yml +++ b/_pkgdown.yml @@ -50,9 +50,6 @@ articles: contents: - deploy_shinystan -development: - mode: auto - reference: - title: "Package overview" desc: > From 0e4f1a6c3a199928488b4bd0a55ddb85656753a2 Mon Sep 17 00:00:00 2001 From: Visruth <67435125+VisruthSK@users.noreply.github.com> Date: Wed, 3 Dec 2025 18:31:54 -0800 Subject: [PATCH 08/10] Changed image URLs to raw from blob --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 296add3..f603f10 100644 --- a/README.md +++ b/README.md @@ -46,7 +46,7 @@ launch_shinystan_demo() ### Screenshots -
+
### About ShinyStan From cc223b003318b0c5c31dd9c97dce02cab172a208 Mon Sep 17 00:00:00 2001 From: Visruth <67435125+VisruthSK@users.noreply.github.com> Date: Thu, 4 Dec 2025 17:37:31 -0800 Subject: [PATCH 09/10] Clean gh-pages branch on builds --- .github/workflows/pkgdown.yaml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/pkgdown.yaml b/.github/workflows/pkgdown.yaml index fa85f77..eb189b9 100644 --- a/.github/workflows/pkgdown.yaml +++ b/.github/workflows/pkgdown.yaml @@ -51,6 +51,6 @@ jobs: - name: Deploy to GitHub pages 🚀 uses: JamesIves/github-pages-deploy-action@v4 with: - clean: false + clean: true branch: gh-pages folder: docs From ab9762759fb46e8beacb3ad71a474ad855590cf3 Mon Sep 17 00:00:00 2001 From: VisruthSK <67435125+VisruthSK@users.noreply.github.com> Date: Fri, 5 Dec 2025 15:52:47 -0800 Subject: [PATCH 10/10] Revert "Clean gh-pages branch on builds" This reverts commit cc223b003318b0c5c31dd9c97dce02cab172a208. --- .github/workflows/pkgdown.yaml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/pkgdown.yaml b/.github/workflows/pkgdown.yaml index eb189b9..fa85f77 100644 --- a/.github/workflows/pkgdown.yaml +++ b/.github/workflows/pkgdown.yaml @@ -51,6 +51,6 @@ jobs: - name: Deploy to GitHub pages 🚀 uses: JamesIves/github-pages-deploy-action@v4 with: - clean: true + clean: false branch: gh-pages folder: docs