ShinyAppVicerrectoria/app.R at main · bryanariasq02/ShinyAppVicerrectoria · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
library(shiny)
library(shinydashboard)
library(tidyverse)
library(here)
library(DT)
library(readxl)

source(here("data","files.R"))

data1 <- read_csv(file1) |>
  mutate(enlace = str_remove(enlace, ".*file/d/"),
         enlace = str_remove(enlace, "/view?.*"),
         enlace = str_c("https://drive.google.com/uc?id=",enlace,"&export=download&authuser=0"),
         enlace= str_c("<a href=",
                       enlace,
                       ">Download</a>")) |>
  select(nombre,cedula,enlace,certificado)

data2 <- read_csv(file2) |>
  mutate(enlace = str_remove(enlace, ".*file/d/"),
         enlace = str_remove(enlace, "/view?.*"),
         enlace = str_c("https://drive.google.com/uc?id=",enlace,"&export=download&authuser=0"),
         enlace= str_c("<a href=",
                       enlace,
                       ">Download</a>"),
         certificado = "IV Encuentro Nacional de Semilleros de Investigación") |>
  select(nombre, cedula,enlace,certificado)

data <- rbind(data1, data2)

ui <- dashboardPage(skin = "yellow",
                    dashboardHeader(title = "Vicerrectoría de Investigaciones", titleWidth = 350,
                                    dropdownMenu(type = "notifications", icon = shiny::icon("code"),
                                                 badgeStatus = "info", headerText = "Desarrolladores",
                                                 tags$li(a(href = "https://github.com/srobledog",
                                                           target = "_blank",
                                                           tagAppendAttributes(icon("github")),
                                                           "Sebastian Robledo")),
                                                 tags$li(a(href = "https://github.com/bryanariasq02",
                                                           target = "_blank",
                                                           tagAppendAttributes(icon("github")),
                                                           "Bryan Arias")),
                                                 tags$li(a(href = "https://github.com/camilogs1",
                                                           target = "_blank",
                                                           tagAppendAttributes(icon("github")),
                                                           "Camilo García"))
                                    )
                    ),
dashboardSidebar(
  sidebarMenu(
    menuItemOutput("Certificados"),
    menuItem("Proyecto Margaret", icon = icon("microscope"),
             href = "https://ucatolicaluisamigo-investigaciones.shinyapps.io/margaret/")
  )
),
dashboardBody(style = "background-color: #ffffff",

              fluidPage(
                fluidRow(column(4, align="left", offset = 1,
                                a(href="https://www.funlam.edu.co/",
                                  img(src="banner.jpeg", height=200, width=500),
                                  target="_blank")),
                         column(4, align="center", offset = 1,
                                a(href="https://www.funlam.edu.co/modules/centroinvestigaciones/",
                                  img(src="logo.jpg", height=100, width=100),
                                  target="_blank"))),
                fluidRow(
                  column(8, align="center", offset = 2,
                         textInput("txt", "Ingrese Número de Identificación"),
                         actionButton("button", "Buscar")
                  ),
                  dataTableOutput('salida'),
                  hr()
                )
              )
)
)

server <- function(input, output) {

  output$Certificados <- renderMenu({
    menuItem("Certificados", icon = icon("book-open"))
  })

  dato <- eventReactive(input$button,
                        (input$txt),
                        ignoreNULL = FALSE,ignoreInit = FALSE
  )

  output$salida <- renderDT({
    data |> filter(cedula == dato()) |>
      datatable(escape = FALSE,
                options = list(dom = 't'),
                colnames = c("Nombres y Apellidos", "Número de identificación", "Certificado", "Tipo"))
  })
}

shinyApp(ui, server)