Question

我有兴趣扩展我正在构建的闪亮应用程序，并需要一些指导或帮助，以实现我想要完成的任务。

目前，我有一个闪亮的应用程序需要textInput并搜索textInput中给定ID的数据库。 mainPanel会显示具有不同tabs的该ID的所有相关信息。

我想现在扩展应用程序以搜索多个ID。理想情况下，针对多个ID的搜索将返回一个数据表，显示每个Id的Id和名称。从那里我希望能够点击Id并将它带到我已经建立的mainPanel。我在闪亮的教程和画廊中环顾四周，但找不到我要找的东西。

我正在寻找有关如何使用此标准扩展闪亮应用程序的建议和文档。任何帮助将不胜感激！

以下是server.R和ui.R代码。

library(shiny)
library(jsonlite)
library(DT)
library(RgoogleMaps)
library(Matrix)
library(dplyrimpaladb)
library(dplyr)
library(lazy)
library(testthat)
library(RJDBC)
library(DBI)
library(rJava)
library(assertthat)

shinyServer(function(input, output) {

  options(dplyr.jdbc.classpath = "/Impala/impala-jdbc-cdh5")
  usr_ryan <- reactive({ src_impaladb(dbname='usr_ryan', host='localhost') })

  queryString <- reactive({ gsub("id_number",
                                 input$id,
                                 "SELECT * FROM table where id='id_number'") })

  data <- reactive({ head(tbl(usr_ryan(), sql(queryString()))) })

  output$summary <- Summary(data)

  output$address <- Address(data)

  output$googlemap <- plotGoogleMap(data)

})

ui.R

library(shiny)
library(Matrix)
library(jsonlite)
library(DT)
library(RgoogleMaps)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Id Summary"),

  sidebarLayout( 
    sidebarPanel(
  textInput("npi", label = h3("Enter Id:"), value = "1")

  ),
  mainPanel(
    tabsetPanel(
      tabPanel("Information", DT::dataTableOutput("summary"),
      DT::dataTableOutput("address"), plotOutput("googlemap"))
      )
    )
  )
))

使用R Shiny的问题

0 个答案: