код работает отлично, пока я не выбрал переключатели (для фильтрации данных по разным значениям, будь то страна / офис / клиент / и т. Д.), Я получаю эту ошибку:
и вот упомянутые строки кода, которые содержат эту ошибку:
output$levelQueryUi <- renderUI({
radioButtons("analysisLevel", label = "Level of Analysis",
choices = list("Office Country" = 1, "Office" = 2, "Market" = 3, "Source Market" = 4, "Customer" =5),
selected = 1)
})
officedata <- reactive({
#office country Radio Button id selescted
if(input$analysisLevel == 1)
{
subset(
ct,
ct$`Office Country` %in% input$officecountry
)
}
# office Radio Button id selescted
else if(input$analysisLevel == 2)
{
subset(
ct,
ct$Office %in% input$office
)
}
else if(input$analysisLevel == 3)
{
subset(
ct,
ct$Market %in% input$market
)
}
else if(input$analysisLevel == 4)
{
subset(
ct,
ct$`Source Market` %in% input$sourcemarket
)
}
else if(input$analysisLevel == 5)
{
subset(
ct,
ct$Customer %in% input$customer
)
}
else{
return(ct)
}
})
#filtered data
filteredcancelled <- reactive({
subset(
officedata(),
officedata()$Status %in% "Cancelled"
)
})
#Average Project Size
officedataconcom <- reactive({
subset(
officedata(),
officedata()$Start >= "2018-01-01" &
officedata()$Status == "Completed" |
officedata()$Status == "Confirmed"
)
})
##############################DATA BY OFFICE OFFICE COUNTRY MARKET SOURCE MARKET AND CUSTOMER###########################
output$numofenqby <- renderValueBox({
valueBox(nrow(officedata()), "Number of Enquiries", color = "blue", icon = icon("star"))
})
я рассмотрел их, чтобы попытаться отследить, в чем заключается ошибка, но я не смог,и я также попытался просмотреть похожие вопросы в стеке переполнение перед публикацией этого вопроса, но без напрасно.
и очень важно то, что мой код все еще работает, даже с этим предупреждением.это всего лишь предупреждение, но я предпочитаю от него избавляться.
это вывод, который, когда я нажимаю разные опции, выдает мне вышеупомянутые ошибки: 
, поэтому моя консоль остается чистой, пока я не попытаюсь переключаться между этими разными кнопками (Страна офиса)/ Office / Market / Source Market / Customer), и когда я это получаю, я получаю эти предупреждения ..
код пользовательского интерфейса, связанный с переключателями
tabItem(tabName = "explorer",
fluidPage(
title = "Market Explorer",
column(width = 3,
box(
title = "Query Builder",
status = "primary",
width = 12,
solidHeader = TRUE,
background = "navy",
box(
width = 12,
status = "primary",
solidHeader = FALSE,
background = "navy",
uiOutput("levelQueryUi")
),# end of box
conditionalPanel(
condition = "input.analysisLevel == 1",
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
uiOutput("officecountryUi")
)# end of box
),# end of conditional panel
conditionalPanel(
condition = "input.analysisLevel == 2",
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
uiOutput("officeUi")
)# end of box
),# end of conditional panel
conditionalPanel(
condition = "input.analysisLevel == 3",
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
uiOutput("marketUi")
)# end of box
),# end of conditionalpanel
conditionalPanel(
condition = "input.analysisLevel == 4",
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
uiOutput("sourcemarketUi")
)#end of box
),# end of conditionalpanel
conditionalPanel(
condition = "input.analysisLevel == 5",
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
uiOutput("customerUi")
)#end of box
),# end of conditionalpanel
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
sliderInput("hviQuery", label = "Project Value Range ($000)", min = 0, max = 2000, value = c(0,1000)),
checkboxInput("maxValue", label = "Include all values exceeding $2m", value = FALSE)
), # end of box
box(
status = "primary",
solidHeader = FALSE,
width = 12,
background = "navy",
selectInput("horizon", label = "Time Horizon:",
choices = c("Monthly", "Quarterly", "Annual", "5 Year", "10 Year"),
selected = "Annual",
selectize = FALSE)
),# end of box
actionButton("query", label = "Go")
)# end of box
),# end of column
# conditionalPanel(
# condition = "input.query",
column(width = 9,
box(
title = "Market Data",
status = "primary",
width = 12,
solidHeader = TRUE,
collapsible = TRUE,
fluidRow(
valueBoxOutput("numofenqby", width = 4),
valueBoxOutput("averageprojectsize", width = 4),
valueBoxOutput("Materialisationrate", width = 4),
valueBoxOutput("cancelledworkvalueby", width = 4),
valueBoxOutput("averageGOPby", width = 4),
valueBoxOutput("confirmedasperby", width = 4),
valueBoxOutput("pastrequestsby", width = 4),
valueBoxOutput("ofcorporateby", width = 4),
valueBoxOutput("ofagencyby", width = 4))))))
Любая помощь, пожалуйста?Я был бы очень благодарен