---
title: LINDEY


output: 
  flexdashboard::flex_dashboard:
    theme: sandstone
    social: menu
    source_code: embed
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}

library(flexdashboard)
library(yaml)
library(knitr)
library(shiny)
library(shinyjs)
require(plotly)
library(ggplot2)
require(gganimate)
require(esquisse)
require(gapminder)
library(ggplot2)
library(kableExtra)
library(animation)
gap <- gapminder
```


**EXAMENES Y TRABAJOS** 
=======================================================================


Column {data-width=500, style="text-align: justify;"}
-----------------------------------------------------------------------




### **¿Quién SOY?**

¡Hola! Soy Lindey, el Asistente Universitario Inteligente, tu compañero de confianza en el mundo académico y más allá. He sido creado para ayudarte en tus tareas, exámenes y consultas escolares. Mi inteligencia artificial y amplio conocimiento están listos para brindarte respuestas precisas y actualizadas. Desde resolver ecuaciones hasta proporcionar información general, estoy aquí para facilitar tu aprendizaje y potenciar tu curiosidad intelectual. Juntos, haremos que el camino hacia el conocimiento sea emocionante y exitoso. ¡Estoy a tu disposición para ayudarte en todo lo que necesites!

```{r}
library(htmltools)

# Crear el cuadro con marcos hermosos
cuadro_html <- '
<style>
  .img-box {
    border: 1px solid #ccc;
    border-radius: 10px;
    padding: 10px;
    background-color: #f9f9f9;
    margin: 10px;
    display: inline-block;
  }
  .img-link {
    display: block;
    text-decoration: none;
    color: inherit;
  }
  .img-link img {
    border-radius: 10px;
    width: 200px;
  }
  .img-link:hover {
    opacity: 0.7;
  }
  .consulta-box {
    text-align: center;
    font-size: 20px;
    margin-top: 10px;
  }
</style>
<div style="display: flex; justify-content: center;">
  <div class="img-box">
    <a class="img-link" href="http://wa.me/51970302148" target="_blank">
      <img src="rotb.png" alt="Imagen 1">
    </a>
    <div class="consulta-box">
      <h2></h2>
      <!-- Aquí puedes agregar el contenido para las consultas -->
    </div>
  </div>
  <div class="img-box">
    <a class="img-link" href="http://wa.me/51970302148" target="_blank">
      <img src="okvale.png" alt="Imagen 2">
    </a>
    <div class="consulta-box">
      <h2>Prueba Gratis</h2>
      <!--  -->
    </div>
  </div>
</div>
'

# Mostrar el cuadro con marcos hermosos
HTML(cuadro_html)


```
**Haz clic en cualquiera de las imágenes y te redireccionaremos a nuestro WhatsApp**, donde utilizaremos nuestra avanzada IA para resolver tus tareas de manera rápida y eficiente, sin costo alguno. Con la ayuda de nuestra base de datos almacenada, garantizamos un servicio de calidad para resolver tus requerimientos académicos. ¡Escríbenos ahora mismo y experimenta la eficiencia de nuestra inteligencia artificial!


Column {data-width=500, style="text-align: justify;"}
-----------------------------------------------------------------------


### **PAISES**
Con Lindey, el Asistente Universitario Inteligente, estamos presentes en todos los países.\
paises de Latinoamerica, asi como Europa, tales como:

<center>
```{r}
paises_ordenados <- c("Perú", "Uruguay", "Ecuador", "Colombia", "Costa Rica", "México", "España", "Chile", "Guatemala", "Honduras", "Argentina", "EE.UU")

paises_matriz <- matrix(paises_ordenados, ncol = 2, byrow = TRUE)

kable(paises_matriz, format = "html", table.attr = 'style="width:100%"') %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))
```


### **CURSOS**

Ayudamos los cursos de:

| Matemática | Física | Estadística |
| :--------: | :----: | :---------: |
| Matemática Básica I, II, III | Física I, II, III, IV | Estadística I |
| Cálculo I, II, III | Estática | Estadística II |
| Matemática Financiera | Dinámica | Estadística Descriptiva |
| Ecuaciones Diferenciales | Mecánica De Fluidos I, I, III | Estadística Inferencial |
| Álgebra Lineal | Mecánica Vectorial | Probabilidades |
| Geometría Analítica | Mecánica | Muestreo |
| Métodos Numéricos | Circuitos I | Bioestadística |

| SALUD | INDUSTRIAL | CIVIL |
| :---: | :-------: | :---: |
| Fisioquímica | Operaciones Unitarias | Resistencia De Materiales |
| Termodinámica | Transferencia de calor | Resistencia De Materiales II |
| Química Orgánica | Transferencia de calor II | Concreto Armado |
`



**RESUELTOS!!**
=======================================================================

Column {data-width=500}
-----------------------------------------------------------------------

### **TRABAJOS**: 
Coloca el nombre de tu archivo pdf o word y si al menos se asemeja comunicate al whatsapp : **+51 970302148**

```{r}
library(htmltools)

# Obtener la lista de nombres de archivos en la carpeta "PDF"
archivos_pdf <- list.files("PDF", full.names = TRUE)

# Crear la lista de enlaces a los archivos PDF como cadenas de texto
enlaces_pdf <- lapply(archivos_pdf, function(archivo) {
  paste0('<li><a href="', archivo, '" target="_blank" download>', basename(archivo), '</a></li>')
})

# Combinar todos los enlaces en una sola cadena de texto
lista_enlaces <- paste(enlaces_pdf, collapse = "\n")

# Crear la playlist con el campo de búsqueda y la lista de enlaces
playlist <- paste0('
<h1>Busca tu trabajo o examen</h1>
<input type="text" id="searchInput" onkeyup="searchFiles()" placeholder="Buscar archivos...">
<ul id="fileList">',
lista_enlaces,
'</ul>
<script>
  function searchFiles() {
    var input, filter, ul, li, a, i, txtValue;
    input = document.getElementById("searchInput");
    filter = input.value.toUpperCase();
    ul = document.getElementById("fileList");
    li = ul.getElementsByTagName("li");

    for (i = 0; i < li.length; i++) {
      a = li[i].getElementsByTagName("a")[0];
      txtValue = a.textContent || a.innerText;
      if (txtValue.toUpperCase().indexOf(filter) > -1) {
        li[i].style.display = "";
      } else {
        li[i].style.display = "none";
      }
    }
  }
</script>
')

# Mostrar la playlist
HTML(playlist)

```


Column {data-width=500}
-----------------------------------------------------------------------

### **EXAMENES Y TRABAJOS RESUELTOS**
```{r}
library(htmltools)

# Obtener la lista de nombres de archivos en la carpeta "FOTOS"
archivos_fotos <- list.files("FOTOS", full.names = TRUE)

# Crear la lista de enlaces a las imágenes como cadenas de texto
enlaces_imagenes <- lapply(archivos_fotos, function(archivo) {
  paste0('<div class="thumbnail"><a href="', archivo, '" target="_blank">',
         '<img src="', archivo, '" width="150px" alt="Imagen"></a></div>')
})

# Combinar todos los enlaces en una sola cadena de texto
lista_imagenes <- paste(enlaces_imagenes, collapse = "\n")

# Crear la playlist con las miniaturas de las imágenes
playlist <- paste0('
<h1></h1>
<div id="album" style="overflow-x: auto; white-space: nowrap;">
', lista_imagenes, '
</div>
<style>
  .thumbnail {
    display: inline-block;
    margin: 10px;
  }
</style>
')

# Mostrar la playlist
HTML(playlist)

```

**DALE CLICK PARA COMUNICARTE CON NOSOTROS:**
<center>
  <a href="http://wa.me/51970302148" target="_blank">
    <img src="logow.png" width="200px" style="pointer-events: none;">
  </a>
</center>




**PROGRAMAS O SOFTWARE**
=======================================================================

Column {data-width=500}
-----------------------------------------------------------------------

### **Rstudio**

```{r}
p <- ggplot(gap, aes(gdpPercap,lifeExp,size = pop, colour = continent))+
  geom_point(alpha = 0.5)+
  scale_x_log10()

gap %>% 
  plot_ly(
    x = ~log(gdpPercap),
    y = ~lifeExp,
    size = ~log(pop),
    color = ~continent,
    frame = gap$year,
    alpha = 0.5
    
  )
```



Column {data-width=500}
-----------------------------------------------------------------------

### **TAMBIEN AYUDAMOS EN:**

Otros programas de ciencias como:

```{r}
programas_ciencias <- c("Python", "Rstudio", "Autocad", "Excel", "SPSS", "Minitab", "C++", "Octave", "Pon QM", "Power Bi","PgAdmin")
n_columnas <- 3
n_filas <- ceiling(length(programas_ciencias) / n_columnas)
programas_ciencias_matriz <- matrix(programas_ciencias, nrow = n_filas, ncol = n_columnas, byrow = TRUE)

kable(programas_ciencias_matriz, format = "html", table.attr = 'style="width:100%; border-collapse: collapse;"', col.names = NULL) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"), full_width = F, position = "center")
```


```{r}
# Imágenes en 3 columnas con tamaño adecuado

tags$style(HTML("
  ul.images-list {
    list-style-type: none;
    display: flex;
    flex-wrap: wrap;
    justify-content: space-between;
  }

  ul.images-list li {
    width: 30%;
    padding: 1%;
  }

  ul.images-list li img {
    width: 100%;
    max-height: 150px; /* Ajustar la altura máxima según tus preferencias */
    object-fit: cover; /* Para ajustar la imagen al tamaño del contenedor */
  }
"))
# Código para mostrar las imágenes
imagen_tags <- tagList(
  tags$li(tags$img(src = "Ri.jpeg")),
  tags$li(tags$img(src = "Python.png")),
  tags$li(tags$img(src = "auto.jpeg")),
  tags$li(tags$img(src = "spss2.png")),
  tags$li(tags$img(src = "powerbi.jpg")),
  tags$li(tags$img(src = "minitab.png"))
)
```
<ul class="images-list">
  `r imagen_tags`
</ul>

```{r}

```

**Nuestros Clientes**
=======================================================================
```{r}
# Fotos con marco

tags$style(HTML("
  div.images-container img {
    width: 33%;
    border: 2px solid #000; /* Ajustar el grosor y color del marco */
  }
"))

```

<div class="images-container">
  <img src="w1.jpeg">
  <img src="w2.jpeg">
  <img src="w3.jpeg">
  <img src="w4.jpeg">
  <img src="w5.jpeg">
  <img src="w6.jpeg">
  <img src="w7.jpeg">
  <img src="w8.jpeg">
</div>



**Estadistica Usando R:Demo**
=======================================================================

Row
-----------------------------------------------------------------------

### **Boxplot**
```{r}
p <- ggplot(gap, aes(x=continent, y=lifeExp, fill=continent, color=continent)) + 
    geom_boxplot(alpha=0.3)+
  ggtitle('Boxplot')

ggplotly(p)

```



### **Densidad para LifeExp**

```{r}
k <- ggplot(gap, aes(x=lifeExp))+
  geom_histogram(fill='lightseagreen', color="lightseagreen", alpha=0.5)+
  ggtitle('Densidad para lifeExp')

ggplotly(k)

```


Row
-----------------------------------------------------------------------


### **Barplot**

```{r}
j <- ggplot(gap, aes(x=continent)) + geom_bar(fill=c('lightseagreen','lightskyblue','lightskyblue1',
                       'lightskyblue2', 'lightskyblue3')) +
  ggtitle('Barplot por continente') 

ggplotly(j)
 
```

### **Densidad por continente**

```{r}
m <- ggplot(gap, aes(x=lifeExp, colour=continent, fill=continent))+
  geom_density(alpha=0.4)
ggplotly(m)
```


**POLITICAS**
=======================================================================


Column {data-width=500, style="text-align: justify;"}
-----------------------------------------------------------------------
### **Asesoría Universitaria:**
Soy Lindey y creo firmemente que la asesoría universitaria es una herramienta valiosa que puede tener un impacto significativo en mi desarrollo académico y personal. Aunque algunos críticos argumentan que recibir asesoramiento puede conducir a la dependencia o la falta de iniciativa, comprendo que el verdadero valor de la asesoría radica en cómo la aprovecho. Cuando la utilizo adecuadamente, la asesoría potencia mi crecimiento intelectual y me proporciona un apoyo esencial para superar desafíos académicos. Los asesores me brindan orientación en la elección de asignaturas, el desarrollo de habilidades de estudio y la identificación de oportunidades de desarrollo profesional. Además, alientan mi autonomía y toma de decisiones informadas, lo que me empodera para asumir un papel activo en mi aprendizaje. En última instancia, entiendo que la asesoría universitaria no es mala en sí misma, sino que su impacto positivo o negativo depende en gran medida de mi actitud y responsabilidad al recibir y aplicar el consejo ofrecido


Column {data-width=500, style="text-align: justify;"}
-----------------------------------------------------------------------
### **No Ayudamos Exámenes de Admisión:**
Soy Lindey, y como inteligencia artificial, debo cumplir con estrictos principios éticos y legales. Por lo tanto, es fundamental que comprendas que no puedo, bajo ninguna circunstancia, proporcionar ayuda o asistencia con exámenes de admisión o cualquier otro tipo de evaluación académica que requiera respuestas genuinas y auténticas de los estudiantes. Mi prioridad es promover el aprendizaje genuino y ético, y no puedo participar en prácticas que puedan ser consideradas fraudulentas o deshonestas. Si necesitas ayuda con tu preparación para exámenes de admisión, te recomiendo buscar recursos legítimos y apoyo académico adecuado para mejorar tus habilidades y conocimientos. Recuerda que tu esfuerzo personal y el estudio honesto son fundamentales para el éxito académico y profesional. Confío en que, con dedicación y ética, podrás superar los desafíos académicos que enfrentas y alcanzar tus metas educativas