用RStudio写一个猜数字游戏

在RStudio中编写一个简单的猜数字游戏，通常会包括以下几个步骤：

1. **初始化**：首先创建一个新的RMarkdown文件，或者在R Studio环境中直接编写代码。导入所需的包，如`shiny`用于构建交互式应用程序。

library(shiny)

2. **UI部分**：设计用户界面，显示提示信息并接收用户的输入。例如，显示一个数字范围，并设置一个表单让用户输入他们的猜测。

ui <- fluidPage(
  titlePanel("猜数字游戏"),
  sidebarLayout(
    sidebarPanel(
      numericInput("guess", "请输入你的猜测:", min = 1, max = 100),
      actionButton("submit", "提交")
    ),
    mainPanel(
      verbatimTextOutput("output_message")
    )
  )
)

3. **服务器部分**：处理用户输入，随机选择一个数字，检查猜测是否正确，然后更新页面显示结果。

server <- function(input, output) {
  # 随机生成一个1到100之间的数
  secret_number <- sample(1:100, 1)

  observeEvent(input$submit, {
    guessed_num <- input$guess
    if (guessed_num == secret_number) {
      output$output_message <- renderText("恭喜！你猜对了，秘密数字是：", guessed_num)
    } else if (guessed_num < secret_number) {
      output$output_message <- renderText(paste0("太小了，试试 ", guessed_num + 1))
    } else {
      output$output_message <- renderText(paste0("太大了，试试 ", guessed_num - 1))
    }
  })
}

4. **运行应用**：将`ui`和`server`函数合并成一个Shiny应用，并运行它。

shinyApp(ui, server)