Я пробовал большинство вещей, я не знаю, почему это не работает, я пытался преобразовать столбец даты в объект даты, но это все еще не работает, может ли кто-нибудь помочь мне решить эту проблему, так как я как бы застрял на этом вопросе в течение довольно долгого времени. В основном я работаю на сервере MS sql (sp), поэтому в этом случае довольно легко передать input$date[1] и input$date[2] в параметрах хранимой процедуры, но я как бы зациклился на этом при использовании данные из csv или электронной таблицы. Я пробовал несколько методов, но ни один из них, похоже, не работает, искал обходной путь, но не смог его найти, пожалуйста, помогите мне решить эту проблему, если это возможно. и я новичок в этом, поэтому, пожалуйста, дайте мне знать, если есть что-то, что я здесь упускаю.
library(shiny)
library(plotly)
library(dplyr)
re<- data.frame(
stringsAsFactors = FALSE,
id = c(1L,2L,3L,4L,5L,
6L,7L,8L,9L,10L,11L,12L,13L,14L,15L,16L,
17L,18L,19L,20L,21L,22L,23L,24L,25L,26L,27L,
28L,29L,30L),
season = c(2017L,2017L,2017L,
2017L,2017L,2017L,2017L,2017L,2017L,2017L,
2017L,2017L,2017L,2017L,2017L,2017L,2017L,2017L,
2017L,2017L,2017L,2017L,2017L,2017L,2017L,
2017L,2017L,2017L,2017L,2017L),
city = c("Hyderabad","Pune",
"Rajkot","Indore","Bangalore","Hyderabad",
"Mumbai","Indore","Pune","Mumbai","Kolkata",
"Bangalore","Rajkot","Kolkata","Delhi","Mumbai",
"Bangalore","Delhi","Hyderabad","Rajkot","Hyderabad",
"Indore","Kolkata","Mumbai","Pune","Rajkot",
"Kolkata","Mumbai","Pune","Bangalore"),
date = c("4/5/2017",
"4/6/2017","4/7/2017","4/8/2017","4/8/2017","4/9/2017",
"4/9/2017","4/10/2017","4/11/2017","4/12/2017",
"4/13/2017","4/14/2017","4/14/2017","4/15/2017",
"4/15/2017","4/16/2017","4/16/2017","4/17/2017",
"4/17/2017","4/18/2017","4/19/2017","4/20/2017",
"4/21/2017","4/22/2017","4/22/2017","4/23/2017",
"4/23/2017","4/24/2017","4/26/2017","4/27/2017"),
team1 = c("Sunrisers Hyderabad",
"Mumbai Indians","Gujarat Lions",
"Rising Pune Supergiant","Royal Challengers Bangalore",
"Gujarat Lions","Kolkata Knight Riders",
"Royal Challengers Bangalore","Delhi Daredevils","Sunrisers Hyderabad",
"Kings XI Punjab","Royal Challengers Bangalore",
"Rising Pune Supergiant","Kolkata Knight Riders",
"Delhi Daredevils","Gujarat Lions",
"Rising Pune Supergiant","Delhi Daredevils","Sunrisers Hyderabad",
"Royal Challengers Bangalore",
"Sunrisers Hyderabad","Kings XI Punjab","Kolkata Knight Riders",
"Mumbai Indians","Sunrisers Hyderabad",
"Kings XI Punjab","Kolkata Knight Riders","Rising Pune Supergiant",
"Rising Pune Supergiant",
"Royal Challengers Bangalore"),
team2 = c("Royal Challengers Bangalore","Rising Pune Supergiant",
"Kolkata Knight Riders","Kings XI Punjab","Delhi Daredevils",
"Sunrisers Hyderabad","Mumbai Indians",
"Kings XI Punjab","Rising Pune Supergiant","Mumbai Indians",
"Kolkata Knight Riders","Mumbai Indians",
"Gujarat Lions","Sunrisers Hyderabad","Kings XI Punjab",
"Mumbai Indians","Royal Challengers Bangalore",
"Kolkata Knight Riders","Kings XI Punjab","Gujarat Lions",
"Delhi Daredevils","Mumbai Indians",
"Gujarat Lions","Delhi Daredevils","Rising Pune Supergiant",
"Gujarat Lions","Royal Challengers Bangalore",
"Mumbai Indians","Kolkata Knight Riders","Gujarat Lions"),
toss_winner = c("Royal Challengers Bangalore","Rising Pune Supergiant",
"Kolkata Knight Riders","Kings XI Punjab",
"Royal Challengers Bangalore","Sunrisers Hyderabad","Mumbai Indians",
"Royal Challengers Bangalore","Rising Pune Supergiant",
"Mumbai Indians","Kolkata Knight Riders",
"Mumbai Indians","Gujarat Lions","Sunrisers Hyderabad",
"Delhi Daredevils","Mumbai Indians",
"Royal Challengers Bangalore","Delhi Daredevils","Kings XI Punjab",
"Gujarat Lions","Sunrisers Hyderabad",
"Mumbai Indians","Gujarat Lions","Delhi Daredevils",
"Rising Pune Supergiant","Gujarat Lions",
"Royal Challengers Bangalore","Mumbai Indians",
"Kolkata Knight Riders","Gujarat Lions"),
toss_decision = c("field","field",
"field","field","bat","field","field","bat",
"field","field","field","field","field","field",
"bat","field","field","bat","field","field","bat",
"field","field","field","field","field",
"field","field","field","field"),
result = c("normal","normal",
"normal","normal","normal","normal","normal",
"normal","normal","normal","normal","normal",
"normal","normal","normal","normal","normal",
"normal","normal","normal","normal","normal","normal",
"normal","normal","normal","normal","normal",
"normal","normal"),
dl_applied = c(0L,0L,0L,0L,0L,
0L,0L,0L,0L,0L,0L,0L,0L,0L,0L,0L,0L,0L,
0L,0L,0L,0L,0L,0L,0L,0L,0L,0L,0L,0L),
winner = c("Sunrisers Hyderabad",
"Rising Pune Supergiant","Kolkata Knight Riders",
"Kings XI Punjab","Royal Challengers Bangalore",
"Sunrisers Hyderabad","Mumbai Indians",
"Kings XI Punjab","Delhi Daredevils","Mumbai Indians",
"Kolkata Knight Riders","Mumbai Indians","Gujarat Lions",
"Kolkata Knight Riders","Delhi Daredevils",
"Mumbai Indians","Rising Pune Supergiant",
"Kolkata Knight Riders","Sunrisers Hyderabad",
"Royal Challengers Bangalore","Sunrisers Hyderabad","Mumbai Indians",
"Gujarat Lions","Mumbai Indians",
"Rising Pune Supergiant","Kings XI Punjab",
"Kolkata Knight Riders","Rising Pune Supergiant","Kolkata Knight Riders",
"Gujarat Lions"),
win_by_runs = c(35L,0L,0L,0L,15L,
0L,0L,0L,97L,0L,0L,0L,0L,17L,51L,0L,27L,
0L,5L,21L,15L,0L,0L,14L,0L,26L,82L,3L,0L,
0L),
win_by_wickets = c(0L,7L,10L,6L,0L,
9L,4L,8L,0L,4L,8L,4L,7L,0L,0L,6L,0L,4L,
0L,0L,0L,8L,4L,0L,6L,0L,0L,0L,7L,7L)
)
ui <- fluidPage(
titlePanel("Plotly - dateRangeInput"),
sidebarLayout(
sidebarPanel(
dateRangeInput(inputId = "date",label = "Date",
start = Sys.Date() - 28, end = Sys.Date() + 2,
format = "mm/dd/yyyy",
separator = "TO")),
mainPanel(
fluidPage(plotlyOutput("p1"))
)
)
)
server<-function(input,output,session){
observe({
updateDateRangeInput(
session,
inputId = "date"
)
})
output$p1<-renderPlotly({
a <- as.Date(re$date)
p<-plot_ly(x=(re$city),y=re$win_by_wickets,type="bar") %>%
filter(a, a >= as.Date(input$date[1]) & a<= as.Date(input$date[2]))
p
})
}
shinyApp(ui,server)
