-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathexecute_report.R
executable file
·83 lines (66 loc) · 2.34 KB
/
execute_report.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
########################Execute report using code ####################
require(rmarkdown);require(lubridate)
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel/report"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel/report"
setwd(mypath)
}
render(paste0(mypath,"/ILI_sentinelles.Rmd"))
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel/report"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel/report"
setwd(mypath)
}
render(paste0(mypath,"/Diar_sentinelles.Rmd"))
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel/report"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel/report"
setwd(mypath)
}
render(paste0(mypath,"/Palu_sentinelles.Rmd"))
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel/report"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel/report"
setwd(mypath)
}
render(paste0(mypath,"/palu_autoch_sentinelles.Rmd"))
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel/report"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel/report"
setwd(mypath)
}
render(paste0(mypath,"/PFA_sentinelles.Rmd"))
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel/report"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel/report"
setwd(mypath)
}
source("miss_sent_report.R")
############################come back to main directory######################
if ( !file.exists("/srv/shiny-server/sentinel_hrmntr/Sentinel" ) )
{
mypath = "/media/herimanitra/Document/IPM_sentinelle/sentinel_hrmntr 291115/Sentinel"
setwd(mypath)
} else {
mypath= "/srv/shiny-server/sentinel_hrmntr/Sentinel"
setwd(mypath)
}
source("generate_report.R")