Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
count <- 0
isDark <- FALSE
updateUI <- function() {
cat(paste0('Counter: ', count, '\n'))
cat(paste0('Theme: ', ifelse(isDark, 'Dark', 'Light'), '\n'))
}
increment <- function() { count <<- count + 1; updateUI() }
decrement <- function() { count <<- count - 1; updateUI() }
reset <- function() { count <<- 0; updateUI() }
toggleTheme <- function() { isDark <<- !isDark; updateUI() }
# Simulate some actions
updateUI()
increment()
increment()
toggleTheme()
decrement()
reset()Coding works best on desktop or with an external keyboard.