From 8ed2099953636fca77c0759b72f6a7da2dccad7d Mon Sep 17 00:00:00 2001 From: ahmathlete Date: Sat, 13 Apr 2024 20:07:24 +0200 Subject: [PATCH] v1.0.0 --- .gitignore | 1 + QuartoBook/.gitignore | 4 ++- RPackage/DESCRIPTION | 6 ++-- RPackage/NEWS.md | 1 + RPackage/README.md | 12 ++++---- RPackage/_pkgdown.yml | 2 +- RPackage/man/AquaFortR-package.Rd | 4 +-- prepare_data.R | 50 ------------------------------- 8 files changed, 17 insertions(+), 63 deletions(-) create mode 100644 RPackage/NEWS.md delete mode 100644 prepare_data.R diff --git a/.gitignore b/.gitignore index 6eae7ac..5ba42ff 100644 --- a/.gitignore +++ b/.gitignore @@ -61,3 +61,4 @@ QuartoBook/fortran/* QuartoBook/*.png toc_* AquaFortR.Rproj +prepare_data.R diff --git a/QuartoBook/.gitignore b/QuartoBook/.gitignore index 32fd030..708b094 100644 --- a/QuartoBook/.gitignore +++ b/QuartoBook/.gitignore @@ -1,4 +1,6 @@ /.quarto/ data/ microbenchmark/ -*.csv \ No newline at end of file +*.csv +*.so +*.dll diff --git a/RPackage/DESCRIPTION b/RPackage/DESCRIPTION index 14139a6..333102a 100644 --- a/RPackage/DESCRIPTION +++ b/RPackage/DESCRIPTION @@ -1,7 +1,7 @@ Package: AquaFortR Type: Package Title: Streamlining Atmospheric Science, Oceanography, Climate, and Water Research with Fortran-accelerated R -Version: 0.1.0 +Version: 1.0.0 Authors@R: person("Ahmed", "Homoudi", , "ahmed.homoudi@tu-dresden.de", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-6906-5986")) @@ -15,8 +15,8 @@ Description: AquaFortR is an educational package for students and researchers in License: CC BY 4.0 Encoding: UTF-8 LazyData: true -URL: https://AHomoudi.github.io/AquaFortR -BugReports: https://github.com/AHomoudi/AquaFortR/issues +URL: https://ahomoudi.github.io/AquaFortR +BugReports: https://github.com/ahomoudi/AquaFortR/issues RoxygenNote: 7.3.1 Suggests: knitr, diff --git a/RPackage/NEWS.md b/RPackage/NEWS.md new file mode 100644 index 0000000..798a3cd --- /dev/null +++ b/RPackage/NEWS.md @@ -0,0 +1 @@ +# AquaFortR 1.0.0 diff --git a/RPackage/README.md b/RPackage/README.md index abb939c..6ac5294 100644 --- a/RPackage/README.md +++ b/RPackage/README.md @@ -1,15 +1,15 @@ # AquaFortR -[![R-CMD-check](https://github.com/AHomoudi/AquaFortR/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/AHomoudi/AquaFortR/actions/workflows/R-CMD-check.yaml) -[![Quarto Publish](https://github.com/AHomoudi/AquaFortR/workflows/Quarto%20Publish/badge.svg)](https://github.com/AHomoudi/AquaFortR/actions?query=workflow:"Quarto+Publish") -[![GitHub tag](https://img.shields.io/github/tag/AHomoudi/AquaFortR?include_prereleases=&sort=semver&color=blue)](https://github.com/AHomoudi/AquaFortR/releases/) +[![R-CMD-check](https://github.com/ahomoudi/AquaFortR/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/ahomoudi/AquaFortR/actions/workflows/R-CMD-check.yaml) +[![Quarto Publish](https://github.com/ahomoudi/AquaFortR/workflows/Quarto%20Publish/badge.svg)](https://github.com/ahomoudi/AquaFortR/actions?query=workflow:"Quarto+Publish") +[![GitHub tag](https://img.shields.io/github/tag/ahomoudi/AquaFortR?include_prereleases=&sort=semver&color=blue)](https://github.com/ahomoudi/AquaFortR/releases/) [![License](https://img.shields.io/badge/License-CCBY-blue)](#license) This is the main webpage of the project AquaFortR: Streamlining Atmospheric Science, Oceanography, Climate, and Water Research with Fortran-accelerated R. -The project's [repository](https://github.com/AHomoudi/AquaFortR/) is structured as follows: +The project's [repository](https://github.com/ahomoudi/AquaFortR/) is structured as follows: - QuartoBook - RPackage @@ -22,7 +22,7 @@ The project's [repository](https://github.com/AHomoudi/AquaFortR/) is structured To install the AquaFortR package, please use: ```r -remotes::install_github("AHomoudi/AquaFortR", subdir = "RPackage") +remotes::install_github("ahomoudi/AquaFortR", subdir = "RPackage") ``` ### Swirl To install the AquaFortR Swirl Course, please download the compressed course from @@ -44,7 +44,7 @@ This work has been funded by the German Research Foundation (DFG) through the pr ## License -Released under [CCBY](/LICENSE) by [@AHomoudi](https://github.com/AHomoudi). +Released under [CCBY](/LICENSE) by [@ahomoudi](https://github.com/ahomoudi). diff --git a/RPackage/_pkgdown.yml b/RPackage/_pkgdown.yml index 151cc90..333e130 100644 --- a/RPackage/_pkgdown.yml +++ b/RPackage/_pkgdown.yml @@ -1,4 +1,4 @@ -url: https://AHomoudi.github.io/AquaFortR/ +url: https://ahomoudi.github.io/AquaFortR/ template: bootstrap: 5 diff --git a/RPackage/man/AquaFortR-package.Rd b/RPackage/man/AquaFortR-package.Rd index 3fc5409..4edf7b4 100644 --- a/RPackage/man/AquaFortR-package.Rd +++ b/RPackage/man/AquaFortR-package.Rd @@ -11,8 +11,8 @@ AquaFortR is an educational package for students and researchers in Atmospheric \seealso{ Useful links: \itemize{ - \item \url{https://AHomoudi.github.io/AquaFortR} - \item Report bugs at \url{https://github.com/AHomoudi/AquaFortR/issues} + \item \url{https://ahomoudi.github.io/AquaFortR} + \item Report bugs at \url{https://github.com/ahomoudi/AquaFortR/issues} } } diff --git a/prepare_data.R b/prepare_data.R deleted file mode 100644 index 16019dd..0000000 --- a/prepare_data.R +++ /dev/null @@ -1,50 +0,0 @@ -library(data.table) -library(tidyverse) - -data<-fread("/media/SSD2/DATA/DWD/sekundenwerte_aero_04928_20210101_20211231_hist/produkt_sec_aero_20210101_20211231_04928.txt", - nThread = 6) - -data <- data %>% - mutate(BEZUGSDATUM_SYNOP = strptime(BEZUGSDATUM_SYNOP, format ="%Y%m%d%H")) - - -example_data <- data %>% - filter(BEZUGSDATUM_SYNOP=="2021060112") - -fwrite(example_data, "/media/SSD2/DATA/DWD/sekundenwerte_aero_04928_20210101_20211231_hist/radiosonde-data.txt") -ggplot(example_data)+ - geom_point(aes(x = AE_GB_POS, - y = MESSZEITPUNKT, - color = AE_RF)) - -library(car) -scatter3d(x = example_data$AE_GL_POS, y = example_data$AE_GB_POS, z = example_data$MESSZEITPUNKT, - surface=FALSE) - - -as.POSIXct(x = as.vector(), - format ="%Y%m%d%H", - tz = "CET") - -#data$BEZUGSDATUM_SYNOP<- as.Date(data$BEZUGSDATUM_SYNOP, format = "%Y%m%d%H") - -library(stringr) -data$BEZUGSDATUM_SYNOP1<- as.POSIXct(data$BEZUGSDATUM_SYNOP, - "%Y%m%d%H", - tz = "CET") -hist(data$BEZUGSDATUM_SYNOP1, "months") -library(ggplot2) - - -ggplot(data_June)+ - geom_point(aes(x = BEZUGSDATUM_SYNOP1, - y = MESSZEITPUNKT, - color = AE_TT)) - -data_June<- data[which(month(data$BEZUGSDATUM_SYNOP1)==6),] - -final_data<-data_June%>% - dplyr::filter(BEZUGSDATUM_SYNOP1 %in% sample(unique(data_June$BEZUGSDATUM_SYNOP1), 5)) - -unique(final_data$BEZUGSDATUM_SYNOP) -fwrite(final_data, "/media/SSD2/DATA/DWD/sekundenwerte_aero_04928_20210101_20211231_hist/produkt_sec_aero_20210601_20210630_04928.txt")