install.packages("flexdashboard")
# 1. Stock Selection Input
selectInput("stock_symbol",
label = "Stock List (Pick One to Analyze)",
choices = stock_list,
selected = "META")
# 2. Analyze Button
actionButton("analyze", "Analyze", icon = icon("chart-line"))
hr() # Horizontal Line
# 3. Short Moving Average Slider
sliderInput("short_mavg",
label = "Short Moving Average",
min = 5, max = 40, value = 20, step = 1)
# 4. Long Moving Average Slider
sliderInput("long_mavg",
label = "Long Moving Average",
min = 50, max = 120, value = 90, step = 1)