plot.survfitJM in shiny app : comparison of these types is not implemented about jm

[drizopoulos]

Dear Florent,

It's a bit difficult to pinpoint where the problem occurs. Would it be possible to send a traceback()?

BTW, I have a working shiny app for dynamic predictions in JMbayes - you could have a look there.

Best,
Dimitris

[f-leborgne]

Dear Dimitris,

Thanks for your quick answer.

The traceback given by the shiny app is the following :
101: Summary.difftime
100: plot.survfitJM
99: renderPlot [C:\Users\Florent\Dropbox\shiny\pred/server.R#119]
89: reactive:plotObj
78: plotObj
77: origRenderFunc
76: output$graph
1: runApp

Hope it help.

Kind regards,
Florent

[drizopoulos]

Dear Florent,

According to the traceback the error seems to occur in the call to Summary.difftime(). However, unless I have missed something, nowhere in the code of plot.surfitJM() this function is called. Are you working with dates and calling summary() of difftime objects?

Best,
Dimitris

[f-leborgne]

Dear Dimitris,

After further investigation I finally found that the error was at line 89 of the function plot.survfitJM.R :
rng <- range(x$obs.times[[ii]], x$survTimes)
My problem was the following, the vector x$obs.times[[ii]] was a "Time differences in days" obtained from the difference between different shiny dateInput while it is required a character or numeric object.
I could simply solve the problem by adding the as.numeric() function to my difference of date when I create the initial data.frame from shiny Inputs.

Thanks a lot for your help.
Best,
Florent

[drizopoulos]

OK great that it is solved.

Best,
Dimitris