Commit 399e01bb authored by Sylvain Falala's avatar Sylvain Falala
Browse files

Update to english version

parent b9e04ddd
plot_weights <- function(w, nm) {
bp <- graphics::barplot(w, names.arg = nm, ylim = c(0, 1), xlab = "Facteurs de Risque", ylab = "Poids")
bp <- graphics::barplot(w, names.arg = nm, ylim = c(0, 1), xlab = "Risk factor", ylab = "Weight")
text(bp, 1, round(w, 2), xpd = TRUE)
}
......@@ -63,7 +63,7 @@ newAdminCol <- 4
#### LANGUAGE ####
# Language to use: 1 = english, 2 = french
indLang <- 2
indLang <- 1
#languages <- c("English" = "1", "Francais" = "2")
......@@ -109,6 +109,10 @@ langBoxWeightBar <- c("Weight Histogram", "Histogramme des poids")
# Results
langMenuResult <- c("Results","R&#233;sultats")
langAdminUnitResult <- c("Per Epidemiological unit","Par unité épidémiologique ")
langLevelResult <- c("Risk level:", "Niveau de risque :")
# Type of layer
......@@ -161,6 +165,9 @@ if(!is.na(outbFiles[1])){
indRast <- which(fileExt %in% rasterExt)
if(!is.na(indRast[1])) glLayerDF[indRast,"layerType"] <- lRast[indLang]
indMob <- which(fileExt %in% mobExt)
if(!is.na(indMob[1])) layerFiles[indMob,"layerType"] <- lMob[indLang]
#Remove unknown file type
indRem <- which(glLayerDF$layerType=="Unknown")
if(!is.na(indRem[1])) glLayerDF <- glLayerDF[-indRem,]
......@@ -226,6 +233,13 @@ if(!is.na(outbFiles[1])){
}
# If csv mobility file
if(layerFiles[k,"layerType"]==lMob[indLang]){
curLay <- read_network(layerFiles[k,"datapath"])
}
curLayerName <- paste("layer_", glLayerDF[k,"shortName"], sep = "")
......
......@@ -152,14 +152,14 @@ body <- dashboardBody(
#Button to generate and download raster
downloadButton(outputId = "exportResultRaster",
label = "Exporter")
label = "Export")
),
box(title = "Par unite", status = "success", width = 6, solidHeader = TRUE,
box(title = HTML(langAdminUnitResult[indLang]), status = "success", width = 6, solidHeader = TRUE,
selectInput(inputId = "siLevelRisk",
label = "Niveau de risque :",
label = HTML(langLevelResult[indLang]),
choices = 1:12,
selected = 4),
......@@ -167,7 +167,7 @@ body <- dashboardBody(
#Button to generate and download raster
downloadButton(outputId = "exportResultVector",
label = "Exporter")
label = "Export")
)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment