Shiny observe in observer problem and example correct work

app.R

library(shiny)

ui <- fluidPage(
  radioButtons(inputId = "userLogged", label="User Logged", choices = c("Yes", "No")),
  actionButton("btnSave", "Save")
)

options(shiny.reactlog=TRUE)

server <-function(input, output, session) {
  
  observeEvent(input$btnSave,{
    req(input$userLogged == "Yes");
    print(input$userLogged);
    print("click when logged!");
  });
  
}

shinyApp(ui = ui, server = server)