agrego etiqueta al readme, falta logo y modificar contributing

.github/CONTRIBUTING.md

@@ -0,0 +1,47 @@
+# 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.

R/descargar_datos.R

@@ -0,0 +1,42 @@
+#' Descargar datos meteorológicos
+#'
+#' La función `descargar_datos` toma el ID de una estación y un directorio de destino, y descarga en dicha ubicación un archivo CSV con los datos meteorológicos de la estación correspondiente. Los IDs posibles son: NH0098, NH0046, NH437, NH472 y NH0910.
+#' @param id_estacion ID de la estación.
+#' @param directorio_destino Directorio donde se guardará el archivo CSV.
+#'
+#' @return
+#' Un archivo CSV con los datos meteorológicos de la estación con el ID ingresado.
+#'
+#' @import readr
+#' @importFrom utils download.file
+#'
+#' @export
+#'
+#' @examples
+#' descargar_datos("NH0098", "data")
+#' descargar_datos("NH0910", "data")
+descargar_datos <- function(id_estacion, directorio_destino) {
+  url_repositorio <- "https://raw.githubusercontent.com/rse-r/intro-programacion/main/datos/"
+  estacion_url <- paste0(url_repositorio, id_estacion, ".csv")
+
+  # Verificar si el nombre del directorio está ocupado por un archivo
+  if (file.exists(directorio_destino) && !dir.exists(directorio_destino)) {
+    stop(paste("Error: El destino especificado", directorio_destino, "ya existe como archivo. Por favor, elige otro nombre para el directorio."))
+  }
+
+  # Crear la ruta completa para el archivo de destino
+  ruta_archivo <- file.path(directorio_destino, paste0(id_estacion, ".csv"))
+
+  # Crear el directorio si no existe
+  if (!dir.exists(directorio_destino)) {
+    dir.create(directorio_destino, recursive = TRUE)
+  }
+
+  # Descargar el archivo
+  download.file(url = estacion_url, destfile = ruta_archivo)
+
+  # Leer el archivo CSV
+  datos <- read_csv(ruta_archivo)
+
+  return(datos)
+}

R/funcion grafica mensual.R

@@ -53,4 +53,4 @@ grafico_temperatura_mensual <- function(datos, colores = NULL, titulo = "Tempera
 
 }
 
-
+grafico_temperatura_mensual(NH0910, "pink", "Temperatura")

README.Rmd

@@ -12,10 +12,10 @@ knitr::opts_chunk$set(
   out.width = "100%"
 )
 ```
-#Para verlo renderizado kinteo
-#Paquetemeteored
+
 
 <!-- badges: start -->
+[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
 <!-- badges: end -->
 
 ## Introducción
@@ -49,12 +49,4 @@ Se puede instalar la versión de desarrollo de meteored desde GitHub con:
 pak::pak("angelina1sys/Paquetemeteored")
 ```
 
-### Ejemplo 
-
-This is a basic example which shows you how to solve a common problem:
-NOS TIRA ERROR 
 
-```{r example}
-{r example}
-library(Paquetemeteored)
-## basic example code

README.md

@@ -1,9 +1,9 @@
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
-
-\#Para verlo renderizado kinteo \#Paquetemeteored
-
 <!-- badges: start -->
+
+[![Lifecycle:
+experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
 <!-- badges: end -->
 
 ## Introducción
@@ -54,9 +54,3 @@ Se puede instalar la versión de desarrollo de meteored desde GitHub con:
 # install.packages("pak")
 pak::pak("angelina1sys/Paquetemeteored")
 ```
-
-### Ejemplo
-
-This is a basic example which shows you how to solve a common problem:
-
-{r example} library(Paquetemeteored) \## basic example code