made shorter path for ShinyApp run test

inst/ShinyApp/runApp.R

-source("./inst/ShinyApp/ui.R")
-source("./inst/ShinyApp/server.R")
+setwd( paste0(getwd(),"/inst/ShinyApp/") )
+getwd()
+
+source("ui.R")
+source("server.R")
 
 shinyApp(ui = ui, server = server)
 

inst/ShinyApp/server.R

@@ -5,10 +5,10 @@ server <- function(input, output, session){
   ##  Fixed parameters in the server environment
   ##-------------------------------------------------
   ## Load species list
-  species_data <- read.csv("./inst/ShinyApp/species_list.csv", sep = ";")
+  species_data <- read.csv("species_list.csv", sep = ";")
 
   ## Load survival and fecundities data
-  data_sf_with_stars <- read.csv("./inst/ShinyApp/data_sf.csv", sep = ";")
+  data_sf_with_stars <- read.csv("data_sf.csv", sep = ";")
   data_sf <- data_sf_with_stars
   data_sf$survie <- as.numeric(gsub("p", "", data_sf$survie))
   data_sf$fecondite <- as.numeric(gsub("p", "", data_sf$fecondite))
@@ -2197,7 +2197,7 @@ server <- function(input, output, session){
       # can happen when deployed).
       tempReport <- file.path(tempdir(), "report.Rmd")
 
-      file.copy("./inst/ShinyApp/report.Rmd", tempdir(), overwrite = TRUE)
+      file.copy("report.Rmd", tempdir(), overwrite = TRUE)
 
       # Set up parameters to pass to Rmd document
       paramsRMD <- list(

inst/ShinyApp/ui.R

@@ -18,7 +18,7 @@ rm(list = ls(all.names = TRUE))
   options(knitr.table.format = "latex")
 
   ## Load species list
-  species_data <- read.csv("./inst/ShinyApp/species_list.csv", sep = ";")
+  species_data <- read.csv("species_list.csv", sep = ";")
   species_list <- unique(as.character(species_data$Species_fr)) %>% sort
   species_list <- c(species_list, "Espce gnrique")