WOLFRAM NOTEBOOK

1. Make the content to be published :
In[]:=
LabelMoleculeDrawing[image_]:=MoleculePlot[MoleculeRecognize[image],<|"Carbonyl"->Bond[{"C","O"},"Double"],"Ring carbons"->Atom["C","RingAtomQ"->True]|>]
In[]:=
LabelMoleculeDrawing
Out[]=
Ring carbons
2. Use the CloudDeploy function to publish to the cloud :
In[]:=
CloudDeploy[FormFunction[{"molecule"->"Image"},LabelMoleculeDrawing[#image]&,"JPEG",AppearanceRules->{"Title"->"Molecule recognizer"}],Permissions->"Public"]
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.