我正在尝试使用ggplot进行绘图，但是我的闪亮应用未显示该绘图。
代码如下：
getUI <-function(completesurvey){
return(
fluidPage(
# Application title
titlePanel("Hacker Rank Developer Survey"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
p("Hacker Rank is a survey conducted among 25,000 participants all around the globe"),
p("There were students,professionals and Hiring managers who participated in the survey"),
p("Select of various categories based on Gender,total survey respondents and "),
selectInput("SurveyRespondents",
"Choose the categories",
choices = c("Total Survey respondents","Male vs Female","Students Vs Developers"),
selected = "Total Survey respondents")
),
# Show a plot of the generated distribution
mainPanel(
plotOutput('ResPlot')
)
),
br(),
sidebarLayout(
sidebarPanel(
p("Hacker Rank is a survey conducted among 25,000 participants all around the globe"),
p("There were students,professionals and Hiring managers who participated in the survey"),
p("Select of various categories based on Gender,total survey respondents and "),
selectInput("Survey Respondents",
"Choose the categories",
choices = c("Total Survey respondents","Male vs Female","Students Vs Developers"),
selected = "Total Survey respondents")
),
# Show a plot of the generated distribution
mainPanel(plotOutput("RespPlot"))
),
br(),
sidebarLayout(
sidebarPanel(
p("Hacker Rank is a survey conducted among 25,000 participants all around the globe"),
p("There were students,professionals and Hiring managers who participated in the survey"),
p("Select of various categories based on Gender,total survey respondents and "),
selectInput("Survey Respondents",
"Choose the categories",
choices = c("Total Survey respondents","Male vs Female","Students Vs Developers"),
selected = "Total Survey respondents")
),
# Show a plot of the generated distribution
mainPanel(plotOutput("RespPlot"))
)
)
)}
不显示错误消息。