Browse Source

Añadir etiquetas para el código.

main
marcelcosta 2 years ago
parent
commit
38aa06c4ee
1 changed files with 12 additions and 5 deletions
  1. +12
    -5
      BDAccess/app.R

+ 12
- 5
BDAccess/app.R

@ -19,6 +19,8 @@ rna<-data.frame("UMID"="","UM"="")
sqlInitialize(ruta="../ruta_database.R") sqlInitialize(ruta="../ruta_database.R")
# UI ----------------------------------------------------------------------
ui <- fluidPage( ui <- fluidPage(
# Application title # Application title
@ -27,6 +29,8 @@ ui <- fluidPage(
#sidebarLayout( #sidebarLayout(
#Navbar #Navbar
navbarPage("BDAccess", navbarPage("BDAccess",
# * Update ------------------------------------------------------------------
tabPanel("Update", tabPanel("Update",
sidebarPanel( sidebarPanel(
selectInput("dbtype", "", selected="UM", choices=c("UM", "OV","CC")), selectInput("dbtype", "", selected="UM", choices=c("UM", "OV","CC")),
@ -52,6 +56,8 @@ ui <- fluidPage(
) )
) )
), ),
# * Visor -------------------------------------------------------------------
tabPanel("Visor", tabPanel("Visor",
sidebarPanel( sidebarPanel(
radioButtons("nhc", label = h3("Código"), radioButtons("nhc", label = h3("Código"),
@ -88,9 +94,9 @@ ui <- fluidPage(
# Define server logic required to draw a histogram # Define server logic required to draw a histogram
server <- function(input, output) { server <- function(input, output) {
## Update
# Update ------------------------------------------------------------------
values <- reactiveValues() values <- reactiveValues()
values[["DF"]]<-DF values[["DF"]]<-DF
values[["samples"]]<-samples values[["samples"]]<-samples
@ -618,8 +624,9 @@ server <- function(input, output) {
} }
}) })
## Visor
# Visor -------------------------------------------------------------------
output$report<-renderUI({ output$report<-renderUI({
samples<-sqlFetch(dta, "samples") samples<-sqlFetch(dta, "samples")
if (input$nhc == 1){samples_sel<-samples %>% filter(OVID == input$id)} if (input$nhc == 1){samples_sel<-samples %>% filter(OVID == input$id)}

Loading…
Cancel
Save