R shiny：在闪亮的应用

Question

我正在尝试在闪亮的网络应用中打印数据集值。但我只能使用下面的代码打印数据集名称。如何打印数据集值？

library(MASS)
library(shinythemes)
library(shiny)
library(ggplot2)

mass.tmp <- data(package = "MASS")[3]
mass.datasets <- as.vector(mass.tmp$results[,3])

ui <- fluidPage(

  theme = shinytheme("superhero"),
  titlePanel("Linear Regression Modelling"),
  sidebarLayout(
    sidebarPanel(
      selectInput("dsname", "Dataset:",choices = c(mass.datasets))
      ,
       uiOutput("x_axis")
      # ,
      # textOutput("txt"),
      #  tableOutput("tab")

    ),
    mainPanel(
      tags$br(),
      tags$br()
  )
)
)

server <- function(input, output) {

  num_ds <- function(ds)
  {
    nums <- sapply(ds,is.numeric)
    num_ds <- ds[,nums]
    return(num_ds)
  }

  ds_ext <- reactive({  num_ds(input$dsname) })

  output$x_axis <- renderUI({
       col_opts <- get(ds_ext())
       selectInput("x_axis2", "Independent Variable:", choices = names(col_opts))
    })

}

shinyApp(ui = ui, server = server)

实际上我正在尝试解决上述代码中的错误＆＃34;维度数量不正确＆＃34;。我写的函数只返回数据框，只有数字变量才能分析。但是我猜错了，我猜我在哪里创建对象x_axis。请帮助。