小编Bir*_*git的帖子

我正在尝试使用闪亮的仪表板构建闪亮的应用程序。但它一直给我一个错误“参数缺失”。我已经检查过逗号，但对我来说似乎没问题。你能帮忙吗？

library(shiny)\nlibrary(shinydashboard)\nlibrary(plyr)\nlibrary(dplyr)\n\nagency=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\agency.txt",sep=\',\',header=TRUE)\ncalendar=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\calendar.txt",sep=\',\',header=TRUE)\ncalendar_dates=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\calendar_dates.txt",sep=\',\',header=TRUE)\nfare_attributes=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\fare_attributes.txt",sep=\',\',header=TRUE)\nfare_rules=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\fare_rules.txt",sep=\',\',header=TRUE)\nfeed_info=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\feed_info.txt",sep=\',\',header=TRUE)\nroutes=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\routes.txt",sep=\',\',header=TRUE)\nstop_times=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\stop_times.txt",sep=\',\',header=TRUE)\nshapes=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\shapes.txt",sep=\',\',header=TRUE)\nstops=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\stops.txt",sep=\',\',header=TRUE)\ntrips=read.table("C:\\\\Users\\\\Admin\\\\Documents\\\\ylikool\\\\statistiline visual\\\\trips.txt",sep=\',\',header=TRUE)\n\ncalendar_dates$kuup=as.Date(ISOdate(substr(calendar_dates$date,1,4),substr(calendar_dates$date,5,6),substr(calendar_dates$date,7,8)))\n\nnumber=function(algkoht,loppkoht,kuupaev){\n  algus=stops[stops$stop_name==algkoht,c(1,3)]\n  lopp=stops[stops$stop_name==loppkoht,c(1,3)]\n  alg_trip=stop_times[stop_times$stop_id==algus$stop_id,c(1,4,5)]\n  lopp_trip=stop_times[stop_times$stop_id==lopp$stop_id,c(1,4,5)]\n  alg_trip=plyr::rename(alg_trip,replace= c("stop_id"="alg_id", "stop_sequence"="alg_jrk"))\n  lopp_trip=plyr::rename(lopp_trip, replace=c("stop_id"="lopp_id", "stop_sequence"="lopp_jrk"))\n  #common\n  koos=merge(alg_trip, lopp_trip, by = intersect(names(alg_trip), names(lopp_trip)))\n  #start before finish\n  koos1=filter(koos,alg_jrk<lopp_jrk)\n  #\n  t1=trips[trips$trip_id %in% koos1$trip_id,c(1,2,3,5)]\n  #\n  p=as.POSIXlt(as.Date(kuupaev))$wday\n  paev1=calendar[calendar$service_id %in% t1$service_id,c(1,p+1)]\n  paev=paev1[paev1[,p+1]==1,]\n  #siit vaatame kas ta erand pole sellel p\xc3\xa4eval\n  erand=calendar_dates[calendar_dates$service_id %in% t1$service_id & calendar_dates$kuup==kuupaev &calendar_dates$exception_type==1,1]\n  #paneme kokku ja v\xc3\xb5tame aint need serviced, mis siis s\xc3\xb5idavad\n  kuupa=rbind(erand,paev)\n  tr=t1[t1$service_id %in% kuupa$service_id,]\n  #siit peaks saama bussinumbri\n  ka=routes[routes$route_id %in% tr$route_id,c(3,4)]\n …