function (name_service = c("WTSS", "SATVEG"), coverage = c("MOD13Q1", 
    "terra", "aqua", "comb"), longitude = NULL, latitude = NULL, 
    bands = c("NDVI", "EVI", "NIR", "MIR", "BLUE", "RED"), start_date = NULL, 
    end_date = NULL) 
{
    name_service <- match.arg(name_service)
    coverage <- match.arg(coverage)
    if (name_service == "WTSS" & coverage == "MOD13Q1") {
        cube_wtss <- sits::sits_cube(type = name_service, name = coverage, 
            URL = "http://www.esensing.dpi.inpe.br/wtss/")
        point.tb <- sits::sits_get_data(cube = cube_wtss, longitude = as.numeric(longitude), 
            latitude = as.numeric(latitude), bands = c(bands), 
            start_date = start_date, end_date = end_date)
        return(point.tb)
    }
    if (name_service == "SATVEG" & (coverage == "terra" | coverage == 
        "aqua" | coverage == "comb")) {
        cube_satveg <- sits::sits_cube(type = name_service, name = coverage)
        point.tb <- sits::sits_get_data(cube = cube_satveg, longitude = as.numeric(longitude), 
            latitude = as.numeric(latitude))
        return(point.tb)
    }
}
<bytecode: 0x562d11d041e0>
<environment: namespace:ocpusits>