From af0bb8a53ac95af490cd0751b470c3fbc36afe8d Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Wed, 16 Apr 2025 16:23:35 +0200
Subject: [PATCH 1/2] test
---
data-raw/modification_sqlite.R | 1 +
1 file changed, 1 insertion(+)
create mode 100644 data-raw/modification_sqlite.R
diff --git a/data-raw/modification_sqlite.R b/data-raw/modification_sqlite.R
new file mode 100644
index 0000000..4bfbe85
--- /dev/null
+++ b/data-raw/modification_sqlite.R
@@ -0,0 +1 @@
+azaz
\ No newline at end of file
--
GitLab
From fd7f11956e68c62c56363da3892684064e8f9243 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Wed, 16 Apr 2025 16:25:06 +0200
Subject: [PATCH 2/2] modification sqlite
---
data-raw/modification_sqlite.R | 23 ++++++++++++++++++++++-
1 file changed, 22 insertions(+), 1 deletion(-)
diff --git a/data-raw/modification_sqlite.R b/data-raw/modification_sqlite.R
index 4bfbe85..21c6feb 100644
--- a/data-raw/modification_sqlite.R
+++ b/data-raw/modification_sqlite.R
@@ -1 +1,22 @@
-azaz
\ No newline at end of file
+# SCRIPT D'EXEMPLE POUR MODIFIER LE FICHIER SQLITE
+# CECI EST UN EXEMPLE DE METHODE ET NON PAS UN SCRIPT A APPLIQUER TEL QUEL
+
+library(RSQLite)
+
+con <- dbConnect(SQLite(),"database.sqlite") #se connecter au sqlite
+dbListTables(con) # lister les tables
+# [1] "credentials" "logs" "pwd_mngt"
+
+df <- dbReadTable(con, "logs") #lire une table pour visualiser le contenu
+
+# modifier les données (supprimer lignes ...)
+# mettre à jour une valeur : exemple, dans la table logs, quand status = wrong pwd, écrie "personne dans la colonne user
+dbExecute(con, "UPDATE logs SET user = 'personne' WHERE status = 'Wrong pwd'")
+# ajouter une ligne ; exemple, ajout à la table logs une ligne en remplissant les colonnes user, server_connected et app.
+dbExecute(con, "INSERT INTO logs (user, server_connected, app) VALUES ('admin4', '2028-11-08 10:41:12', 'filocubes')")
+# supprimer des ligne : exemple, dans la table logs, supprimer toutes les lignes avec user = admin2
+dbExecute(con, "DELETE FROM logs WHERE user = 'admin2'")
+# supprimer des ligne en fonction d'une date:
+dbExecute(con, "DELETE FROM logs WHERE server_connected < 2025")
+
+dbDisconnect() # déconnecter
\ No newline at end of file
--
GitLab