# Step 1: Load required libraries
library(shiny)
# Step 2: Define UI components
ui <- fluidPage(
titlePanel("Hello Shiny!"),
sidebarLayout(
sidebarPanel(
textInput("name", "Enter your name", ""),
actionButton("greetButton", "Greet")
),
mainPanel(
textOutput("greeting")
)
)
)
# Step 3: Define server logic
server <- function(input, output) {
observeEvent(input$greetButton, {
name <- input$name
greeting <- paste("Hello, ", name, "!")
output$greeting <- renderText({
greeting
})
})
}
# Step 4: Create Shiny app
shinyApp(ui, server)