Shiny checkboxGroupInput with Choices Generated From ggplot

I'm trying to create a checkbox for which the choices are plots created through ggplot. In the result, the UI looks like the HTML code itself instead of evaluating the HTML code to show the chart. Any ideas how I can get the checkboxGroupInput to show ggplots?

Sample code below -

runApp(shinyApp(
  ui = fluidPage(
    headerPanel("Plot check box"),

    mainPanel(
      uiOutput("plotscheckboxes")
    )
  ),
  server = function(input, output, session) {


    output$plot1 = renderPlot({
      ggplot(mtcars)+geom_point(aes(x=mpg,y=mpg))
    })

    output$plot2 = renderPlot({
      ggplot(mtcars)+geom_point(aes(x=mpg,y=mpg))
    })

    output$plotscheckboxes = renderUI({

      plotlist = list(
        plotOutput('plot1'),
        plotOutput('plot2')
      )


      plotlist2 = do.call(tagList, plotlist)

      finaloptionlist = lapply(
        seq(length(plotlist2)),
        function(x) x
      )

      names(finaloptionlist) = sapply(plotlist2, function(x) paste(x, collapse = "\n"))
      checkboxGroupInput("checkGroup", label = h3("Checkbox group"), 
                         choices = finaloptionlist,
                         selected = 1)


    })

  }

))