Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/uskovgs/panstarrs
PanSTARRS R API https://uskovgs.github.io/PanSTARRS/
https://github.com/uskovgs/panstarrs
api astro astronomy astrophysics cran r
Last synced: 16 days ago
JSON representation
PanSTARRS R API https://uskovgs.github.io/PanSTARRS/
- Host: GitHub
- URL: https://github.com/uskovgs/panstarrs
- Owner: uskovgs
- License: other
- Created: 2021-11-03T10:45:56.000Z (about 3 years ago)
- Default Branch: main
- Last Pushed: 2024-07-11T13:48:07.000Z (6 months ago)
- Last Synced: 2024-12-15T22:51:33.116Z (16 days ago)
- Topics: api, astro, astronomy, astrophysics, cran, r
- Language: R
- Homepage:
- Size: 2.99 MB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Changelog: NEWS.md
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
README
[](https://CRAN.R-project.org/package=panstarrs) [](https://lifecycle.r-lib.org/articles/stages.html#stable) [](https://CRAN.R-project.org/package=panstarrs)
# panstarrs
The goal of panstarrs package is to access [PanSTARRS](https://outerspace.stsci.edu/display/PANSTARRS/) data archive.
## Installation
You can install the released version of panstarrs with:
``` r
# devtools::install_github('uskovgs/PanSTARRS')
install.packages("panstarrs")
```
## Example
``` r
library(panstarrs)
library(magrittr)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
coords <- ps1_mast_resolve('Antennae')
ps1_image_color(ra = coords$ra,
dec = coords$decl,
format = 'png',
size = 400) %>%
magick::image_read()
```
``` r
fits_image_url <- ps1_image_url(ra = coords$ra,
dec = coords$decl,
size = 1280,
filter = "r",
format = "fits")
# fits_image <- FITSio::readFITS(fits_image_url)
ps1_crossmatch(ra = c(268.70342, 168.87258),
dec = c(71.54292, 60.75153),
release = 'dr2',
table = 'mean') %>%
select(MatchRA, MatchDEC, dstArcSec, `_searchID_`, objName) %>%
arrange(`_searchID_`, dstArcSec)
#> # A tibble: 8 × 5
#> MatchRA MatchDEC dstArcSec `_searchID_` objName
#>
#> 1 269. 71.5 1.25 0 PSO J268.7044+71.5430
#> 2 269. 71.5 1.72 0 PSO J268.7033+71.5434
#> 3 269. 71.5 1.83 0 PSO J268.7023+71.5425
#> 4 269. 71.5 2.23 0 PSO J268.7053+71.5428
#> 5 269. 71.5 2.91 0 PSO J268.7053+71.5424
#> 6 269. 71.5 2.97 0 PSO J268.7059+71.5431
#> 7 169. 60.8 0.470 1 PSO J168.8729+60.7515
#> 8 169. 60.8 1.61 1 PSO J168.8733+60.7512
```