settings.R

# Copyright 2022-2024 Louis Héraut (louis.heraut@inrae.fr)*1,
#                     Éric Sauquet (eric.sauquet@inrae.fr)*1,
#                     Michel Lang (michel.lang@inrae.fr)*1,
#                     Jean-Philippe Vidal (jean-philippe.vidal@inrae.fr)*1,
#                     Benjamin Renard (benjamin.renard@inrae.fr)*1
#                     
# *1   INRAE, France
#
# This file is part of MAKAHO R shiny app.
#
# MAKAHO R shiny app is free software: you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation, either version 3 of the
# License, or (at your option) any later version.
#
# MAKAHO R shiny app is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with MAKAHO R shiny app.
# If not, see <https://www.gnu.org/licenses/>.


## 1. PATH AND RESOURCES______________________________________________
# Path to the data
computer_data_path = 'data'

# Resources directory
resources_path = 'resources'

# INRAE logo path
INRAElogo_path = file.path(resources_path,
                           "logo", "Logo-INRAE_Transparent.png")

# Name of the dictionnary to use for the translation
dico_file = 'dico.txt'
# Creates the dictionnary
dico = ASHE::read_tibble(file.path(resources_path, dico_file), sep=";")

# Icon directory
icon_dir = 'icons'
# Creates icon library 
iconLib = create_iconLib(icon_dir, resources_path)

# Filename of the map tiles theme available
theme_file = 'theme.txt'
default_theme = "light"


## 2. MAP PROVIDER ___________________________________________________
# Selection of the provider of map
provider =
    'jawg'
    # 'stadia'

# Token for the map
jawg_token =
    "hEjAgwvvpEJBpIR62stbJUflOVZXM73MoB1hQGAR69fCtoNVQiHJOKp8lVlPOdFH"


## 3. DEFAULT PARAMETERS _____________________________________________
### 3.1. Dataset and variable ________________________________________
default_data = "RRSE"
default_variable = "QA"
if (lg == "fr") {
    default_event = "Moyennes Eaux"
} else if (lg == "en") {
    default_event = "Mean Flows"
}

licence_file = "ETALAB-Licence-Ouverte-v2.0.pdf"
licence_path = file.path(computer_data_path,
                         licence_file)
readme_file = "README"
readme_path = file.path(computer_data_path,
                        readme_file)
readme_tmp_path = file.path(computer_data_path,
                            "tmp", readme_file)

### 3.2. Info about variable _________________________________________
check_varSub = c("fQ[[:digit:]]+A",
                 "Q[[:digit:]]+A",
                 "[_]season",
                 "[_]month")

SeasonMonth_pattern =
    paste0("(",
           paste0(c(word("var.month", lg),
                    word("var.season", lg)),
                  collapse=")|("),
           ")")

Months =
    c(word("ana.m01", lg), word("ana.m02", lg), word("ana.m03", lg),
      word("ana.m04", lg), word("ana.m05", lg), word("ana.m06", lg),
      word("ana.m07", lg), word("ana.m08", lg), word("ana.m09", lg),
      word("ana.m10", lg), word("ana.m11", lg), word("ana.m12", lg))


### 3.3. Localisation and map ________________________________________
lonFR = 2.213749
latFR = 46.727638
zoomFR = 6
boundsFR = list(north=51.4677, east=17.68799,
                south=41.52503, west=-13.24951)

# Min and max zoom of the map
minZoom = 5
maxZoom = 20


### 3.4. Time and date _______________________________________________
# today's date
today = Sys.Date()
# Creates a vector of years
Years = 1900:as.numeric(format(today, "%Y"))


### 3.5. Statistical option __________________________________________
# Level of risk
sigProba = c("1%", "5%", "10%")
sigVal = as.numeric(gsub('%', '' , sigProba))/100
default_alpha = sigVal[3]


### 3.6. Plotting parameters _________________________________________
colorStep = 10
extreme_prob = 0.01
analyseMinYear = 30

# Personnal colors
grey99COL = "#fcfcfc"
grey98COL = "#fafafa"
grey97COL = "#f7f7f7"
grey94COL = "#f0f0f0"
grey90COL = "#e5e5e5"
grey85COL = "#d9d9d9"
grey75COL = "#bfbfbf"
grey70COL = "#b3b3b3"
grey65COL = "#a6a6a6"
grey60COL = "#999999"
grey50COL = "#808080"
grey40COL = "#666666"
grey30COL = "#4d4d4d"
grey20COL = "#333333"
grey18COL = "#2e2e2e"
grey15COL = "#262626"
grey9COL = "#171717"

yellowCOL = "#fddc5c"
orangeCOL = "#ffa62b"
redCOL = "#dc343b"

lightCyanCOL = "#66c1bf"
midCyanCOL = "#008c8e"
darkCyanCOL = "#275662"
INRAECyanCOL = "#00a3a6"

validSColor = grey50COL
validNSColor = grey70COL
invalidColor = yellowCOL
missColor = redCOL

none1Color_light = grey85COL
none2Color_light = grey94COL

none1Color_dark = grey9COL
none2Color_dark = grey18COL

color_to_switch = c(
    "#EFD695"="#F6E8C3",
    "#A1DCD3"="#C7EAE5",
    "#DBBECE"="#EFE2E9",
    "#E7BDB8"="#F5E4E2"
)

default_colorbar_choice = "show"
default_resume_choice = "show"


### 3.7. Help option _________________________________________________
N_helpPage = 16
widthHelp = 350
leftHelp = "51%"
topHelp = "45%"
bottomNavHelp = 50
dhNavHelp = 21


### 3.8. CARD parameters _____________________________________________
CARD_path = "CARD"
CARD_dir = "MAKAHOapp"


### 3.9. Dev _________________________________________________________
make_marker = FALSE
nStation_dev = 10