As a workaround you can use the ocean polygon instead, e.g.:
GeoNearest[
"City",
Entity["Ocean","PacificOcean"]["Polygon"],
30
]
{Entity["City", {"Avera", "Tubuai", "FrenchPolynesia"}],
Entity["City", {"Niusuatia", "Tuamasaga", "Samoa"}],
Entity["City", {"Uturoa", "IlesSousLeVent", "FrenchPolynesia"}],
Entity["City", {"Fakahima", "TuamotuGambier", "FrenchPolynesia"}],
Entity["City", {"Salesatele", "Atua", "Samoa"}],
Entity["City", {"Sapulu", "FaAsaleleaga", "Samoa"}],
Entity["City", {"Samamea", "VaAOFonoti", "Samoa"}],
Entity["City", {"Tafagamanu", "AAna", "Samoa"}],
Entity["City", {"Vailoa", "Tuamasaga", "Samoa"}],
Entity["City", {"Anaa", "TuamotuGambier", "FrenchPolynesia"}],
Entity["City", {"Ofu", "Manua", "AmericanSamoa"}],
Entity["City", {"Papeete", "IlesDuVent", "FrenchPolynesia"}],
Entity["City", {"SalelavaluTai", "FaAsaleleaga", "Samoa"}],
Entity["City", {"Paepaeala", "AigaILeTai", "Samoa"}],
Entity["City", {"Afega", "Tuamasaga", "Samoa"}],
Entity["City", {"Faleu", "AigaILeTai", "Samoa"}],
Entity["City", {"Taahuaia", "Tubuai", "FrenchPolynesia"}],
Entity["City", {"Asaga", "FaAsaleleaga", "Samoa"}],
Entity["City", {"Tufutafoe", "Vaisigano", "Samoa"}],
Entity["City", {"ApolimaIsland", "AigaILeTai", "Samoa"}],
Entity["City", {"SiumuUta", "Tuamasaga", "Samoa"}],
Entity["City", {"Faleseela", "AAna", "Samoa"}],
Entity["City", {"Maupiti", "IlesSousLeVent", "FrenchPolynesia"}],
Entity["City", {"Mauga", "GagaEmauga", "Samoa"}],
Entity["City", {"Apia", "Tuamasaga", "Samoa"}],
Entity["City", {"IslandViewPiosBeach", "BayOfPlenty", "NewZealand"}],
Entity["City", {"Mutis", "Choco", "Colombia"}],
Entity["City", {"Kavieng", "NewIreland", "PapuaNewGuinea"}],
Entity["City", {"Pimentel", "Lambayeque", "Peru"}],
Entity["City", {"Palestina", "Guayas", "Ecuador"}]}
Since you're interested in the coastline, the following might be better:
GeoNearest[
"City",
Line @@ Entity["Ocean","PacificOcean"]["Polygon"],
30
]
{Entity["City", {"IslandViewPiosBeach", "BayOfPlenty", "NewZealand"}],
Entity["City", {"Mutis", "Choco", "Colombia"}],
Entity["City", {"Kavieng", "NewIreland", "PapuaNewGuinea"}],
Entity["City", {"Pimentel", "Lambayeque", "Peru"}],
Entity["City", {"Palestina", "Guayas", "Ecuador"}],
Entity["City", {"Cabra", "Panama", "Panama"}],
Entity["City", {"Aberpura", "Papua", "Indonesia"}],
Entity["City", {"AlvaroObregon", "Chiapas", "Mexico"}],
Entity["City", {"Acacoyagua", "Chiapas", "Mexico"}],
Entity["City", {"Santiago", "Veraguas", "Panama"}],
Entity["City", {"BuenosAires", "Puntarenas", "CostaRica"}],
Entity["City", {"Courtenay", "BritishColumbia", "Canada"}],
Entity["City", {"Salem", "Oregon", "UnitedStates"}],
Entity["City", {"Damascus", "Oregon", "UnitedStates"}],
Entity["City", {"Roxana", "Limon", "CostaRica"}],
Entity["City", {"LosChiles", "Alajuela", "CostaRica"}],
Entity["City", {"Gizo", "Western", "SolomonIslands"}],
Entity["City", {"Barranco", "BocasDelToro", "Panama"}],
Entity["City", {"Limon", "Limon", "CostaRica"}],
Entity["City", {"Karuizawa", "Nagano", "Japan"}],
Entity["City", {"Cabanas", "Zacapa", "Guatemala"}],
Entity["City", {"LeGrand", "California", "UnitedStates"}],
Entity["City", {"Suwa", "Nagano", "Japan"}],
Entity["City", {"WhiteRock", "BritishColumbia", "Canada"}],
Entity["City", {"Ambato", "Tungurahua", "Ecuador"}],
Entity["City", {"Buritica", "Antioquia", "Colombia"}],
Entity["City", {"Oluta", "Veracruz", "Mexico"}],
Entity["City", {"Abejorral", "Antioquia", "Colombia"}],
Entity["City", {"Wasco", "Oregon", "UnitedStates"}],
Entity["City", {"BarraDeSantaAna", "Tabasco", "Mexico"}]}
Since the Polygon
and Line
versions work, it might be worthwhile asking support why the plain Entity
version doesn't work
GeoNearest[ ... theOcean]
approach. $\endgroup$