library$($shiny$)$

library$($gtrendsR$)$

library$($ggplot$2)$

ui fluidPage$($

titlePanel$("$Google Trends Data Visualization"$),$

sidebarLayout$($

sidebarPanel$($

dateRangeInput$("$dateRange$",$ "Select Date Range",

start $="2022-01-01",$

end $=$ format$($Sys$.$Date$(),"\%$Y$-\%$m$-\%$d$")),$

actionButton$("$submit$",$ "Generate Plot"$)$

$),$

mainPanel$($

plotOutput$("$trendPlot$")$

$)$

$)$

$)$

server function$($input$,$ output$)\{$

observeEvent$($input$submit, $\{$

req$($input$dateRange$)$

start$\_$date format$($input$dateRange$[1],"\%$Y$-\%$m$-\%$d$")$

end$\_$date format$($input$dateRange$[2],"\%$Y$-\%$m$-\%$d$")$

Data gtrends$($keyword $=$ c$(\text{'}$APPLE$\text{'},$ 'META'$),$ geo $="$US$",$ time $=$ paste$($start$\_$date, end$\_$date$))$

ggplot$($Data$,$ aes$($x $=$ date, y $=$ hits, color $=$ keyword$))+$

geom$\_$point$()+$

labs$($title $=$ "Google Trends Data",

x $=$ "Date",

y $=$ "Search Volume"$)$

$\})$

$\}$

shinyApp$($ui $=$ ui$,$ server $=$ server$)$

Google Trends Data Visualization

Select Date Range

Can you please help me with this code?