add render props to InfiniteListBase component

Author: ThieryMichel

packages/ra-core/src/controller/list/InfiniteListBase.stories.tsx

@@ -259,25 +259,54 @@ export const WithRenderProps = () => (
                     hasPreviousPage,
                     fetchPreviousPage,
                     isFetchingPreviousPage,
+                    setFilters,
+                    isPending,
+                    setSort,
+                    sort,
+                    filterValues,
+                    data,
                 } = context;
+
+                if (isPending) {
+                    return <div>Loading...</div>;
+                }
+                const toggleSort = () => {
+                    setSort({
+                        field: sort.field === 'title' ? 'id' : 'title',
+                        order: 'ASC',
+                    });
+                };
+                const toggleFilter = () => {
+                    setFilters(filterValues.q ? {} : { q: 'The ' });
+                };
+
                 return (
                     <div>
-                        {hasPreviousPage && (
-                            <button
-                                onClick={() => fetchPreviousPage()}
-                                disabled={isFetchingPreviousPage}
-                            >
-                                Previous
-                            </button>
-                        )}
-                        {hasNextPage && (
-                            <button
-                                onClick={() => fetchNextPage()}
-                                disabled={isFetchingNextPage}
-                            >
-                                Next
-                            </button>
-                        )}
+                        <div>
+                            {hasPreviousPage && (
+                                <button
+                                    onClick={() => fetchPreviousPage()}
+                                    disabled={isFetchingPreviousPage}
+                                >
+                                    Previous
+                                </button>
+                            )}
+                            {hasNextPage && (
+                                <button
+                                    onClick={() => fetchNextPage()}
+                                    disabled={isFetchingNextPage}
+                                >
+                                    Next
+                                </button>
+                            )}
+                        </div>
+                        <button onClick={toggleSort}>Toggle Sort</button>
+                        <button onClick={toggleFilter}>Toggle Filter</button>
+                        <ul>
+                            {data?.map((record: any) => (
+                                <li key={record.id}>{record.title}</li>
+                            ))}
+                        </ul>
                     </div>
                 );
             }}

packages/ra-core/src/controller/list/InfiniteListBase.tsx

@@ -82,7 +82,7 @@ export const InfiniteListBase = <RecordType extends RaRecord = any>({
                             controllerProps.isFetchingPreviousPage,
                     }}
                 >
-                    {children}
+                    {render ? render(controllerProps) : children}
                 </InfinitePaginationContext.Provider>
             </ListContextProvider>
         </OptionalResourceContextProvider>