ShinyDashboard：错误：参数“值”丢失，没有默认值

Question

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

\n\n

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  return(ka)\n}\n\n\n\nsidebar = dashboardSidebar(\n  sidebarMenu(\n    menuItem("Esileht", tabName = "Esileht"),\n    menuItem("Maaliinid", tabName = "Maaliinid")\n  )\n)\n\nbody = dashboardBody(\n  tabItems(\n    # First tab content\n    tabItem(tabName = "Esileht",\n            fluidRow(\n              h1(\'Rakendus bussiliinide visualiseerimiseks\'),\n              h3(\'Tere tulemast!\'),\n              p(\'Vastavalt oma soovile vali sobiv tab ja sealt saad vajaliku info\'))\n),\n\n  # Second tab content\n  tabItem(tabName = "Maaliinid",\n          h2(\'Hinnete osakaalud erinevates valdkondades\'),\n          box(\n            dateInput("Kuup",label="Vali kuup\xc3\xa4ev"),\n            textInput("alg",label=\'Vali algpeatus\'),\n            textInput("siht",label=\'Vali sihtkoht\'),\n            numericInput(\'kell\',label=\'Vali kellaaeg\')\n            ),\n          box(\n            tableOutput(\'liinid\'))\n)\n)\n)\n\nui = dashboardPage(\n  dashboardHeader(title = "App"),\n  sidebar,\n  body\n)\n\n\nserver <- function(input, output) {\n\n  output$liinid <- renderTable({\n  number(input$alg,input$siht,input$Kuup)\n  })\n}\n\nshinyApp(ui=ui,server= server\n

\n\n

错误：

\n\n

\n

Warning: Error in force: argument "value" is missing, with no default Stack trace (innermost first):\n    65: force\n    64: restoreInput\n    63: numericInput\n    62: tag\n    61: tags$div\n    60: div\n    59: tag\n    58: tags$div\n    57: div\n    56: tag\n    55: tags$div\n    54: div\n    53: box\n    52: tag\n    51: tags$div\n    50: div\n    49: tabItem\n    48: lapply\n    47: tabItems\n    46: tag\n    45: tags$section\n    44: tag\n    43: tags$div\n    42: div\n    41: dashboardBody\n     1: runApp Error : argument "value" is missing, with no default\n

\n

\n

Answer 1

您必须为 numericInput 指定一个值。只需写一些类似的内容：

numericInput('kell',label='Vali kellaaeg', value=4)