Debugging:
Если мы отладим ваш код, я вижу, что вы пытаетесь сделать это:
crime2 <- crime[1:50,]
with(crime2, tapply("Hour", list(type), summary))
Вне блеска, я бы предположил, что желаемый результат:
with(crime2, tapply(X = hour, INDEX = type, FUN = summary))
В блестящем вы хотите получить доступ через вход, то есть с символом. Поэтому вы можете переписать свой код на:
tapply(X = unlist(crime2["hour"]), INDEX = crime2$type, FUN = summary)
или динамически:
tapply(X = unlist(crime2[input$var]), INDEX = crime2$type, FUN = summary)
.
Полный воспроизводимый пример будет:
(input$var
варианты должны быть изменены на строчные буквы, чтобы включить индексацию, ...)
library(shiny)
library(Rcpp)
library(ggmap)
library(htmlwidgets)
library(leaflet)
crime2 <- crime[1:50,]
ui <- fluidPage(
titlePanel("Unusual Observations"),
sidebarLayout(
sidebarPanel(
helpText("Create maps with
information from the Crime Data"),
selectInput("var",
label = "Choose a variable to display",
choices = c("hour",
"number"),
selected = "hour"),
sliderInput("range",
label = "Range of interest:",
min = 0, max = 10, value = c(1, 2))
),
mainPanel(leafletOutput("map"))
),
verbatimTextOutput("stats")
)
server <- function(input, output) {
output$map <- renderLeaflet({
data <- switch(input$var,
"hour" = crime2$hour,
"number" = crime2$number)
getColor <- function(data){sapply(data, function(var){
if(input$var< input$range[1]) {
"green"
} else if(input$var <= input$range[2]) {
"orange"
} else {
"red"
} })
}
icons <- awesomeIcons(
icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = getColor(crime2)
)
leaflet(crime2) %>%
addTiles() %>%
addAwesomeMarkers(~lon, ~lat, icon=icons)
})
output$stats <- renderPrint({
tapply(X = unlist(crime2[input$var]), INDEX = crime2$type, FUN = summary)
})
}
shinyApp(ui = ui, server = server)