# Make a new registry
registry <- new.registry()
# Now register it under the name "sine" (in the "example" registry)
# and keep the modified registry.
registry <- register.page(registry, "sine", AnalysisPageServer:::sine.handler)
Run the code above in your browser using DataLab