R中的selectInput闪亮

Question

我想从 Mysql 查询中读取的列表中进行选择。我在代码中遇到错误。我一定是做错了什么，但不确定是什么。

我想从从 sql 查询中读取的 skus 列表中进行选择。我在 ui 部分收到错误。

我什至不确定这是否可能，但列出所有 sku 将非常及时。

我收到以下错误：

标签错误("div", list(...)) : 缺少参数“sidebarPanel”，没有默认值

shinyApp(ui = ui, 服务器 = 服务器) force(ui) 中的错误：找不到对象“ui”

library('RMySQL')
library('plyr')
library('shiny')
library('scales')
library(shinyapps)
library(ggplot2)



con <- dbConnect(MySQL(), user="user", password="password",dbname="DB", host="host");


rank<-dbGetQuery(con,"select sku from DB")




#build a shiny app to select which sku to pick
server <- function(input, output) {

  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })
}

ui <- pageWithSidebar(
  ## Application title

    sidebarPanel(
      sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100),
      selectInput(
        'e0', '0. An ordinary select input', choices = unique(rank$sku),
        selectize = FALSE
      ),

      mainPanel(plotOutput("distPlot"))

  )

)

shinyApp(ui = ui, server = server)

Answer 1

您的selectize = FALSE 附近有一个缺少括号，并且（正如@DavidRobinson 建议的那样）您需要一个headerPanel。

代码修复

library(shiny)
library(ggplot2)
# con <- dbConnect(MySQL(), user="user", password="password",dbname="DB", host="host");
# rank<-dbGetQuery(con,"select sku from DB")
# for test hard coding the rank as I dont have your data
# test rank
rank$sku <- c(1,2,3)

#build a shiny app to select which sku to pick
server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })
}

ui <- pageWithSidebar(
  ## Application title

  # missing headerPanel
  headerPanel(title = "Hello"),

  # missing bracket after selectize
  sidebarPanel(
    sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100),
    selectInput(
      'e0', '0. An ordinary select input', choices = unique(rank$sku),
      selectize = FALSE) 
    ),

  mainPanel(plotOutput("distPlot"))    
)

shinyApp(ui = ui, server = server)

结果

另一个闪亮的页面用户界面选项

您也可以使用标签页结构，将上面的ui 替换为这段代码（注意它不需要像上面那样的headerPanel）：

# navbar tabbed page example - without headerPanel
ui2 <- navbarPage(title = "Hello Another Style", 
           tabPanel("Chart Panel",
                    sidebarLayout(
                      sidebarPanel(
                        sliderInput("obs", "Number of observations:", 
                                    min = 10, max = 500, value = 100),
                        selectInput(
                          'e0', '0. An ordinary select input', 
                          choices = unique(rank$sku),
                          selectize = FALSE)
                        ),
                      mainPanel(
                        plotOutput("distPlot")
                      )
                    )
           ),
           tabPanel("Instructions",
                    mainPanel(
                       p("Notes here for example...")
                    )
           )        

)

第二个结果

然后在第二个面板上...

调试建议

这些Shiny 页面可能有很多括号，因此在编辑器中依次仔细选择括号，以确保括号匹配正确。

一切顺利！