buildTaipan
taipanQuestions(scene, selection)
scene | a div containing function calls for shiny inputs. These questions relate to the entire image. |
---|---|
selection | a div containing function calls for shiny inputs. These questions relate to each selected area of an image. There is no limit on how many times these questions will be asked. |
# NOT RUN { questions <- taipanQuestions( scene = div(radioButtons("graphic", label = ("2D Graphic"), choices = list("Live image", "2D Graphic")), radioButtons("bg", label = ("Background"), choices = list("Crowd", "Court", "Logo wall", "Not applicable")), radioButtons("person", label = ("Detectable Person"), choices = list("Yes", "No")), radioButtons("shotangle", label = ("Shot angle"), choices = list("Level with players", "Birds eye", "Upward angle")), radioButtons("situation", label = ("Situation"), choices = list("Court in play", "Court player close-up", "Court close-up not player", "Crowd", "Off court close up of player", "Transition"))), selection = div(radioButtons("detect", label = ("Detect Face"), choices = list("Player" , "Other staff on court", "Fan", "None")), radioButtons("obscured", label = ("Face obscured"), choices = list("Yes", "No")), radioButtons("lighting", label = ("Lighting"), choices = list("Direct sunlight", "Shaded", "Partially shaded")), radioButtons("headangle", label = ("Head angle"), choices = list("Front on", "Back of head", "Profile", "Other")), radioButtons("glasses", label = ("Glasses"), choices = list("Yes", "No")), radioButtons("visorhat", label = ("Visor/hat"), choices = list("Yes", "No"))) ) # }