I decided to play around with DiagrammeR in order to make ICMs to complete the Course & Unit Design activity for my Instructional Design project. I included my code so you can see how I made the ICMs.

FYI: “SWBAT” = “Students Will Be Able To”

Course Title: Making Simple Interactive Maps with Social Media Data in R

DiagrammeR::grViz("
digraph org{

graph [layout = dot, rankdir = BT, fontsize = 20]
node [shape= box, fontname = Helvetica, color = Black, style = filled, penwidth = 5]


node[fillcolor = LightBlue]
A [label='In the case for using Twitter data for research purposes, SWBAT identify proper uses and improper uses of Twitter.']
B [label='SWBAT generate Twitter searches to collect data using Twitter APIs in the R programming language.']
C [label='SWBAT generate a simple map using the Leaflet package in the R programming language.']
D [label = 'SWBAT generate a simple map using the Shiny package in the R programming language.']

node [fillcolor = DeepSkyBlue]
E [label = 'SWBAT generate a simple interactive map using Twitter data in the R programming language.']



A->B
B->C
C->D
D->E

}

", height = 500)

Here is an ICM for the second unit in my course ICM.

Unit 2: Collecting Twitter Data

DiagrammeR::grViz("
digraph org{

graph [layout = dot, rankdir = BT, fontsize = 20, nodesep = 0.1]
node [shape= box, fontname = Helvetica, color = Black, style = filled, penwidth = 5]

node[fillcolor = LightBlue]
A [label='SWBAT summarize the functions of the Twitter APIs used for collecting data.']B [label='Following the parameters of the twitteR package in R, SWBAT demonstrate how to conduct a Twitter search.']
C [label='Following the parameters of the streamR package in R, SWBAT demonstrate how to conduct a Twitter search.']
E [label = 'SWBAT demonstrate Twitter searches on the Twitter website.']


node [fillcolor = DeepSkyBlue]
D [label = 'SWBAT generate Twitter searches to collect data using Twitter APIs in the R programming language.']

E->A [fontsize = 20, fontname = Helvetica, label = '-----------Entry Skill-----------']
A->B
B->C
C->D


subgraph verbal{
node [shape = triangle, color = Black, style = filled]
edge [arrowhead = none]
node [fillcolor = Gold]
V [label = 'V']
rank = same;A;V;
A->V



}

subgraph tasks{
node [shape = box, color = Black, style = filled]
edge [arrowhead = none]
node[fillcolor = LightBlue]
T [label = 'SWBAT state the two types of Twitter APIs used to collect Twitter data.']
rank = same;A;T;
V->T

T2[label = 'SWBAT state the definition of an API.']
rank = same;T;T2;

node [shape = triangle, color = black, style = filled]
edge [arrowhead = none]
node [fillcolor = Gold]
V2 [label = 'V']
rank = same;A;V;T;T2

T->V2
V2->T2


}



}

", height = 500)

Created using DiagrammeR and R Markdown