From d325d471ec47caf5595707d787343ed4d618bf34 Mon Sep 17 00:00:00 2001 From: John Harrold Date: Fri, 21 Jun 2024 08:13:47 -0700 Subject: [PATCH] fixing logic preventing NA assignment to dosing when the model has no dosing. --- R/modeldb.R | 9 +++++---- data/modeldb.rda | Bin 1408 -> 1395 bytes 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/R/modeldb.R b/R/modeldb.R index a7e2802..d8c3db3 100644 --- a/R/modeldb.R +++ b/R/modeldb.R @@ -128,10 +128,11 @@ addFileToModelDb <- function(dir, file, modeldb) { dosing = c(dosing, "depot") } if("central" %in% mod$params$cmt){ dosing = c(dosing, "central") } - dosing = paste(dosing, collapse=",") - } - if(is.null(dosing)){ - dosing = NA_character_ + if(!is.null(dosing)){ + dosing = paste(dosing, collapse=",") + } else { + dosing = NA_character_ + } } # Finding depends diff --git a/data/modeldb.rda b/data/modeldb.rda index fb6ef2f9ef9eff13b173a187831e6f40ac5987a2..6f5e57508d96bc6bb6888180e2f6c7e958599a72 100644 GIT binary patch literal 1395 zcmV-(1&sPaT4*^jL0KkKS)2c0q5uPU|H1$If8p+b|KKi;|9Zdw|L{Nn004ji&;^#B zZFSdkySC=-w(E&@+ins`sF;S6WK+?aMnurbvVdg50p$ZtGBnT)8Z-$cOc0q7q-{e+ zWeorT8Z-f+pkx7~)G-8zkW7e}#WeK+p|t?W00000115mba5U3R28M=)Mu21ip`bL; zkN^V-hz$gZ6GW5ro|77;G(gh`0j7W&00000G|@*Zn}sCI!~*!>k^=XtJq{TxQF03E z1@dJPDp+l_10&z3>!!_SE0Tl)_W!qUL5-mv?1vAgsjws?LiaKi_;{v$x|Wgjga5OG zTA`i4T6P!3O%J)qr7VO;>}c<|g2+BH(XySXF%`Jy$WA^K~2HaAMs$`1lERO_c=n2qd6SyZ0ggf}fPi`h(RWt*yGD{Z3!q6|XHaSl69$qzXGp41wJF$RmYbp^}oXlGx7{-vxAl@0U+{FZf zW}M$Ds$?oGM-{d z$pwD9vCo~kJ=j*|?l=d7&AXl5--cY?#%UyyNp77Mr$Bmn@809Lz4_}mFLxGs|CkQ@ zQTNowxSlG0G`Tr2W;2^-pmB#d2*kI@7fKdMrp*(&bdHfQ-4}$eLDeQfxjK#g)`G^0 zVkl5V@?quqO;x8#!RjVEipF*Rxj03M+lt;?A66wxHa#cf%2&4HP$Y| zZ7BwLY+-S14*Kx2$gJ5bAPmA7|4!@yeP;Y}Opm@gwUSOYCqL~~NNbyVPNlsHt%$W@gEyAwuKm0_Y| zPRx=jE?tv-OEw{pgD7#_jEPzs_~fN(mO}L$zrP*IpgEFBl*Cz7+Tn`JjUriA{qx}3 zhEtq%z0nO;#1K&Z*-%Kw8w|oKh~a}tnrw!U=qA%?5HWL9sF8@+E~1huyNm^5IOK8& zbz2m86U4;DX2`GpGT^ddGHi&S4;8CmLm<#&5Nryg~0g7UQ17Zp$sje+@3+EcAe1E%$BNQEX;IUWKfxs5VHlGRtxJ{%VfeBdH_#?V!fvuQa&vZ79e0g7BK zmYAi=3e2rUCsJ8dZD7OGa+MY=YH_`QUC*df5HFyf8p+b|KKi;|9Zdw|L{Nn004ji&;_2e zb5w3-YJ%8g)1Z<>O`=our>CZ=ru98TQ_3`GdQCk>)L{mXBx$Cer=kN)jTr`n1Zhms zsAL*60002dpa2Gd0j8P)L`WpcdQSqHdYUq5$Y=qe4FCWD13~I~gMp@+Xf!l5GBg7q z4GjUNjDP?bOh9NNk{JqlG$usxB-u|UQ`Fi(&;v~k8UO$uqeIdzWX5TK!oy%?HyR*i zP+d|;h0!@7ePaGEPGIF^0~x5|e#B(+B;*3i)zf7nmJ&XFj;;8hWI%xm6hx{r1uY6f z&q~ST$%?f09E8g!^G*VLN#qn{9{AS4s?%FNxY(w;Xho{y4J8#o z)y~V-%&;4;O3{pKdYa;{#H(V|mW{E154fDvS&<0VAm7%#7zr3;1LpwtRv@2jq`bQx zTbn+awvnYaqf_r7wyaxKM8bwql;m4VrmPup!z6V@ql9o;)M{Ix$gQ%)8M^L!J8tYo zKsZkoXVjo3LQJGVIPlGHE5^~1Sh>>*`F70MQ^qXXUrI z&8pm(Zsec)qIp|8ms7O3pA{T*Je-s?XOgzEWCKpf|7TJ(a2YFvtYh!v=1av@|U|Q5Nf`DHFd`DXq z2|MLIgPzm4-=6EY3D#Y-->(CCmP+r$CQzkw8DqXAUof%;zp) z8$a!2e!7lRxUTn;Xh<{Nt))=<1yyrO+hs$Xp&&Mi1bJgCgIy0ayVW}Q99V^5gFJTZ zH?Q)IczizR45j}V-*_wZgXz}c;k2u{_F(&^uFICh#e-1 zgLF2@pCLJY8Y_{viYyI1jV^U3<=_zd$BwE3_91%pEws zwRcpAO$N>W@->bmU<8hlAvzl9)&cBC6%>N!zKc@uh3Ggys&cfYUssfwW6)D6} z{*WRfB47~2ZBteBpsJcnT_RY(@WPqGHo`U9rUR^~JXhN}`}ST!sT}J6 O;_gVN3K9gH=?XvyxQi43