diff --git a/.github/CONTRIBUTING.md b/.github/CONTRIBUTING.md new file mode 100644 index 0000000..2821cf9 --- /dev/null +++ b/.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 . + +### 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. diff --git a/R/descargar_datos.R b/R/descargar_datos.R new file mode 100644 index 0000000..53e2d35 --- /dev/null +++ b/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) +} diff --git a/R/funcion grafica mensual.R b/R/funcion grafica mensual.R index 6745398..178b7de 100644 --- a/R/funcion grafica mensual.R +++ b/R/funcion grafica mensual.R @@ -53,4 +53,4 @@ grafico_temperatura_mensual <- function(datos, colores = NULL, titulo = "Tempera } - +grafico_temperatura_mensual(NH0910, "pink", "Temperatura") diff --git a/README.Rmd b/README.Rmd index 7346f7c..66ed179 100644 --- a/README.Rmd +++ b/README.Rmd @@ -12,10 +12,10 @@ knitr::opts_chunk$set( out.width = "100%" ) ``` -#Para verlo renderizado kinteo -#Paquetemeteored + +[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental) ## 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 diff --git a/README.md b/README.md index 91aaa67..8fb6b09 100644 --- a/README.md +++ b/README.md @@ -1,9 +1,9 @@ - -\#Para verlo renderizado kinteo \#Paquetemeteored - + +[![Lifecycle: +experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental) ## 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