EdgeDetect for / find boundary of data in lists

Question

I assume this is a simple task, yet I could not find any documentation or question treating this problem:

Let's say we have a simple binary data set, in this case defining a shape of a circle

data = Flatten[Table[{x, y, If[x^2 + y^2 < 1, 1, 0]}, {x, -2, 2, 0.1}, {y, -2, 2, 0.1}], 1];
ListDensityPlot[data, InterpolationOrder -> 0]

Now I want to have the points forming the boundary of this object, in coordinates {{x1,y1},{x2,y2},...}.

It seems to be exactly what EdgeDetect is doing, but that function does not accept data points, only images. Is there a similar function for data points?

These posts are related, but not the same in my opinion:

1. Finding edges of a parametrized function
2. Finding the edge of the plot area
3. Finding the edge of data set

The last question (3) is probably the same but the input data format seems to be different than here and the data is not available anymore.

Answer 1

Turn the data into an image, apply EdgeDetect, and (if needed) translate back to ImageData:

data = Table[If[x^2 + y^2 < 1, 1, 0], {x, -2, 2, 0.1}, {y, -2, 2, 0.1}];
edge = EdgeDetect[Image[data]]
edgeData = Table[{(x - 21)/10, (y - 21)/10, 
                 ImageData[edge][[x, y]]}, {x, 41}, {y, 41}];

The final line puts the {x,y} coordinates with the edges.