警告在闪亮时绘制依赖于renderUI和uiOutput的绘图

Question

我正在尝试复制一个简单的闪亮应用程序。在sibebarPanel中有两个SelecInput。第一个选择数据集（例如mtcars和iris）。第二个选择在上一个SelecInput中选择的数据集的一列。在mainPanel中，我尝试绘制此变量的直方图。

用户界面

ui <-  fluidPage(
  titlePanel('Panel Interactivo de aNálisis Econométrico (PINE)'),
  theme = shinythemes::shinytheme("cosmo"),
  sidebarPanel(
    selectInput('dataset', 'Choose Dataset', c('mtcars', 'iris')),
    uiOutput('columns')
  ),
  mainPanel(
    plotOutput('plot')
  )
)

服务器

server <-

  function(input, output){

    mydata = reactive({get(input$dataset)})

    output$columns <- renderUI({

      selectInput('columns2', 'Columns', names(mydata()))
    })
    output$plot <- renderPlot(
      hist(mydata()[,input$columns2])
    )
  }

我得到了图，但在控制台中得到了警告“ hist.default中的错误：'x'必须是数字'，后跟

  166: stop
  165: hist.default
  163: renderPlot
  161: func
  121: drawPlot
  107: <reactive:plotObj>
   91: drawReactive
   78: origRenderFunc
   77: output$plot
    1: runApp

无论我选择的变量还是数据集。我不知道当您使用renderUI，uiOutput和plots时是否是正常警告，还是我需要对input$columns2做一些事情来解决警告。

我是一个光鲜的乞gg。我已经在这里阅读了StackOverflow中的教程和线程，但是我很固执。任何帮助将不胜感激。

谢谢。