publish lesson 6

SD/20240321_0_R实践课程/index.qmd

@@ -80,7 +80,6 @@ knitr::opts_chunk$set(echo = TRUE)
 ```{r}
 #| echo: false
 #| output: asis
-#| include: false
 coursememberdf <- readxl::read_xlsx("../../data/course_member.xlsx")
 nmem <- nrow(coursememberdf)
 set.seed <- 23
@@ -88,6 +87,7 @@ set.seed <- 23
 uiddf <- coursememberdf |>
   dplyr::mutate(uid = paste0("ruser", sprintf("%02d", sample(1:nmem, nmem)))) |>
   dplyr::select(uid, 姓名) |>
+  dplyr::mutate(姓名 = "**") |>
   dplyr::arrange(uid) |>
   dplyr::mutate(group = (dplyr::row_number() - 1) %/% 10 + 1) |>
   tidyr::nest(gdf = -group) |>
@@ -106,7 +106,6 @@ uiddf$tab[[2]]
 ```{r}
 #| echo: false
 #| output: asis
-#| include: false
 
 uiddf$tab[[3]]
 uiddf$tab[[4]]
@@ -144,13 +143,9 @@ author: 姓名
 
 ```
 
-
-
-
 ````
 
 
-
 ## 欢迎讨论！{.center}
 
 

_extensions/inst/css/revealjs.css

@@ -325,7 +325,7 @@ figure > figcaption {
 
 .reveal pre code:hover{
     font-size: xx-large;
-  line-height: 250%;
+  line-height: 150%;
 }
 
 section#title-slide p.subtitle {

_quarto.yml

@@ -23,7 +23,7 @@ website:
   page-navigation: true
   page-footer: "Copyright 2024, [Ming Su](https://drwater.rcees.ac.cn)"
   navbar:
-    background: "grey"
+    background: "light"
     search: true
     right:
       - icon: house