the plot thickens

rosieluain · Jun 14, 2023 · 271df0d · 271df0d
1 parent 55aab31
commit 271df0d
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 8 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -368,13 +368,20 @@ mortsplot<-function(data,type,ID,station,res.start="auto",res.end="auto",
  }
 
  if (interactive==TRUE){
- # plot<-plot+ggplot2::aes(text=paste("ID:",.data[[ID]],
- # "</br></br>Start:",ResStart,
- # "</br>End:",ResEnd,
- # "</br>Duration:",.data[[residences]],
- # "</br>Station:",.data[[station]]))
- # plot.int<-plotly::ggplotly(plot,tooltip="text")
- plot.int<-ggplotly(plot)
+ if (is.null(residences)){
+ plot<-plot+ggplot2::aes(text=paste("ID:",.data[[ID]],"</br>",
+ "</br>Start:",ResStart,
+ "</br>End:",ResEnd,
+ "</br>Station:",.data[[station]]))
+ }
+ else {
+ plot<-plot+ggplot2::aes(text=paste("ID:",.data[[ID]],"</br>",
+ "</br>Start:",ResStart,
+ "</br>End:",ResEnd,
+ "</br>Duration:",.data[[residences]],
+ "</br>Station:",.data[[station]]))
+ }
+ plot.int<-plotly::ggplotly(plot,tooltip="text")
  plot.int
  }
  else {

diff --git a/man/resmax.Rd b/man/resmax.Rd