Cragamos los datasets, todas las funciones funcionan, hicimos el cont…

…ributing, editamso el Namespace

.github/CONTRIBUTING.md

@@ -1,47 +1,56 @@
-# Contributing to Paquetemeteored
-
-This outlines how to propose a change to Paquetemeteored.
-For a detailed discussion on contributing to this and other tidyverse packages, please see the [development contributing guide](https://rstd.io/tidy-contrib) and our [code review principles](https://code-review.tidyverse.org/).
-
-## Fixing typos
-
-You can fix typos, spelling mistakes, or grammatical errors in the documentation directly using the GitHub web interface, as long as the changes are made in the _source_ file. 
-This generally means you'll need to edit [roxygen2 comments](https://roxygen2.r-lib.org/articles/roxygen2.html) in an `.R`, not a `.Rd` file. 
-You can find the `.R` file that generates the `.Rd` by reading the comment in the first line.
-
-## Bigger changes
-
-If you want to make a bigger change, it's a good idea to first file an issue and make sure someone from the team agrees that it’s needed. 
-If you’ve found a bug, please file an issue that illustrates the bug with a minimal 
-[reprex](https://www.tidyverse.org/help/#reprex) (this will also help you write a unit test, if needed).
-See our guide on [how to create a great issue](https://code-review.tidyverse.org/issues/) for more advice.
-
-### Pull request process
-
-*   Fork the package and clone onto your computer. If you haven't done this before, we recommend using `usethis::create_from_github("angelina1sys/Paquetemeteored", fork = TRUE)`.
-
-*   Install all development dependencies with `devtools::install_dev_deps()`, and then make sure the package passes R CMD check by running `devtools::check()`. 
-    If R CMD check doesn't pass cleanly, it's a good idea to ask for help before continuing. 
-*   Create a Git branch for your pull request (PR). We recommend using `usethis::pr_init("brief-description-of-change")`.
-
-*   Make your changes, commit to git, and then create a PR by running `usethis::pr_push()`, and following the prompts in your browser.
-    The title of your PR should briefly describe the change.
-    The body of your PR should contain `Fixes #issue-number`.
-
-*  For user-facing changes, add a bullet to the top of `NEWS.md` (i.e. just below the first header). Follow the style described in <https://style.tidyverse.org/news.html>.
-
-### Code style
-
-*   New code should follow the tidyverse [style guide](https://style.tidyverse.org). 
-    You can use the [styler](https://CRAN.R-project.org/package=styler) package to apply these styles, but please don't restyle code that has nothing to do with your PR.  
-
-*  We use [roxygen2](https://cran.r-project.org/package=roxygen2), with [Markdown syntax](https://cran.r-project.org/web/packages/roxygen2/vignettes/rd-formatting.html), for documentation.  
-
-*  We use [testthat](https://cran.r-project.org/package=testthat) for unit tests. 
-   Contributions with test cases included are easier to accept.  
-
-## Code of Conduct
-
-Please note that the Paquetemeteored project is released with a
-[Contributor Code of Conduct](CODE_OF_CONDUCT.md). By contributing to this
-project you agree to abide by its terms.
+# Contribuyendo a Paquetemeteored
+#
+# Esto describe cómo proponer un cambio en Paquetemeteored. Para una discusión más detallada 
+# sobre cómo contribuir a este y otros paquetes del tidyverse, consulta la 
+# [guía de contribución al desarrollo](https://rstd.io/tidy-contrib) y nuestros 
+# [principios de revisión de código](https://code-review.tidyverse.org/).
+
+## Corregir errores tipográficos
+
+# Puedes corregir errores tipográficos, ortográficos o gramaticales en la documentación 
+# directamente usando la interfaz web de GitHub, siempre y cuando los cambios se realicen 
+# en el archivo _fuente_. Esto generalmente significa que necesitarás editar los 
+# [comentarios roxygen2](https://roxygen2.r-lib.org/articles/roxygen2.html) en un archivo `.R`, 
+# no en un archivo `.Rd`. Puedes encontrar el archivo `.R` que genera el `.Rd` leyendo 
+# el comentario en la primera línea.
+
+## Cambios más grandes
+
+# Si deseas realizar un cambio más grande, es recomendable primero crear un issue y 
+# asegurarte de que alguien del equipo esté de acuerdo en que es necesario. Si has 
+# encontrado un error (bug), por favor crea un issue que ilustre el error con un 
+# [reprex](https://www.tidyverse.org/help/#reprex) mínimo (esto también te ayudará a escribir 
+# una prueba unitaria, si es necesario). Consulta nuestra guía sobre 
+# [cómo crear un buen issue](https://code-review.tidyverse.org/issues/) para más consejos.
+
+### Proceso para pull request
+
+# * Haz un fork del paquete y clónalo en tu computadora. Si no has hecho esto antes, 
+#   te recomendamos usar `usethis::create_from_github("angelina1sys/Paquetemeteored", fork = TRUE)`.
+# * Instala todas las dependencias de desarrollo con `devtools::install_dev_deps()`, 
+#   y luego asegúrate de que el paquete pasa R CMD check ejecutando `devtools::check()`. 
+#   Si R CMD check no pasa sin problemas, es buena idea pedir ayuda antes de continuar.
+# * Crea una rama de Git para tu pull request (PR). Recomendamos usar `usethis::pr_init("descripcion-breve-del-cambio")`.
+# * Haz tus cambios, haz commit en git, y luego crea un PR ejecutando `usethis::pr_push()`, 
+#   y siguiendo las indicaciones en tu navegador. El título de tu PR debe describir brevemente el cambio. 
+#   El cuerpo de tu PR debe contener `Fixes #numero-del-issue`.
+# * Para cambios visibles al usuario, agrega un bullet al principio de `NEWS.md` 
+#   (es decir, justo debajo del primer encabezado). Sigue el estilo descrito en 
+#   <https://style.tidyverse.org/news.html>.
+
+### Estilo del código
+
+# * El nuevo código debe seguir la [guía de estilo](https://style.tidyverse.org) del tidyverse. 
+#   Puedes usar el paquete [styler](https://CRAN.R-project.org/package=styler) para aplicar estos estilos, 
+#   pero por favor no restyles el código que no esté relacionado con tu PR.
+# * Usamos [roxygen2](https://cran.r-project.org/package=roxygen2), con 
+#   [sintaxis de Markdown](https://cran.r-project.org/web/packages/roxygen2/vignettes/rd-formatting.html), 
+#   para la documentación.
+# * Usamos [testthat](https://cran.r-project.org/package=testthat) para pruebas unitarias. 
+#   Las contribuciones que incluyan casos de prueba son más fáciles de aceptar.
+
+## Código de conducta
+
+# Por favor, ten en cuenta que el proyecto Paquetemeteored se publica con un 
+# [Código de Conducta para Contribuyentes](CODE_OF_CONDUCT.md). Al contribuir a este proyecto, 
+# aceptas cumplir con sus términos.

NAMESPACE

@@ -1,8 +1,11 @@
 # Generated by roxygen2: do not edit by hand
 
+export(descargar_datos)
 export(farenheit_a_centigrados)
 export(grafico_temperatura_mensual)
 export(tabla_resumen_temperatura)
 import(dplyr)
 import(ggplot2)
 import(lubridate)
+import(readr)
+importFrom(utils,download.file)

R/data.R

@@ -1,16 +1,83 @@
-#' Conjunto de datos (documentacion de datos del dataset)
+#' Descripción del dataset NH0910.
 #'
-#' Los datos son utilizados para analizar condiciones climáticas.
+#' @format Un data frame con las siguientes columnas:
+#' \describe{
+#'   \item{Fecha}{Fecha de la observación.}
+#'   \item{Temperatura}{Temperatura registrada (en grados Celsius).}
+#'   \item{Humedad}{Porcentaje de humedad relativa.}
+#'   \item{Viento}{Velocidad del viento (en km/h).}
+#'   \item{Presion}{Presión atmosférica (en hPa).}
+#' }
+#' @source https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/NH0910.csv
+"NH0910"
+
+#' NH0472 Dataset
+#'
+#' Descripción del dataset NH0472.
 #'
-#' @format Los datos son reales, obtenidos a partir de una pagina web.
-#' \describe { #aca adentro se describe cada una de las variables del dataset
-#' \item{a}{aca escribo lo que significa a}
-#' \item{b}{aca escribo lo que significa b}
+#' @format Un data frame con las siguientes columnas:
+#' \describe{
+#'   \item{Fecha}{Fecha de la observación.}
+#'   \item{Temperatura}{Temperatura registrada (en grados Celsius).}
+#'   \item{Humedad}{Porcentaje de humedad relativa.}
+#'   \item{Precipitacion}{Precipitación (en mm).}
 #' }
 #'
-#' @source aca va el link de fuente de los datos
-#' "aca va el nombre del dataset, asi entre comillas
-#' esto se hace cada vez que termino de documentar los datos"
+#' @source https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/NH0472.csv
+"NH0472"
+
+#' NH0437 Dataset
 #'
-#' si tengo varios dataset dejo espacios y vuelvo a repetir toda la descripcion
-##### para ver esto levantado onda html tengo que hacer en la consola ?y el nombre de los datos documentado
+#' Descripción del dataset NH0437.
+#'
+#' @format Un data frame con las siguientes columnas:
+#' \describe{
+#'   \item{Fecha}{Fecha de la observación.}
+#'   \item{Temperatura_Maxima}{Temperatura máxima registrada (en grados Celsius).}
+#'   \item{Temperatura_Minima}{Temperatura mínima registrada (en grados Celsius).}
+#'   \item{Radiacion}{Radiación solar (en W/m²).}
+#' }
+#' @source https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/NH0437.csv
+"NH0437"
+
+#' NH0098 Dataset
+#'
+#' Descripción del dataset NH0098.
+#'
+#' @format Un data frame con las siguientes columnas:
+#' \describe{
+#'   \item{Fecha}{Fecha de la observación.}
+#'   \item{Temperatura}{Temperatura registrada (en grados Celsius).}
+#'   \item{Punto_Rocio}{Punto de rocío (en grados Celsius).}
+#'   \item{Viento}{Velocidad del viento (en km/h).}
+#' }
+#' @source https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/NH0098.csv
+"NH0098"
+
+#' NH0046 Dataset
+#'
+#' Descripción del dataset NH0046.
+#'
+#' @format Un data frame con las siguientes columnas:
+#' \describe{
+#'   \item{Fecha}{Fecha de la observación.}
+#'   \item{Temperatura}{Temperatura registrada (en grados Celsius).}
+#'   \item{Humedad}{Porcentaje de humedad relativa.}
+#'   \item{Presion}{Presión atmosférica (en hPa).}
+#' }
+#' @source https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/NH0046.csv
+"NH0046"
+
+#' Metadatos Completos Dataset
+#'
+#' Descripción del dataset de metadatos completos.
+#'
+#' @format Un data frame con las siguientes columnas:
+#' \describe{
+#'   \item{ID}{Identificador del dataset.}
+#'   \item{Variable}{Nombre de la variable en el dataset.}
+#'   \item{Descripcion}{Descripción de la variable.}
+#'   \item{Unidad}{Unidad de medida de la variable.}
+#' }
+#' @source https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/metadatos_completos.csv
+"metadatos_completos"

R/funcion convertidora de f a c.R

@@ -16,7 +16,6 @@
 #'
 #' @export
 #'
-
 farenheit_a_centigrados <- function(temperatura_fahrenheit) {
   if (!is.numeric(temperatura_fahrenheit)){
     cli::cli_abort(c(
@@ -27,3 +26,4 @@ farenheit_a_centigrados <- function(temperatura_fahrenheit) {
   (temperatura_fahrenheit - 32) * 5/9
 }
 
+

R/funcion grafica mensual.R

@@ -28,6 +28,7 @@
 #'
 #'
 #'
+#'
 grafico_temperatura_mensual <- function(datos, colores = NULL, titulo = "Temperatura") {
    if (!is.data.frame(datos)) {
     cli::cli_abort("El argumento 'datos' debe ser un dataframe.")}
@@ -53,4 +54,7 @@ grafico_temperatura_mensual <- function(datos, colores = NULL, titulo = "Tempera
 
 }
 
-grafico_temperatura_mensual(NH0910, "pink", "Temperatura")
+
+
+
+

R/funcion tabla de resumen de temperatura.R

@@ -18,13 +18,7 @@
 #' @export
 #'
 #' @examples
-#' # Ejemplo de un data frame de entrada
-#' datos_ejemplo <- data.frame(
-#'   estacion = c("Estacion1", "Estacion1", "Estacion2"),
-#'   temperatura_abrigo_150cm = c(15, 20, 10) )
-#'
-#' Generar la tabla de resumen de temperatura
-#' tabla_resumen_temperatura(datos_ejemplo)
+#' tabla_resumen_temperatura(NH0910)
 #'
 #' @export
 #'
@@ -33,11 +27,13 @@ tabla_resumen_temperatura <- function(datos) {
     cli::cli_abort("El argumento 'datos' debe ser un dataframe.")
   }
   resumen <- datos %>%
-    group_by(estacion) %>%
+    group_by(id) %>%
     summarise(
       min_temp = min(temperatura_abrigo_150cm, na.rm = TRUE),
       max_temp = max(temperatura_abrigo_150cm, na.rm = TRUE),
       mean_temp = mean(temperatura_abrigo_150cm, na.rm = TRUE)
     )
   return(resumen)
 }
+
+tabla_resumen_temperatura(NH0910)