Doc : Improve vignettes/README

MurielleDelmotte · MurielleDelmotte · commit 87712038a1d8 · 2025-04-07T09:45:07.000+02:00
diff --git a/README.Rmd b/README.Rmd
@@ -52,7 +52,7 @@ run_app()
 
 ## Cartography tab
 
-### Visuasilation of home page
+### Visualization of home page
 
 ![](man/figures/accueil.png)
 
diff --git a/README.md b/README.md
@@ -53,7 +53,7 @@ run_app()
 
 ## Cartography tab
 
-### Visuasilation of home page
+### Visualization of home page
 
 ![](man/figures/accueil.png)
 
diff --git a/tests/testthat/test-get_info_chene_truffe.R b/tests/testthat/test-get_info_chene_truffe.R
@@ -40,4 +40,23 @@ test_that("get_info_chene_truffe works", {
     )
 
   expect_equal(get_info_chene_truffe(dbtruffe, "3"), expected_output)
+
+
+
+  dbtruffe <- data.frame(
+    idoak = c("1"),
+    weight = c(100),
+    date_found = c(
+      "2024-01-01"
+    ),
+    comment = c(
+      "Belle truffe"
+    )
+  )
+
+  expect_equal(get_info_chene_truffe(dbtruffe, "1"), list(
+    weight_tot = 100, derniere_truffe = structure(19723, class = "Date"),
+    last_comment = "2024-01-01 : Belle truffe", other_comments = "-"
+  ))
+
 })
diff --git a/vignettes/truffles.Rmd b/vignettes/truffles.Rmd
@@ -14,7 +14,8 @@ knitr::opts_chunk$set(
 )
 ```
 
-```{r setup}
+```{r setup, message = FALSE, warning=FALSE}
+
 library(truffles)
 library(DBI)
 library(lubridate)

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,8 @@ knitr::opts_chunk$set(`
`14`	`14`	`)`
`15`	`15`	```
`16`	`16`
`17`		-```{r setup}
	`17`	+```{r setup, message = FALSE, warning=FALSE}
	`18`	`+`
`18`	`19`	`library(truffles)`
`19`	`20`	`library(DBI)`
`20`	`21`	`library(lubridate)`