以下是我的split code：

global.R

library(shiny)
sales <- vroom::vroom("sales_data_sample.csv", na = "")

字符串

ui.R

library(shiny)

shinyUI(fluidPage(
  titlePanel("Sales Dashboard"),
  sidebarLayout(
    sidebarPanel(
      selectInput("territory", "Territory", choices = unique(sales$TERRITORY), 
                  verbatimTextOutput("value1")),
      selectInput("customername", "Customer", choices = NULL),
      selectInput("ordernumber", "Order number", choices = NULL, size = 5, selectize = FALSE),
    ),
    mainPanel(
      uiOutput("customer"),
      tableOutput("data"),
    )
  )
))

型

server.R

server <- function(input, output, session) {
  
  observeEvent(input$territory, {
    customers <- sales$CUSTOMERNAME[which(sales$TERRITORY == input$territory)]
    updateSelectInput(session, "customername", choices = customers, selected = customers[1])
  })
  
  observeEvent(input$customername, {
    orders <- unique(sales$ORDERNUMBER[which(sales$CUSTOMERNAME == input$customername)])
    updateSelectInput(session, "ordernumber", choices = orders, selected = orders[1])
  })
  
  territory <- reactive({
    req(input$territory)
    filter(sales, TERRITORY == input$territory)
  })
  customer <- reactive({
    req(input$customername)
    filter(territory(), CUSTOMERNAME == input$customername)
  })
  
  output$customer <- renderUI({
    row <- customer()[1, ]
    tags$div(
      class = "well",
      tags$p(tags$strong("Name: "), row$CUSTOMERNAME),
      tags$p(tags$strong("Phone: "), row$PHONE),
      tags$p(tags$strong("Contact: "), row$CONTACTFIRSTNAME, " ", row$CONTACTLASTNAME)
    )
  })
 
  order <- reactive({
    req(input$ordernumber)
    customer() %>%
      filter(ORDERNUMBER == input$ordernumber) %>%
      arrange(ORDERLINENUMBER) %>%
      select(PRODUCTLINE, QUANTITYORDERED, PRICEEACH, SALES, STATUS)
  })
  
  output$data <- renderTable(order())
  
}

型