I developed the following code which is suitable for cloud deployment. However, in order to avoid the problems of the cloud, I would like to create an user interface that runs in a Mathematica notebook. How could I do that? My code is as follows:
dobermann =
{-> "Dobermann", -> "Dobermann", -> "Dobermann", -> "Dobermann", -> "Dobermann"};
rottweiler =
{-> "Rottweiler", -> "Rottweiler", -> "Rottweiler", -> "Rottweiler", -> "Rottweiler"};
alano =
{-> "Alano", -> "Alano", -> "Alano", -> "Alano", -> "Alano"};
labrador =
{-> "Labrador", -> "Labrador", -> "Labrador", -> "Labrador", -> "Labrador" };
husky =
{-> "Husky", -> "Husky", -> "Husky", -> "Husky", -> "Husky" };
dogTypeSet = {dobermann, rottweiler, alano, labrador, husky};
class = Classify[Flatten[{dobermann, rottweiler, alano, labrador, husky}]];
CloudDeploy[
FormPage[
"image" -> "Image",
Column[{#image, "This is a " <> ToString[class[#image]]}] &,
AppearanceRules ->
<|"Title" -> "What dog is that?",
"Description" -> "Enter an image of a dog and I'll tell you what it is",
"SubmitLabel" -> "Classify"|>, PageTheme -> "Blue"],
Permissions -> "Public"]
The images must be inserted before the arrows. I removed them so as not to have problems in transcribing the code.