diff --git a/DESCRIPTION b/DESCRIPTION index fbd4fb0..b6d8830 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: memapp Type: Package Title: The Moving Epidemic Method Web Application -Version: 2.8.20180123 -Date: 2018-01-23 +Version: 2.8.20180125 +Date: 2018-01-25 Authors@R: person(given = "Jose E.", family = "Lozano", email = "lozalojo@gmail.com", role = c("aut", "cre")) Depends: R (>= 3.4.0) diff --git a/inst/shinyapp/helpers.R b/inst/shinyapp/helpers.R index b53a7ca..dcea5d6 100644 --- a/inst/shinyapp/helpers.R +++ b/inst/shinyapp/helpers.R @@ -167,7 +167,7 @@ read.data<-function(i.file, seasonsname[seasons$aniof!=""]<-paste(seasonsname[seasons$aniof!=""],seasons$aniof[seasons$aniof!=""],sep="/") seasonsname[seasons$aniow!=""]<-paste(seasonsname[seasons$aniow!=""],"(",seasons$aniow[seasons$aniow!=""],")",sep="") seasons$season<-seasonsname - print(seasons) + #print(seasons) rm("seasonsname") names(datasetread)<-seasons$season # Remove columns not detected as seasons