利用R的shiny包构建交互式作图时，报错Error in Design: dataset dd not found for options(datadist=)

目的：我想利用shiny包构建限制性立方样条的可视化交互式图，下面是server.R中代码

shinyServer(function(input, output) {
    output$Plot_RCS <- renderPlot({
        req(input$file)
        bin1 <- seq(1,5,1)
        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)
        ggplot(OR)
    })

})

然而运行时提示如下错误,，不知是何原因？（把里面代码单独放在Rscript中跑是没问题的）

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。