Skip to content

Commit

Permalink
replace F and T by FALSE and TRUE
Browse files Browse the repository at this point in the history
  • Loading branch information
@certara-smouksassi
certara-smouksassi committed Jan 3, 2024
1 parent 44520e7 commit 4974e24
Showing 1 changed file with 16 additions and 16 deletions.
32 changes: 16 additions & 16 deletions inst/shinyapp/server.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4574,19 +4574,19 @@ function(input, output, session) {
p <- p + geom_line(stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,
method.args = methodsargument,
size=smoothlinesize,se=F,span=spanplot,aes(group=NULL,weight=!!aesweight))
size=smoothlinesize,se=FALSE,span=spanplot,aes(group=NULL,weight=!!aesweight))
}

if (input$Smooth=="Smooth and SE"){
p <- p +
geom_ribbon(stat="smooth",alpha=smoothCItransparency,linetype=0,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot,aes(group=NULL,weight=!!aesweight))+
size=smoothlinesize,se=TRUE,span=spanplot,aes(group=NULL,weight=!!aesweight))+
geom_line(stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot,aes(group=NULL,weight=!!aesweight))
size=smoothlinesize,se=TRUE,span=spanplot,aes(group=NULL,weight=!!aesweight))
}
if (input$smoothmethod=="lm"&&input$showadjrsquared){
p <- p+
Expand Down Expand Up @@ -4635,7 +4635,7 @@ function(input, output, session) {
p <- p + geom_line(stat="smooth",alpha=smoothlinealpha,
method='nls',
method.args = methodsargument,
size=smoothlinesize,se=F,aes(group=NULL,weight=!!aesweight))
size=smoothlinesize,se=FALSE,aes(group=NULL,weight=!!aesweight))

if(input$shownlsparams && !input$e0fit){
p <- p +ggpmisc::stat_fit_tidy(method = "nls",size=input$smoothtextsize,
Expand Down Expand Up @@ -4675,17 +4675,17 @@ function(input, output, session) {
p <- p + geom_line(stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,
method.args = methodsargument,
size=smoothlinesize,se=F,span=spanplot,col=colsmooth,aes(group=NULL,weight=!!aesweight))
size=smoothlinesize,se=FALSE,span=spanplot,col=colsmooth,aes(group=NULL,weight=!!aesweight))

if (input$Smooth=="Smooth and SE")
p <- p + geom_ribbon(stat="smooth",alpha=smoothCItransparency,linetype=0,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot,col=colsmooth,aes(group=NULL,weight=!!aesweight))+
size=smoothlinesize,se=TRUE,span=spanplot,col=colsmooth,aes(group=NULL,weight=!!aesweight))+
geom_line(stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot,col=colsmooth,aes(group=NULL,weight=!!aesweight))
size=smoothlinesize,se=TRUE,span=spanplot,col=colsmooth,aes(group=NULL,weight=!!aesweight))

if (input$smoothmethod=="lm"&&input$showadjrsquared){
p <- p+
Expand Down Expand Up @@ -4732,7 +4732,7 @@ function(input, output, session) {
p <- p + geom_line(stat="smooth",alpha=smoothlinealpha,
method='nls',
method.args = methodsargument,
size=smoothlinesize,se=F,col=colsmooth,aes(group=NULL,weight=!!aesweight))
size=smoothlinesize,se=FALSE,col=colsmooth,aes(group=NULL,weight=!!aesweight))

if(input$shownlsparams && !input$e0fit){
p <- p +ggpmisc::stat_fit_tidy(method = "nls", size=input$smoothtextsize, col=colsmooth,
Expand Down Expand Up @@ -4775,17 +4775,17 @@ function(input, output, session) {
p <- p + geom_line(aes(weight=!!aesweight),stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,
method.args = methodsargument,
size=smoothlinesize,se=F,span=spanplot)
size=smoothlinesize,se=FALSE,span=spanplot)

if (input$Smooth=="Smooth and SE")
p <- p + geom_ribbon(aes(weight=!!aesweight),stat="smooth",alpha=smoothCItransparency,linetype=0,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot)+
size=smoothlinesize,se=TRUE,span=spanplot)+
geom_line(aes(weight=!!aesweight),stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot)
size=smoothlinesize,se=TRUE,span=spanplot)


if (input$smoothmethod=="lm"&&input$showadjrsquared){
Expand Down Expand Up @@ -4835,7 +4835,7 @@ function(input, output, session) {
p <- p + geom_line(aes(weight=!!aesweight), stat="smooth",alpha=smoothlinealpha,
method='nls',
method.args = methodsargument,
size=smoothlinesize,se=F)
size=smoothlinesize,se=FALSE)

if(input$shownlsparams && !input$e0fit){
p <- p +
Expand Down Expand Up @@ -4877,17 +4877,17 @@ function(input, output, session) {
p <- p + geom_line(aes(weight=!!aesweight),stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,
method.args = methodsargument,
size=smoothlinesize,se=F,span=spanplot,col=colsmooth)
size=smoothlinesize,se=FALSE,span=spanplot,col=colsmooth)

if (input$Smooth=="Smooth and SE" )
p <- p + geom_ribbon(aes(weight=!!aesweight),stat="smooth",alpha=smoothCItransparency,linetype=0,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot,col=colsmooth)+
size=smoothlinesize,se=TRUE,span=spanplot,col=colsmooth)+
geom_line(aes(weight=!!aesweight),stat="smooth",alpha=smoothlinealpha,
method=smoothmethodargument,level=levelsmooth,
method.args = methodsargument,
size=smoothlinesize,se=T,span=spanplot,col=colsmooth)
size=smoothlinesize,se=TRUE,span=spanplot,col=colsmooth)


if (input$smoothmethod=="lm"&&input$showadjrsquared){
Expand Down Expand Up @@ -4935,7 +4935,7 @@ function(input, output, session) {
p <- p + geom_line(aes(weight=!!aesweight),stat="smooth",alpha=smoothlinealpha,
method='nls',
method.args = methodsargument,
size=smoothlinesize,se=F,col=colsmooth)
size=smoothlinesize,se=FALSE,col=colsmooth)

if(input$shownlsparams && !input$e0fit){
p <- p +ggpmisc::stat_fit_tidy(method = "nls", size=input$smoothtextsize, col=colsmooth,
Expand Down

0 comments on commit 4974e24

Please sign in to comment.