微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

dots_list(...) 中的错误:缺少参数“标签”,没有默认值

如何解决dots_list(...) 中的错误:缺少参数“标签”,没有默认值

我正在构建一个闪亮的应用程序,但收到此错误: dots_list(...) 中的错误:缺少参数“标签”,没有认值。我检查了我的用户界面,看看我是否遗漏了任何标签,但我没有找到任何标签并用谷歌搜索了很多次但没有找到任何解决方案?任何人都可以帮忙吗?这是我的用户界面和服务器---

  • 界面
    library(shinydashboard)
    library(shiny)
    library(htmltools)
    
    ui <- fluidPage(
        titlePanel("Crop Area Allocation App"),sidebarLayout(
        sidebarPanel(
                     
                     numericInput("landsize","Please select Land Size in Bigha: ",min=1,max=1000,value=10,step=1),numericInput("invest","Please Write Investment Amount in Rs.: ",min=25000,max=5000000,value = 100000,step=25000),textInput("crop1","Please Write Name of First Crop: "),numericInput("rev1","Expected Revenue per Bigha for Crop1 in Rs.: ",min=1000,max=500000,value=20000,step=2000),numericInput("cos1","Expected Cost per Bigha for Crop1 in Rs.: ",value=15000,step=1000),textInput("crop2","Please Write Name of Second Crop: "),numericInput("rev2","Expected Revenue per Bigha for Crop2 in Rs.: ",numericInput("cos2","Expected Cost per Bigha for Crop2 in Rs.: ",br(),actionButton("ClickMe","Click Me")
                     
    ),mainPanel(
        
            h4(strong("Land Size Mentioned by You in Bigha: ")),textoutput("lsize"),h4(strong("Investment Amount Mentioned by You in Rs.: ")),textoutput("investment"),h4(strong("You Selected following crops: ")),textoutput("cn1"),textInput("cn2"),h4(strong("Revenue of Crop1 Per Bigha in Rs.: ")),textoutput("revenue1"),h4(strong("Cost of Crop1 Per Bigha in Rs.: ")),textoutput("cost1"),h4(strong("Profit for Crop1 Per Bigha in Rs.: ")),textoutput("Prof1"),h4(strong("Revenue of Crop2 Per Bigha in Rs.: ")),textoutput("revenue2"),h4(strong("Cost of Crop2 Per Bigha in Rs.: ")),textoutput("cost2"),h4(strong("Profit for Crop2 Per Bigha in Rs.: ")),textoutput("Prof2"),br()
        
    )
))

  • 服务器
server <- function(input,output) {
    
    ls=eventReactive(input$ClickMe,{
        
        input$landsize
        
    })
    
    output$lsize=renderText({paste(ls()," Bigha")})
    
    inv=eventReactive(input$ClickMe,{
        
        input$invest
        
    })
    
    output$investment=renderText({paste("Rs. ",inv())})
    
    cr1=eventReactive(input$ClickMe,{
        
        input$crop1
        
    })
    
    output$cn1=renderText({cr1()})
    
    rv1=eventReactive(input$ClickMe,{
        
        input$rev1
        
    })
    
    output$revenue1=renderText({paste("Rs. ",rv1())})
    
    cs1=eventReactive(input$ClickMe,{
        
        input$cos1
        
    })
    
    output$cost1=renderText({paste("Rs. ",cs1())})
    
    output$Prof1=renderText({paste("Rs. ",rv1()-cs1()," per Bigha")})
    
    cr2=eventReactive(input$ClickMe,{
        
        input$crop2
        
    })
    
    output$cn2=renderText({cr2()})
    
    rv2=eventReactive(input$ClickMe,{
        
        input$rev2
        
    })
    
    output$revenue2=renderText({paste("Rs. ",rv2())})
    
    cs2=eventReactive(input$ClickMe,{
        
        input$cos2
        
    })
    
    output$cost2=renderText({paste("Rs. ",cs2())})
    
    output$Prof2=renderText({paste("Rs. ",rv2()-cs2()," per Bigha")})
    
}

运行应用程序

shinyApp(ui = ui,server = server)

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。