使用R语言的shiny包写一个简单的个人博客

# 加载 shiny 包
library(shiny)

# 定义用户界面
ui <- fluidPage(
  titlePanel("我的个人博客"),
  
  navbarPage("博客",
    tabPanel("主页", 
             h2("欢迎来到我的个人博客！"),
             p("这是我的第一个博客文章。")
    ),
    tabPanel("关于我", 
             h2("关于我"),
             p("这里是关于我的一些信息。")
    ),
    tabPanel("联系我", 
             h2("联系我"),
             textInput("name", "你的名字:"),
             textInput("email", "你的邮箱:"),
             textAreaInput("message", "留言:", rows = 5),
             actionButton("submit", "提交"),
             verbatimTextOutput("confirmation")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  
  observeEvent(input$submit, {
    output$confirmation <- renderText({
      paste("谢谢你的留言,", input$name, "！我们会尽快联系你。")
    })
  })
}

# 运行应用
shinyApp(ui = ui, server = server)