I’m trying to deploy a shiny app that summarizes the data of my athletes during a rugby season. So I’ve a lot of data from different “.xls files” and I use reactive function (of the name, and the date) to create interactive visualizations. When I launch my app into Rstudio it works well. However when I try to deploy it through shinyapps.io I deal with this error message in my console : “Error in func(fname, …) : app.R did not return a shiny.appobj object”. What’s more on the shiny app web page, I see “An error has occured” and “Exit status 1”.
So here’s a piece of my code (too long to copy entirely sorry):
The opening of my files
<code># CHARGEMENT DES PAQUETS ET OUVERTURE FICHIERS ----
setwd("C:/Users/La Machine/Documents/DU DATAS/RCN/SHINY APP")
Data_GPS <- read_excel("Data GPS BI.xlsx")
Data_GPS$Date <- as.Date(Data_GPS$Date, format = "%d-%m-%Y")
Donnees_mvt_perf <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Mvts Perf.", range = "A2:J51")
Donnees_profilage <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Profilage", skip = 1)
Donnees_taux_athlé <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Taux Athlétisation", skip = 1)
traitement_CDE_LONG <- read_excel("Charge de travail 2324.xlsx",
sheet = "Total charge", skip = 4)
Data_monitoring <- read_excel("Suivi Monitoring 20232024.xlsx",
sheet = "Wellnes_destiné_codage", skip = 2)
Data_monitoring_poids <- read_excel("Suivi Monitoring 20232024.xlsx",
sheet = "Poids", skip = 2)
<code># CHARGEMENT DES PAQUETS ET OUVERTURE FICHIERS ----
setwd("C:/Users/La Machine/Documents/DU DATAS/RCN/SHINY APP")
library(tidyverse)
library(data.table)
library(ggplot2)
library(ggpubr)
library(lubridate)
library(readxl)
library(gridExtra)
library(DT)
library(shiny)
library(gtExtras)
library(ggtext)
library(geomtextpath)
library(slider)
library(plotly)
library(rsconnect)
library(quarto)
Data_GPS <- read_excel("Data GPS BI.xlsx")
Data_GPS$Date <- as.Date(Data_GPS$Date, format = "%d-%m-%Y")
Donnees_mvt_perf <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Mvts Perf.", range = "A2:J51")
Donnees_profilage <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Profilage", skip = 1)
Donnees_taux_athlé <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Taux Athlétisation", skip = 1)
traitement_CDE_LONG <- read_excel("Charge de travail 2324.xlsx",
sheet = "Total charge", skip = 4)
Data_monitoring <- read_excel("Suivi Monitoring 20232024.xlsx",
sheet = "Wellnes_destiné_codage", skip = 2)
Data_monitoring_poids <- read_excel("Suivi Monitoring 20232024.xlsx",
sheet = "Poids", skip = 2)
</code>
# CHARGEMENT DES PAQUETS ET OUVERTURE FICHIERS ----
setwd("C:/Users/La Machine/Documents/DU DATAS/RCN/SHINY APP")
library(tidyverse)
library(data.table)
library(ggplot2)
library(ggpubr)
library(lubridate)
library(readxl)
library(gridExtra)
library(DT)
library(shiny)
library(gtExtras)
library(ggtext)
library(geomtextpath)
library(slider)
library(plotly)
library(rsconnect)
library(quarto)
Data_GPS <- read_excel("Data GPS BI.xlsx")
Data_GPS$Date <- as.Date(Data_GPS$Date, format = "%d-%m-%Y")
Donnees_mvt_perf <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Mvts Perf.", range = "A2:J51")
Donnees_profilage <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Profilage", skip = 1)
Donnees_taux_athlé <- read_excel("Profilage RCN 2023.2024.xlsx",
sheet = "Taux Athlétisation", skip = 1)
traitement_CDE_LONG <- read_excel("Charge de travail 2324.xlsx",
sheet = "Total charge", skip = 4)
Data_monitoring <- read_excel("Suivi Monitoring 20232024.xlsx",
sheet = "Wellnes_destiné_codage", skip = 2)
Data_monitoring_poids <- read_excel("Suivi Monitoring 20232024.xlsx",
sheet = "Poids", skip = 2)
The app shiny part :
titlePanel("RCN Dashboard Visualisation"),
helpText("Sélectionnez un JOUEUR et/ou une PERIODE"),
choices = traitement_CDE_LONG |>
min = min(Data_GPS_vaccin$Semaine, na.rm = TRUE),
max = max(Data_GPS_vaccin$Semaine, na.rm = TRUE),
value = c(min(Data_GPS_vaccin$Semaine, na.rm = TRUE), max(Data_GPS_vaccin$Semaine, na.rm = TRUE))
min = min(traitement_CDE_LONG$Date),
max = max(traitement_CDE_LONG$Date),
value = c(min(traitement_CDE_LONG$Date), max(traitement_CDE_LONG$Date))
"Visualisation des données",
h1(textOutput("selected_nom")),
tabsetPanel(tabPanel("Métriques volume - GPS",
fluidRow(plotly::plotlyOutput("graphique_1")),
fluidRow(plotly::plotlyOutput("graphique_2")),
fluidRow(plotly::plotlyOutput("graphique_3"))),
tabPanel(("Métriques intensité - GPS"),
column(width = 6, plotly::plotlyOutput("graphique_4"),
plotly::plotlyOutput("graphique_5")),
tabPanel("Vaccin sprint",
fluidRow(plotly::plotlyOutput("graphique_6"))),
tabPanel("Données musculation",
fluidRow(column(width = 3, plotlyOutput("graphique_7", width = "100%", height = "215px"),
plotlyOutput("graphique_11", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_8", width = "100%", height = "215px"),
plotlyOutput("graphique_12", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_9", width = "100%", height = "215px"),
plotlyOutput("graphique_13", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_10", width = "100%", height = "215px"),
plotlyOutput("graphique_14", width = "100%", height = "215px"))),
column(width = 6, gt_output("table_2")),
plotOutput("graphique_15", height = "300px"),
plotlyOutput("graphique_16", width = "80%", height = "255px")))),
tabPanel("Données Charge d'entrainement",
fluidRow(plotlyOutput("graphique_17"))),
tabPanel("Données Wellness",
plotlyOutput("graphique_18"),
fluidRow(column(width = 8, plotlyOutput("graphique_19")),
column(width = 4, plotlyOutput("graphique_20"))))
server <- function(input, output) {
output$selected_nom <- renderText({
paste("Visualisation de ", input$Nom)
Data_GPS_G1_filtre <- reactive({
filter(Nom == input$Nom) |>
filter(Date >= input$periode[1] & Date <= input$periode[2])
Data_GPS_G2_filtre <- reactive({
filter(Nom == input$Nom) |>
filter(Date >= input$periode[1] & Date <= input$periode[2])
shinyApp(ui = ui, server = server)
rsconnect::deployApp('C:\Users\La Machine\Documents\DU DATAS\RCN\SHINY APP')
<code>ui <- fluidPage(
titlePanel("RCN Dashboard Visualisation"),
sidebarLayout(
sidebarPanel(
h1("JOUEURS"),
helpText("Sélectionnez un JOUEUR et/ou une PERIODE"),
selectInput(
inputId = "Nom",
label = "Nom :",
choices = traitement_CDE_LONG |>
pull(Nom) |>
factor() |>
levels()
),
sliderInput(
inputId = "semaine",
label = "Semaine :",
min = min(Data_GPS_vaccin$Semaine, na.rm = TRUE),
max = max(Data_GPS_vaccin$Semaine, na.rm = TRUE),
value = c(min(Data_GPS_vaccin$Semaine, na.rm = TRUE), max(Data_GPS_vaccin$Semaine, na.rm = TRUE))
),
sliderInput(
inputId = "periode",
label = "Période :",
min = min(traitement_CDE_LONG$Date),
max = max(traitement_CDE_LONG$Date),
value = c(min(traitement_CDE_LONG$Date), max(traitement_CDE_LONG$Date))
)
),
mainPanel(
"Visualisation des données",
h1(textOutput("selected_nom")),
tabsetPanel(tabPanel("Métriques volume - GPS",
fluidRow(plotly::plotlyOutput("graphique_1")),
fluidRow(plotly::plotlyOutput("graphique_2")),
fluidRow(plotly::plotlyOutput("graphique_3"))),
tabPanel(("Métriques intensité - GPS"),
fluidRow(
column(width = 6, plotly::plotlyOutput("graphique_4"),
plotly::plotlyOutput("graphique_5")),
column(width = 6,
gt_output("table_1")))),
tabPanel("Vaccin sprint",
fluidRow(plotly::plotlyOutput("graphique_6"))),
tabPanel("Données musculation",
fluidRow(column(width = 3, plotlyOutput("graphique_7", width = "100%", height = "215px"),
plotlyOutput("graphique_11", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_8", width = "100%", height = "215px"),
plotlyOutput("graphique_12", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_9", width = "100%", height = "215px"),
plotlyOutput("graphique_13", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_10", width = "100%", height = "215px"),
plotlyOutput("graphique_14", width = "100%", height = "215px"))),
fluidRow(
column(width = 6, gt_output("table_2")),
column(width = 6,
plotOutput("graphique_15", height = "300px"),
plotlyOutput("graphique_16", width = "80%", height = "255px")))),
tabPanel("Données Charge d'entrainement",
fluidRow(plotlyOutput("graphique_17"))),
tabPanel("Données Wellness",
plotlyOutput("graphique_18"),
fluidRow(column(width = 8, plotlyOutput("graphique_19")),
column(width = 4, plotlyOutput("graphique_20"))))
)
)
)
)
server <- function(input, output) {
output$selected_nom <- renderText({
paste("Visualisation de ", input$Nom)
})
Data_GPS_G1_filtre <- reactive({
Data_GPS_G1 |>
filter(Nom == input$Nom) |>
filter(Date >= input$periode[1] & Date <= input$periode[2])
})
Data_GPS_G2_filtre <- reactive({
Data_GPS_Nb_Accel |>
filter(Nom == input$Nom) |>
filter(Date >= input$periode[1] & Date <= input$periode[2])
})
[...]
}
shinyApp(ui = ui, server = server)
rsconnect::deployApp('C:\Users\La Machine\Documents\DU DATAS\RCN\SHINY APP')
</code>
ui <- fluidPage(
titlePanel("RCN Dashboard Visualisation"),
sidebarLayout(
sidebarPanel(
h1("JOUEURS"),
helpText("Sélectionnez un JOUEUR et/ou une PERIODE"),
selectInput(
inputId = "Nom",
label = "Nom :",
choices = traitement_CDE_LONG |>
pull(Nom) |>
factor() |>
levels()
),
sliderInput(
inputId = "semaine",
label = "Semaine :",
min = min(Data_GPS_vaccin$Semaine, na.rm = TRUE),
max = max(Data_GPS_vaccin$Semaine, na.rm = TRUE),
value = c(min(Data_GPS_vaccin$Semaine, na.rm = TRUE), max(Data_GPS_vaccin$Semaine, na.rm = TRUE))
),
sliderInput(
inputId = "periode",
label = "Période :",
min = min(traitement_CDE_LONG$Date),
max = max(traitement_CDE_LONG$Date),
value = c(min(traitement_CDE_LONG$Date), max(traitement_CDE_LONG$Date))
)
),
mainPanel(
"Visualisation des données",
h1(textOutput("selected_nom")),
tabsetPanel(tabPanel("Métriques volume - GPS",
fluidRow(plotly::plotlyOutput("graphique_1")),
fluidRow(plotly::plotlyOutput("graphique_2")),
fluidRow(plotly::plotlyOutput("graphique_3"))),
tabPanel(("Métriques intensité - GPS"),
fluidRow(
column(width = 6, plotly::plotlyOutput("graphique_4"),
plotly::plotlyOutput("graphique_5")),
column(width = 6,
gt_output("table_1")))),
tabPanel("Vaccin sprint",
fluidRow(plotly::plotlyOutput("graphique_6"))),
tabPanel("Données musculation",
fluidRow(column(width = 3, plotlyOutput("graphique_7", width = "100%", height = "215px"),
plotlyOutput("graphique_11", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_8", width = "100%", height = "215px"),
plotlyOutput("graphique_12", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_9", width = "100%", height = "215px"),
plotlyOutput("graphique_13", width = "100%", height = "215px")),
column(width = 3, plotlyOutput("graphique_10", width = "100%", height = "215px"),
plotlyOutput("graphique_14", width = "100%", height = "215px"))),
fluidRow(
column(width = 6, gt_output("table_2")),
column(width = 6,
plotOutput("graphique_15", height = "300px"),
plotlyOutput("graphique_16", width = "80%", height = "255px")))),
tabPanel("Données Charge d'entrainement",
fluidRow(plotlyOutput("graphique_17"))),
tabPanel("Données Wellness",
plotlyOutput("graphique_18"),
fluidRow(column(width = 8, plotlyOutput("graphique_19")),
column(width = 4, plotlyOutput("graphique_20"))))
)
)
)
)
server <- function(input, output) {
output$selected_nom <- renderText({
paste("Visualisation de ", input$Nom)
})
Data_GPS_G1_filtre <- reactive({
Data_GPS_G1 |>
filter(Nom == input$Nom) |>
filter(Date >= input$periode[1] & Date <= input$periode[2])
})
Data_GPS_G2_filtre <- reactive({
Data_GPS_Nb_Accel |>
filter(Nom == input$Nom) |>
filter(Date >= input$periode[1] & Date <= input$periode[2])
})
[...]
}
shinyApp(ui = ui, server = server)
rsconnect::deployApp('C:\Users\La Machine\Documents\DU DATAS\RCN\SHINY APP')
I didn’t find any solutions about this specific issue, but I saw that people that had the same problem 1) didn’t have all of the required files in the folder (which is not my case) and/or 2) didn’t have upload/install the needed packages (and I don’t know what packages I need if it’s my case…). Below is a dput of a filtered tibble to reproduce some data :
structure(list(Nom = c("Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie"), Date = structure(c(19361,
19365, 19366, 19368, 19369, 19373, 19375, 19376, 19379, 19380,
19382, 19393, 19394, 19396, 19397, 19400, 19401, 19403, 19404,
19407, 19408, 19410, 19414, 19415, 19528, 19529, 19530, 19531,
19534, 19535, 19537, 19538, 19541, 19542, 19544, 19545, 19548,
19550, 19551, 19557, 19569, 19570, 19572, 19573, 19576, 19577,
19579, 19580, 19586, 19587, 19590, 19591, 19594, 19597, 19598,
19600, 19601, 19604, 19605, 19607, 19608, 19611, 19612, 19614,
19615, 19621, 19625, 19626, 19628, 19629, 19632, 19633, 19635,
19636, 19640, 19642, 19643, 19646, 19647, 19649, 19650, 19660,
19661, 19663, 19664, 19667, 19668, 19670, 19674, 19675, 19677,
19678, 19684, 19685, 19688, 19689, 19691, 19695, 19696, 19698,
19702, 19703, 19705, 19706, 19782, 19783, 19786, 19787, 19789,
19790, 19800, 19801, 19803, 19807, 19808, 19810, 19811, 19814,
19815, 19817, 19818, 19822, 19824, 19829, 19830, 19835, 19836,
19838), class = "Date"), Wellness = c(19, 21, 21, 19, 19, 20,
20, 20, 20, 20, 20, 25, 25, 25, 25, 25, 25, 20, 20, 20, 19, 20,
19, 18, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
7, 5, 20, 15, 15, 15, 15, 15, 15, 15, 20, 15, 13, 15, 20, 15,
15, 13, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 15, 10, 12, 15, 17, 25, 25, 25, 20, 20,
20, 20, 17, 18, 19, 19, 21, 19, 19, 19, 19, 20, 20, 20, 20, 20,
20, 19, 21, 20, 20, 20, 20, 20, 20, 20, 20, 20, 17, 17, 17, 20,
17, 17, 17, 17, 17, 17, 17, 20, 17, 17), day = structure(c(4L,
1L, 2L, 4L, 5L, 2L, 4L, 5L, 1L, 2L, 4L, 1L, 2L, 4L, 5L, 1L, 2L,
4L, 5L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 5L, 6L, 2L,
3L, 5L, 6L, 2L, 4L, 5L, 4L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 5L,
6L, 2L, 3L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L,
5L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 3L, 5L, 6L, 2L, 3L, 5L, 6L,
2L, 3L, 5L, 6L, 2L, 3L, 5L, 2L, 3L, 5L, 6L, 5L, 6L, 2L, 3L, 5L,
2L, 3L, 5L, 2L, 3L, 5L, 6L, 5L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L,
2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 3L, 5L, 3L, 4L, 2L, 3L, 5L), levels = c("Sun",
"Mon", "Tue", "Wed", "Thu", "Fri", "Sat"), class = c("ordered",
"factor")), Moyenne_Wellness = c(19, 21, 21, 19, 19, 20, 19,
20, 20, 20, 20, 22, 22, 22, 22, 23, 23, 22, 22, 23, 23, 22, 22,
22, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 13,
10, 18, 15, 11, 15, 18, 15, 15, 15, 17, 15, 16, 15, 16, 14, 15,
16, 16, 14, 15, 16, 16, 14, 15, 14, 16, 14, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 13, 14, 15, 16, 18, 17, 18, 17, 18, 19,
20, 21, 21, 21, 20, 21, 19, 19, 19, 20, 19, 19, 20, 20, 20, 20,
19, 21, 20, 20, 20, 20, 20, 20, 20, 20, 20, 19, 19, 18, 20, 18,
18, 17, 18, 18, 17, 17, 20, 17, 17), SD_Wellness = c(NA, NA,
NA, 0, NA, 1, 1, 1, 1, 1, 1, 4, 3, 3, 4, 3, 3, 3, 4, 3, 3, 3,
3, 4, NA, NA, NA, NA, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 7, 4,
NA, 6, NA, 4, 0, 0, 0, 3, 0, 4, 0, 2, 1, 0, 4, 2, 1, 0, 4, 2,
1, 0, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 2, 0, 1, 11,
7, 6, 3, 8, 7, 5, 4, 4, 3, 1, 3, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1,
0, NA, NA, NA, NA, 1, 0, 0, 0, 1, 0, 2, 2, 2, 0, 2, 2, 0, 2,
2, 0, NA, 0, 0, 0), Z_Score_Wellness = c(NA, NA, NA, NaN, NA,
-0.71, 1.15, 0.71, -0.71, -0.58, 0.87, 0.71, 1.15, 1.15, 0.71,
0.58, 0.58, -0.58, -0.71, -1.15, -1.15, -0.58, -1.02, -0.99,
NA, NA, NA, NA, NA, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN,
-1.5, -0.71, 0.71, NA, 0.71, NA, -0.71, NaN, NaN, NaN, 1.15,
NaN, -0.83, NaN, 1.5, 0.58, NaN, -0.83, -0.5, 0.58, NaN, -0.28,
-0.5, 0.5, NaN, 0.58, -0.5, 0.5, NaN, NaN, NaN, NaN, NaN, NaN,
NaN, NaN, NaN, NaN, NaN, -1.15, -1.5, NaN, 1.5, 0.71, 1.13, 1.15,
1.06, 0.22, 0.15, 0, -0.91, -0.83, -0.73, -0.71, -0.1, -0.58,
0.22, 0, -0.78, 0.87, 1, 0.26, 0.58, 0.58, 0, NaN, NA, NA, NA,
NA, -0.71, NaN, NaN, NaN, -0.58, NaN, -1.15, -1.15, -0.71, NaN,
-0.58, -0.58, NaN, -0.5, -0.5, NaN, NA, NaN, NaN, NaN)), row.names = c(NA,
-128L), class = c("tbl_df", "tbl", "data.frame"))
<code>> dput(test_9)
structure(list(Nom = c("Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie"), Date = structure(c(19361,
19365, 19366, 19368, 19369, 19373, 19375, 19376, 19379, 19380,
19382, 19393, 19394, 19396, 19397, 19400, 19401, 19403, 19404,
19407, 19408, 19410, 19414, 19415, 19528, 19529, 19530, 19531,
19534, 19535, 19537, 19538, 19541, 19542, 19544, 19545, 19548,
19550, 19551, 19557, 19569, 19570, 19572, 19573, 19576, 19577,
19579, 19580, 19586, 19587, 19590, 19591, 19594, 19597, 19598,
19600, 19601, 19604, 19605, 19607, 19608, 19611, 19612, 19614,
19615, 19621, 19625, 19626, 19628, 19629, 19632, 19633, 19635,
19636, 19640, 19642, 19643, 19646, 19647, 19649, 19650, 19660,
19661, 19663, 19664, 19667, 19668, 19670, 19674, 19675, 19677,
19678, 19684, 19685, 19688, 19689, 19691, 19695, 19696, 19698,
19702, 19703, 19705, 19706, 19782, 19783, 19786, 19787, 19789,
19790, 19800, 19801, 19803, 19807, 19808, 19810, 19811, 19814,
19815, 19817, 19818, 19822, 19824, 19829, 19830, 19835, 19836,
19838), class = "Date"), Wellness = c(19, 21, 21, 19, 19, 20,
20, 20, 20, 20, 20, 25, 25, 25, 25, 25, 25, 20, 20, 20, 19, 20,
19, 18, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
7, 5, 20, 15, 15, 15, 15, 15, 15, 15, 20, 15, 13, 15, 20, 15,
15, 13, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 15, 10, 12, 15, 17, 25, 25, 25, 20, 20,
20, 20, 17, 18, 19, 19, 21, 19, 19, 19, 19, 20, 20, 20, 20, 20,
20, 19, 21, 20, 20, 20, 20, 20, 20, 20, 20, 20, 17, 17, 17, 20,
17, 17, 17, 17, 17, 17, 17, 20, 17, 17), day = structure(c(4L,
1L, 2L, 4L, 5L, 2L, 4L, 5L, 1L, 2L, 4L, 1L, 2L, 4L, 5L, 1L, 2L,
4L, 5L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 5L, 6L, 2L,
3L, 5L, 6L, 2L, 4L, 5L, 4L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 5L,
6L, 2L, 3L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L,
5L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 3L, 5L, 6L, 2L, 3L, 5L, 6L,
2L, 3L, 5L, 6L, 2L, 3L, 5L, 2L, 3L, 5L, 6L, 5L, 6L, 2L, 3L, 5L,
2L, 3L, 5L, 2L, 3L, 5L, 6L, 5L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L,
2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 3L, 5L, 3L, 4L, 2L, 3L, 5L), levels = c("Sun",
"Mon", "Tue", "Wed", "Thu", "Fri", "Sat"), class = c("ordered",
"factor")), Moyenne_Wellness = c(19, 21, 21, 19, 19, 20, 19,
20, 20, 20, 20, 22, 22, 22, 22, 23, 23, 22, 22, 23, 23, 22, 22,
22, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 13,
10, 18, 15, 11, 15, 18, 15, 15, 15, 17, 15, 16, 15, 16, 14, 15,
16, 16, 14, 15, 16, 16, 14, 15, 14, 16, 14, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 13, 14, 15, 16, 18, 17, 18, 17, 18, 19,
20, 21, 21, 21, 20, 21, 19, 19, 19, 20, 19, 19, 20, 20, 20, 20,
19, 21, 20, 20, 20, 20, 20, 20, 20, 20, 20, 19, 19, 18, 20, 18,
18, 17, 18, 18, 17, 17, 20, 17, 17), SD_Wellness = c(NA, NA,
NA, 0, NA, 1, 1, 1, 1, 1, 1, 4, 3, 3, 4, 3, 3, 3, 4, 3, 3, 3,
3, 4, NA, NA, NA, NA, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 7, 4,
NA, 6, NA, 4, 0, 0, 0, 3, 0, 4, 0, 2, 1, 0, 4, 2, 1, 0, 4, 2,
1, 0, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 2, 0, 1, 11,
7, 6, 3, 8, 7, 5, 4, 4, 3, 1, 3, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1,
0, NA, NA, NA, NA, 1, 0, 0, 0, 1, 0, 2, 2, 2, 0, 2, 2, 0, 2,
2, 0, NA, 0, 0, 0), Z_Score_Wellness = c(NA, NA, NA, NaN, NA,
-0.71, 1.15, 0.71, -0.71, -0.58, 0.87, 0.71, 1.15, 1.15, 0.71,
0.58, 0.58, -0.58, -0.71, -1.15, -1.15, -0.58, -1.02, -0.99,
NA, NA, NA, NA, NA, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN,
-1.5, -0.71, 0.71, NA, 0.71, NA, -0.71, NaN, NaN, NaN, 1.15,
NaN, -0.83, NaN, 1.5, 0.58, NaN, -0.83, -0.5, 0.58, NaN, -0.28,
-0.5, 0.5, NaN, 0.58, -0.5, 0.5, NaN, NaN, NaN, NaN, NaN, NaN,
NaN, NaN, NaN, NaN, NaN, -1.15, -1.5, NaN, 1.5, 0.71, 1.13, 1.15,
1.06, 0.22, 0.15, 0, -0.91, -0.83, -0.73, -0.71, -0.1, -0.58,
0.22, 0, -0.78, 0.87, 1, 0.26, 0.58, 0.58, 0, NaN, NA, NA, NA,
NA, -0.71, NaN, NaN, NaN, -0.58, NaN, -1.15, -1.15, -0.71, NaN,
-0.58, -0.58, NaN, -0.5, -0.5, NaN, NA, NaN, NaN, NaN)), row.names = c(NA,
-128L), class = c("tbl_df", "tbl", "data.frame"))
</code>
> dput(test_9)
structure(list(Nom = c("Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie", "Abadie",
"Abadie", "Abadie", "Abadie", "Abadie", "Abadie"), Date = structure(c(19361,
19365, 19366, 19368, 19369, 19373, 19375, 19376, 19379, 19380,
19382, 19393, 19394, 19396, 19397, 19400, 19401, 19403, 19404,
19407, 19408, 19410, 19414, 19415, 19528, 19529, 19530, 19531,
19534, 19535, 19537, 19538, 19541, 19542, 19544, 19545, 19548,
19550, 19551, 19557, 19569, 19570, 19572, 19573, 19576, 19577,
19579, 19580, 19586, 19587, 19590, 19591, 19594, 19597, 19598,
19600, 19601, 19604, 19605, 19607, 19608, 19611, 19612, 19614,
19615, 19621, 19625, 19626, 19628, 19629, 19632, 19633, 19635,
19636, 19640, 19642, 19643, 19646, 19647, 19649, 19650, 19660,
19661, 19663, 19664, 19667, 19668, 19670, 19674, 19675, 19677,
19678, 19684, 19685, 19688, 19689, 19691, 19695, 19696, 19698,
19702, 19703, 19705, 19706, 19782, 19783, 19786, 19787, 19789,
19790, 19800, 19801, 19803, 19807, 19808, 19810, 19811, 19814,
19815, 19817, 19818, 19822, 19824, 19829, 19830, 19835, 19836,
19838), class = "Date"), Wellness = c(19, 21, 21, 19, 19, 20,
20, 20, 20, 20, 20, 25, 25, 25, 25, 25, 25, 20, 20, 20, 19, 20,
19, 18, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
7, 5, 20, 15, 15, 15, 15, 15, 15, 15, 20, 15, 13, 15, 20, 15,
15, 13, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 15, 10, 12, 15, 17, 25, 25, 25, 20, 20,
20, 20, 17, 18, 19, 19, 21, 19, 19, 19, 19, 20, 20, 20, 20, 20,
20, 19, 21, 20, 20, 20, 20, 20, 20, 20, 20, 20, 17, 17, 17, 20,
17, 17, 17, 17, 17, 17, 17, 20, 17, 17), day = structure(c(4L,
1L, 2L, 4L, 5L, 2L, 4L, 5L, 1L, 2L, 4L, 1L, 2L, 4L, 5L, 1L, 2L,
4L, 5L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 5L, 6L, 2L,
3L, 5L, 6L, 2L, 4L, 5L, 4L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 5L,
6L, 2L, 3L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L,
5L, 2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 3L, 5L, 6L, 2L, 3L, 5L, 6L,
2L, 3L, 5L, 6L, 2L, 3L, 5L, 2L, 3L, 5L, 6L, 5L, 6L, 2L, 3L, 5L,
2L, 3L, 5L, 2L, 3L, 5L, 6L, 5L, 6L, 2L, 3L, 5L, 6L, 2L, 3L, 5L,
2L, 3L, 5L, 6L, 2L, 3L, 5L, 6L, 3L, 5L, 3L, 4L, 2L, 3L, 5L), levels = c("Sun",
"Mon", "Tue", "Wed", "Thu", "Fri", "Sat"), class = c("ordered",
"factor")), Moyenne_Wellness = c(19, 21, 21, 19, 19, 20, 19,
20, 20, 20, 20, 22, 22, 22, 22, 23, 23, 22, 22, 23, 23, 22, 22,
22, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 13,
10, 18, 15, 11, 15, 18, 15, 15, 15, 17, 15, 16, 15, 16, 14, 15,
16, 16, 14, 15, 16, 16, 14, 15, 14, 16, 14, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 13, 14, 15, 16, 18, 17, 18, 17, 18, 19,
20, 21, 21, 21, 20, 21, 19, 19, 19, 20, 19, 19, 20, 20, 20, 20,
19, 21, 20, 20, 20, 20, 20, 20, 20, 20, 20, 19, 19, 18, 20, 18,
18, 17, 18, 18, 17, 17, 20, 17, 17), SD_Wellness = c(NA, NA,
NA, 0, NA, 1, 1, 1, 1, 1, 1, 4, 3, 3, 4, 3, 3, 3, 4, 3, 3, 3,
3, 4, NA, NA, NA, NA, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 7, 4,
NA, 6, NA, 4, 0, 0, 0, 3, 0, 4, 0, 2, 1, 0, 4, 2, 1, 0, 4, 2,
1, 0, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 2, 0, 1, 11,
7, 6, 3, 8, 7, 5, 4, 4, 3, 1, 3, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1,
0, NA, NA, NA, NA, 1, 0, 0, 0, 1, 0, 2, 2, 2, 0, 2, 2, 0, 2,
2, 0, NA, 0, 0, 0), Z_Score_Wellness = c(NA, NA, NA, NaN, NA,
-0.71, 1.15, 0.71, -0.71, -0.58, 0.87, 0.71, 1.15, 1.15, 0.71,
0.58, 0.58, -0.58, -0.71, -1.15, -1.15, -0.58, -1.02, -0.99,
NA, NA, NA, NA, NA, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN,
-1.5, -0.71, 0.71, NA, 0.71, NA, -0.71, NaN, NaN, NaN, 1.15,
NaN, -0.83, NaN, 1.5, 0.58, NaN, -0.83, -0.5, 0.58, NaN, -0.28,
-0.5, 0.5, NaN, 0.58, -0.5, 0.5, NaN, NaN, NaN, NaN, NaN, NaN,
NaN, NaN, NaN, NaN, NaN, -1.15, -1.5, NaN, 1.5, 0.71, 1.13, 1.15,
1.06, 0.22, 0.15, 0, -0.91, -0.83, -0.73, -0.71, -0.1, -0.58,
0.22, 0, -0.78, 0.87, 1, 0.26, 0.58, 0.58, 0, NaN, NA, NA, NA,
NA, -0.71, NaN, NaN, NaN, -0.58, NaN, -1.15, -1.15, -0.71, NaN,
-0.58, -0.58, NaN, -0.5, -0.5, NaN, NA, NaN, NaN, NaN)), row.names = c(NA,
-128L), class = c("tbl_df", "tbl", "data.frame"))
I would be grateful for your help.