我试图在组合框上显示一个简单的表过滤值。
getDistance
它工作了几次,但现在显示错误library(shiny)
library(readxl)
library(plyr)
library(magrittr)
library(ggplot2)
REGISTROS <- read_xlsx("~/folder/my-file.xlsx", col_names=TRUE)
ui <- fluidPage(
titlePanel("Ociosidade de loja"),
sidebarLayout(
sidebarPanel(
selectInput("lojaInput",
label = "Loja",
choices = unique(REGISTROS$loja),
selected = 1)
),
mainPanel(
tableOutput("RESULTADO_LISTA")
)
)
)
server <- function(input, output){
output$RESULTADO_LISTA <- renderTable({
filtered <-
REGISTROS %>%
filter(
loja == input$lojaInput <=== ERROR LINE = object 'loja' not found
)
filtered
})
}
shinyApp(ui = ui, server = server)
。
selectInput正在使用相同的数据,并且已正确填充。另外,我可以在环境变量上看到此值...
这是我的XLSX文件的示例:
object 'loja' not found
有想法吗?
答案 0 :(得分:1)
您的代码没有错。它对我来说很完美。
编辑:
尝试安装并加载dplyr
软件包以处理管道