PROYECTO FINAL

paste("BIENVENIDO AL SISTEMA DE GESTIÓN DE EQUIPOS")

## [1] "BIENVENIDO AL SISTEMA DE GESTIÓN DE EQUIPOS"

contrasena <- readline("ingrese su contraseña: ")

## ingrese su contraseña:

if (substr(contrasena, 1, 4) == "ADMI"){
  
  cat("ACCESO CORRECTO PARA ADMINISTRADOR")
  
  opciones <- readline(prompt = "OPCIONES: 1.Agregar un equipo 2.Eliminar un equipo (DIGITE SOLAMENTE EL NUMERO): ")
  
  if(substr(opciones, 1, 1) == "1"){
    
    nombre = readline(prompt = "Ingrese nombre del equipo: ")
    marca = readline(prompt = "Ingrese la marca del equipo: ")
    proveedor = readline(prompt = "Ingrese el proveedor del equipo: ")
    pais = readline(prompt = "Ingrese el pais de fabricación del equipo: ")
    invima = readline(prompt = "Ingrese el registo INVIMA del equipo: ")
    codigo_inventario = readline(prompt = "Ingrese el código de inventario del equipo: ")
    localizacion = readline(prompt = "Ingrese el área donde pertenece el equipo: ")
    riesgo = readline(prompt = "Ingrese la clasificación de riesgo del equipo: ")
    riesgo_electrico = readline(prompt = "Ingrese la clasificación de riesgo electrico del equipo: ")
    preventivo = readline(prompt = "Ingrese la fecha del último mantenimiento preventivo (DD/MM/AA): ")
    
    #nombres = c()  
    #marcas = c() 
    #proveedores = c()
    #paises = c()
    #registros = c()
    #codigos = c()
    #localizaciones = c()
    #riesgos = c()
    #riesgoeLectrico = c()
    #preventivos = c()
    
    
    nombres[length(nombres) + 1] = nombre
    marcas[length(marcas) + 1] = marca
    proveedores[length(proveedores) + 1] = proveedor 
    paises[length(paises) + 1] = pais
    registros[length(registros) + 1] = invima
    codigos[length(codigos) + 1] = codigo_inventario
    localizaciones[length(localizaciones) + 1] = localizacion
    riesgos[length(riesgos) + 1] = riesgo
    riesgoeLectrico[length(riesgoeLectrico) + 1] =riesgo_electrico
    preventivos[length(preventivos) + 1] = preventivo
    
    contador = length(nombres)
    
    base_de_datos <- data.frame(nombres, marcas,proveedores,paises,registros,codigos,localizaciones,riesgos,riesgoeLectrico,preventivos) 
    
    columnas <- c("Nombre", "Marca", "Proveedor", "Pais de Fabricación", "Registro INVIMA", "Código de Inventario", "Área", "Tipo de Riesgo", "Clasificación de Riesgo ELéctrico", "Mantenimineto Preventivo") 
    colnames(base_de_datos) <- columnas
    
    base_de_datos
    
    }else if(substr(opciones, 1, 1) == "2"){
     
      eliminar <- readline(prompt = "Ingrese el código de inventario del equipo: ")
      base_de_datos[base_de_datos$codigos == eliminar,]
      base_de_datos[!(base_de_datos$codigos == eliminar),]

    }else{
      cat("OPCIÓN INVALIDA")
    }
  
  }else if (substr(contrasena, 1, 4) == "TECN"){
    
    cat("ACCESO CORRECTO PARA TÉCNICO")
    
    opciones <- readline(prompt = "OPCIONES: 1.Agregar un equipo 2.Eliminar un equipo (DIGITE SOLAMENTE EL NUMERO): ")
    
    if(substr(opciones, 1, 1) == "1"){
  
    nombre = readline(prompt = "Ingrese nombre del equipo: ")
    marca = readline(prompt = "Ingrese la marca del equipo: ")
    proveedor = readline(prompt = "Ingrese el proveedor del equipo: ")
    pais = readline(prompt = "Ingrese el pais de fabricación del equipo: ")
    invima = readline(prompt = "Ingrese el registo INVIMA del equipo: ")
    codigo_inventario = readline(prompt = "Ingrese el código de inventario del equipo: ")
    localizacion = readline(prompt = "Ingrese el área donde pertenece el equipo: ")
    riesgo = readline(prompt = "Ingrese la clasificación de riesgo del equipo: ")
    riesgo_electrico = readline(prompt = "Ingrese la clasificación de riesgo electrico del equipo: ")
    preventivo = readline(prompt = "Ingrese la fecha del último mantenimiento preventivo (DD/MM/AA): ")
    
    #nombres = c()  
    #marcas = c() 
    #proveedores = c()
    #paises = c()
    #registros = c()
    #codigos = c()
    #localizaciones = c()
    #riesgos = c()
    #riesgoeLectrico = c()
    #preventivos = c()
    
    
    nombres[length(nombres) + 1] = nombre
    marcas[length(marcas) + 1] = marca
    proveedores[length(proveedores) + 1] = proveedor 
    paises[length(paises) + 1] = pais
    registros[length(registros) + 1] = invima
    codigos[length(codigos) + 1] = codigo_inventario
    localizaciones[length(localizaciones) + 1] = localizacion
    riesgos[length(riesgos) + 1] = riesgo
    riesgoeLectrico[length(riesgoeLectrico) + 1] =riesgo_electrico
    preventivos[length(preventivos) + 1] = preventivo
    
    contador = length(nombres)

    
    base_de_datos <- data.frame(nombres, marcas,proveedores,paises,registros,codigos,localizaciones,riesgos,riesgoeLectrico,preventivos) 
    
    columnas <- c("nombres", "marcas", "proveedores", "paises", "registros", "codigos", "localizaciones", "riesgos", "riesgoeLectrico", "preventivos") 
    colnames(base_de_datos) <- columnas
    
    View(base_de_datos)

    }else if (substr(opciones, 1, 1) == "2"){
      cat("NO ESTA AUTORIZADO PARA REALIZAR ESTA FUNCIÓN")
    }
  
  
  }else if (substr(contrasena, 1, 4) == "BIOM"){
    
    cat("ACCESO CORRECTO PARA BIOMÉDICO")
    
    opciones <- readline(prompt = "OPCIONES: 1.Agregar un equipo 2.Eliminar un equipo (DIGITE SOLAMENTE EL NUMERO): ")
    
    if(substr(opciones, 1, 1) == "1"){
    
    nombre = readline(prompt = "Ingrese nombre del equipo: ")
    marca = readline(prompt = "Ingrese la marca del equipo: ")
    proveedor = readline(prompt = "Ingrese el proveedor del equipo: ")
    pais = readline(prompt = "Ingrese el pais de fabricación del equipo: ")
    invima = readline(prompt = "Ingrese el registo INVIMA del equipo: ")
    codigo_inventario = readline(prompt = "Ingrese el código de inventario del equipo: ")
    localizacion = readline(prompt = "Ingrese el área donde pertenece el equipo: ")
    riesgo = readline(prompt = "Ingrese la clasificación de riesgo del equipo: ")
    riesgo_electrico = readline(prompt = "Ingrese la clasificación de riesgo electrico del equipo: ")
    preventivo = readline(prompt = "Ingrese la fecha del último mantenimiento preventivo (DD/MM/AA): ")
    
    #nombres = c()  
    #marcas = c() 
    #proveedores = c()
    #paises = c()
    #registros = c()
    #codigos = c()
    #localizaciones = c()
    #riesgos = c()
    #riesgoeLectrico = c()
    #preventivos = c()
    
    
    nombres[length(nombres) + 1] = nombre
    marcas[length(marcas) + 1] = marca
    proveedores[length(proveedores) + 1] = proveedor 
    paises[length(paises) + 1] = pais
    registros[length(registros) + 1] = invima
    codigos[length(codigos) + 1] = codigo_inventario
    localizaciones[length(localizaciones) + 1] = localizacion
    riesgos[length(riesgos) + 1] = riesgo
    riesgoeLectrico[length(riesgoeLectrico) + 1] =riesgo_electrico
    preventivos[length(preventivos) + 1] = preventivo
    
    contador = length(nombres)
    
    base_de_datos <- data.frame(nombres, marcas,proveedores,paises,registros,codigos,localizaciones,riesgos,riesgoeLectrico,preventivos) 
    
    columnas <- c("nombres", "marcas", "proveedores", "paises", "registros", "codigos", "localizaciones", "riesgos", "riesgoeLectrico", "preventivos") 
    colnames(base_de_datos) <- columnas
    
    View(base_de_datos)
    
    }else if (substr(opciones, 1, 1) == "2"){
      cat("NO ESTA AUTORIZADO PARA REALIZAR ESTA FUNCIÓN")
    }
    
    
  } else{
    cat("ACCESO INCORRECTO")
  }

## ACCESO INCORRECTO