请问用R的shiny包构建交互式网页的相关问题

明月有时终须有

目的：采用shiny包构建交互式作图方式（主要是限制性立方样条图RCS）
library(rms)
df<-read.csv(input$file$datapath,header = T)
        dd<-datadist(df)
        options(datadist="dd")
        fit<-lrm(outcome~rcs(a,input$bin1)+b,data = df)
        kkk<-anova(fit)
        dd$limits$a[2]<-4
        fit<-update(fit)
        OR<-Predict(fit,a,fun=exp,ref.zero=T)

这是作server.R中编写的部分代码，但运行后提示如下error，不知道是啥原因，有大佬知道吗？

明月有时终须有

补充下面的报错的图片