在屏幕中选择dataframe
我在Shiny和R方面有点运气,但我无法获得selectInput函数来更改数据帧。我可能遗漏了一些明显的东西,但这是我的代码在屏幕中选择dataframe,r,shiny,R,Shiny,我在Shiny和R方面有点运气,但我无法获得selectInput函数来更改数据帧。我可能遗漏了一些明显的东西,但这是我的代码 require(shiny) A <- data.frame(x=c(1,2,3),y=c(3,2,1)) B <- data.frame(x=c(1,1,5),y=c(3,5,0)) ui <- fluidPage( selectInput("df", "Select dataframe", choices = c('A'='A','B'='B
require(shiny)
A <- data.frame(x=c(1,2,3),y=c(3,2,1))
B <- data.frame(x=c(1,1,5),y=c(3,5,0))
ui <- fluidPage(
selectInput("df", "Select dataframe", choices = c('A'='A','B'='B'), selected = 'A'),
plotOutput("Plot")
)
server <- function(input, output)
{
df <- reactive({
x <- as.data.frame(input$df)
})
output$Plot <- renderPlot({
df <- df()
plot(x=df$x, y=df$y)
})
}
shinyApp(ui = ui, server = server)
require(闪亮)
A您不能将用作.data.frame
和df的名称
尝试使用get
A <- data.frame(x=c(1,2,3),y=c(3,2,1))
B <- data.frame(x=c(1,1,5),y=c(3,5,0))
shinyServer(function(input, output) {
df <- reactive({
x <- get(input$df)
})
output$Plot <- renderPlot({
df <- df()
plot(x=df$x, y=df$y)
})
})
A就是这样!非常感谢!我很少在base R中使用get(),所以我完全忘记了。我试过粘贴(),但没有得到()