Skip to main content

wolfram cloud - Creating forms with FormFunction with additional elements before input fields


I am trying to construct a simple form that comprises two essential parts. The first part, that comes before input fields is a question containing text (several paragraphs), matrix and so on. The second part is the form with radio buttons to select the right answer.


The second part is simple to do with the following (or similar code, here is only a simple example)


FormFunction[
 FormObject[<|
   "x" -> <|
     "Interpreter" -> {"A" -> 1, "B" -> 2},
     "Control" -> RadioButtonBar,
     "Label" -> "Select answer"

     |>|>], ,
AppearanceRules -> <|  |>
]

The problem is that when deployed to Wolfram Cloud the above code generates a page that starts with input fields. The only way to put something before the input fields (here radio buttons) is to use


AppearanceRules -> <|
"Title"-> "Some title",
"Description" -> "Here some description"
|>


The title will be on the very top of the page and description below but before the input fields. There are two problems.



  1. AppearanceRules seems to be completely ignored if FormObject[] is used.

  2. I need Description to contain a couple of paragraphs of text and some simple other elements (like a table).


Questions:



  1. Can anyone confirm the first problem (I am using Mathematica 11.1 but this is cloud related so shouldn't matter)?

  2. What can be passed to Description? In particular, using ExportForm with PNG format I can create an image with text that is properly displayed but this seems like an overkill.

  3. What would be an optimal way to construct such a form? I feel that using FormFunction[] here is like overloading the intended purpose of the function.



Thanks for all help.


Edit.


As suggested by @b3m2a1 (thanks) I tried this.


FormFunction[
 {Style["Wow", "Title"],
  "This is a different character",
  "x" -> <|"Interpreter" -> {"A" -> 1, "B" -> 2},
    "Control" -> RadioButtonBar,
    "Label" -> "Select choice"|>},

 Identity,
 PageTheme -> "Blue"
 ]

This works producing the following form.


Form 1 (works)


However, when I add some other characters like in the following code (note the specific characters).


FormFunction[
 {Style["Wow", "Title"],
  "This is a different character śćńąśżź",

  "x" -> <|"Interpreter" -> {"A" -> 1, "B" -> 2},
    "Control" -> RadioButtonBar,
    "Label" -> "Select choice"|>},
 Identity,
 PageTheme -> "Blue"
 ]

I get the following results (fail).


enter image description here


There is obviously something wrong. The difference between the first working form and the second not working one are only the specific characters.



One thing that is not obvious to me is how can I add a mathematics as an element of description. In more general terms, suppose I want to add the following cell.


Cell[TextData[{
    "This is ",
    StyleBox["another",
      FontWeight -> "Bold"],
    " text. This is some mathematical notation ",
    Cell[BoxData[
       FormBox[
         RowBox[{
            RowBox[{"F", "(", "x", ")"}], "=", 

            RowBox[{
               SubsuperscriptBox["\[Integral]", 
                 RowBox[{"-", "\[Infinity]"}], "x"], 
               RowBox[{
                  RowBox[{"f", "(", "\[Tau]", ")"}], 
                  RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}]}], 
      TraditionalForm]],
      FormatType -> "TraditionalForm"],
    ". "
   }], "Text"]


The capability of adding such elements solves my problem completely.



Answer



Give this a try:


fo =
  FormFunction[{
    Style["Woopdoop", "Title"],
    "ü",
    EmbeddedHTML["à"],
    "whee" -> <|

      "Interpreter" ->
       {"asd" -> 1, "asdasd" -> 2},
      "Control" -> RadioButtonBar
      |>
    },
   Null
   ];

ws = Quiet@HTTPHandling`StartWebServer[fo];
"http://localhost:7000" // SystemOpen



HTML


Some unicode characters clearly cause issues. We can get around this by exporting to XML first:


fo =
  FormFunction[{Style["Wow", "Title"],
    ExportString[
     XMLElement["p",
      {},
      {"This is a different character śćńąśżź"}],

     "XML"
     ],
    "x" -> <|"Interpreter" -> {"A" -> 1, "B" -> 2}, 
      "Control" -> RadioButtonBar, "Label" -> "Select choice"|>}, 
   Identity, PageTheme -> "Blue"];
ws = Quiet@HTTPHandling`StartWebServer[fo];
"http://localhost:7000" // SystemOpen

Math


As for math, you can use MathML pretty easily, as it has native support:



fo =
  FormFunction[{Style["Wow", "Title"],
    ExportString[
     XMLElement["p",
      {},
      {"This is a different character śćńąśżź"}],
     "XML"
     ],
    ExportString[
     Unevaluated[Integrate[a, {v, 0, Pi}]],

     "MathML"
     ],
    "x" -> <|"Interpreter" -> {"A" -> 1, "B" -> 2}, 
      "Control" -> RadioButtonBar, "Label" -> "Select choice"|>}, 
   Identity, PageTheme -> "Blue"];
ws = Quiet@HTTPHandling`StartWebServer[fo];
"http://localhost:7000" // SystemOpen

but I'm not gonna deny that's super ugly. On the other hand, any format a browser can read will work, so you can write something in XML and just export it.


Styled HTML



And we can also use this to add arbitrary styling. But we have to handle the fact that the basic XMLElement[_,{___, "style"->styleString, ___}, ___] method will fail. This implements correct element-specific style exports:


cssStyleBuild[rules_] :=
  StringRiffle[
   Replace[rules,
    (Rule | RuleDelayed)[k_, v_] :>
     (ToString[k] <> ":" <> ToString[v]),
    1
    ],
   "; "
   ];

styledXMLExport[xml_, styleRules_] :=
 With[{
   holdTokens =
    AssociationMap[
     CreateUUID,
     Keys[styleRules]
     ],
   styles =
    Association@
     Map[

      #[[1]] -> cssStyleBuild[#[[2]]] &,
      styleRules
      ]
   },
  StringReplace[
   ExportString[
    xml //.
     KeyValueMap[
      XMLElement[#, r_?(! KeyMemberQ[#, "style"] &), e_] :>
        XMLElement[#, Append[r, "style" -> #2], e] &,

      holdTokens
      ],
    "XML"
    ],
   KeyValueMap[
    "'" <> #2 <> "'" -> "\"" <> styles[#] <> "\"" &,
    holdTokens
    ]
   ]
  ]


And then we'll apply that here:


$styles =
  {
   "p" -> {
     "color" -> "blue"
     }
   };
fo =
  FormFunction[{Style["Wow", "Title"],

    styledXMLExport[
     XMLElement["p", {}, {"asdasd"}],
     $styles
     ],
    "x" -> <|"Interpreter" -> {"A" -> 1, "B" -> 2}, 
      "Control" -> RadioButtonBar, "Label" -> "Select choice"|>}, 
   Identity, PageTheme -> "Blue"];
ws = Quiet@HTTPHandling`StartWebServer[fo];
"http://localhost:7000" // SystemOpen


Now you can use styled arbitrary HTML in your text blocks.


Comments

Post a Comment

Popular posts from this blog

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Mathematica: 3D plot based on combined 2D graphs

I have several sigmoidal fits to 3 different datasets, with mean fit predictions plus the 95% confidence limits (not symmetrical around the mean) and the actual data. I would now like to show these different 2D plots projected in 3D as in but then using proper perspective. In the link here they give some solutions to combine the plots using isometric perspective, but I would like to use proper 3 point perspective. Any thoughts? Also any way to show the mean points per time point for each series plus or minus the standard error on the mean would be cool too, either using points+vertical bars, or using spheres plus tubes. Below are some test data and the fit function I am using. Note that I am working on a logit(proportion) scale and that the final vertical scale is Log10(percentage). (* some test data *) data = Table[Null, {i, 4}]; data[[1]] = {{1, -5.8}, {2, -5.4}, {3, -0.8}, {4, -0.2}, {5, 4.6}, {1, -6.4}, {2, -5.6}, {3, -0.7}, {4, 0.04}, {5, 1.0}, {1, -6.8}, {2, -4.7}, {3, -1....
Post a Comment
Read more