Hello Shiny Server Logic

# 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)