Я пытаюсь создать панель инструментов R-блестящий, чтобы отображать количество идентификаторов, вошедших в систему, с интервалом в 15 минут за последние 2 часа.
Пользователь может выбирать любые 1 или более 1 временных интервалов для просмотра количества входов в систему.
Это нормально работает, когда пользователь выбирает только один интервал времени. Но для нескольких интервалов времени - отображается неверный ответ.
Ошибка в получении это:
Предупреждение в ==.default (df2 $ time_bucket, введите $ input2):
длина объекта не кратна длине объекта
Ниже приведен код:
output$checkbox2 <- renderUI({checkboxGroupInput("input2","Select Time Bucket:", choices = unique(df2$time_bucket), selected = tail(unique(df2$time_bucket),n=1),inline = TRUE)})
datasub2 <- reactive({df2[df2$time_bucket == input$input2,]})
output$test2 <- renderPlot( {barplot((datasub2()%>%group_by(site)%>%summarise(logins=n()))$logins,names.arg =(datasub2()%>%group_by(logins)%>%summarise(logins=n()))$logins, main = 'Number of logins - by site', xlab = "site", ylab = "# of logins", border = "brown", col = "blue")})
Я попытался использовать% in% вместо == в строке 2 и поместить input $ input2 в список, но оба раза выдавали ошибки.
df $ time_bucket не обрабатывает несколько значений для ввода $ input2, но я не уверен, как это исправить.