如何解决完成“R Projects for Dummies”并遇到错误消息
正如标题所说。我输入的代码与书中的代码完全相同,但我遇到了以下错误消息:“闪亮::tabsetPanel(...,id=id,selected = selected) 中的错误:缺少参数,没有默认值”
我不知道缺少什么。
代码如下:
library(shinydashboard)
ui<- dashboardPage(
dashboardHeader(title= "Uniform distribution"),dashboardSidebar(),dashboardBody(
fluidRow(
column(width =6,Box(title = "Select a Number",solidHeader = TRUE,background = "yellow",status = "warning",width = NULL,height = 312,sliderInput(inputId = "number",label = "",value = 500,min = 25,max = 1000)),Box(
background= "light-blue",status ="primary",title = "Histogram",plotOutput("hist",height = 250))),column(width = 6,tabBox(
title ="Central Tendency",id ="tabs1",height = 120,width =NULL,tabPanel("Mean",h2(textoutput("meantext")),width=NULL),tabPanel("Median",h2(textoutput("mediantext")),),tabBox(
title ="Variability",id ="tabs2",tabPanel("Variance",h2(textoutput("vartext")),tabPanel("Standard Deviation",h2(textoutput("sdtext")),width=NULL))
)
)
))
server <- function(input,output){
histdata <- reactive({runif(input$number,min=0,max = 1)})
output$hist <- renderPlot({
hist(histdata(),xlab = "Value",main= paste(input$number,"random values between 0 and 1"))
})
output$meantext <- renderText({
paste("Mean =",round(mean(histdata()),3))})
output$mediantext <- renderText({
paste("Median =",round(median(histdata()),3))})
output$vartext <- renderText({
paste("Variance =",round(var(histdata()),3))})
output$sdtext <- renderText({
paste("Standard Deviation =",round(sd(histdata()),3))})
}
shinyApp(ui,server)
解决方法
您在 tabsetPanels 之外有 tabPanels。您的 tabPanels 需要包裹在 tabsetPanel()
或 navBarPage()
见下文:
ui<- dashboardPage(
dashboardHeader(title= "Uniform Distribution"),dashboardSidebar(),dashboardBody(
fluidRow(
column(width =6,box(title = "Select a Number",solidHeader = TRUE,background = "yellow",status = "warning",width = NULL,height = 312,sliderInput(inputId = "number",label = "",value = 500,min = 25,max = 1000)),box(
background= "light-blue",status ="primary",title = "Histogram",plotOutput("hist",height = 250))),column(width = 6,tabBox(
title ="Central Tendency",id ="tabs1",height = 120,width =NULL,tabsetPanel(
tabPanel("Mean",h2(textOutput("meantext")),width=NULL),tabPanel("Median",h2(textOutput("mediantext")),width=NULL)
)
),tabBox(
title ="Variability",id ="tabs2",tabsetPanel(
tabPanel("Variance",h2(textOutput("vartext")),tabPanel("Standard Deviation",h2(textOutput("sdtext")),width=NULL)
)
)
)
)
))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。