Pfthb

I want to build an app that allows me to switch variables on a 2 discrete variables plot but i get an error when executing :

Error in parse(file, keep.source = FALSE, srcfile = src, encoding =
enc) : C:UsersHH PortableDesktopDossier RJeux de
donnéesThai/ui.R:13:0: unexpected end of input 11:

mainPanel(plotOutput('plot1')) 12: ) ^ Warning: Error in
sourceUTF8: Error sourcing
C:UsersHHPORT~1AppDataLocalTempRtmpekudB9fileab876054ad6 [No
stack trace available]

library(shiny)

# ----- UI ----------------------------
pageWithSidebar(

 headerPanel('Representer les variables'),
 sidebarPanel(
 selectInput('xcol', 'X Variable', names(the)),
 selectInput('ycol', 'Y Variable', names(the)
 ),
 mainPanel(plotOutput('plot1'))
)

#----- Server.r ------------------------------
library(shiny)
library(ggplot2)
# ---- Server ----------------------------------
# ---- ggplot with options ------------------------
server=shinyServer(function(input, output, session) 
 output$plot1 <- renderPlot(
 ggplot(the, aes(x=input$xcol, ..count..*100/sum(..count..))) + 
 geom_bar(aes(fill = input$ycol), position = "fill") +
 geom_text(aes( label = scales::percent(..prop..),y= ..prop.. ), 
 stat= "count", vjust = -.5)
 )
)

Try using get() around your input$... as input$xcol and input$ycol are strings and aes() does not accept strings.

Next time when you post questions, please add a small reproducible example for others to help you resolve.

Hope this helps.

# ---- ggplot with options ------------------------
server=shinyServer(function(input, output, session) 
 output$plot1 <- renderPlot(
 ggplot(the, aes(x=get(input$xcol), ..count..*100/sum(..count..))) + 
 geom_bar(aes(fill = get(input$ycol)), position = "fill") +
 geom_text(aes(label = scales::percent(..prop..),y= ..prop.. ), 
 stat= "count", vjust = -.5)
 )
)