小编Osc*_*Jnn的帖子

我创建了一个函数来转换数据。它返回给我两个列表dataframe：

df1$v1 df1$v2 // df2$v1 df2$v2

dflist <- c(df1, df2)

我需要在闪亮的应用程序中分别将每个内部的变量子集dataframe作为反应值。

我试图用

dflist[[1]]["v1"]

但它不是作为dataframe列表第一个变量的第一个变量的子集，而是作为 data.frame

class(dflist[[1]]["v1"])

返回 me dataframe，而我想要变量的类。

有任何想法吗？

是否可以将 SelectInput 的值显示在输入上方而不是默认显示在输入下方？

这是一个可重现的示例：

shinyApp(
  ui = fluidPage(
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA"))
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
  }
)