Adjust font sizes in animate_gather/spread

And change Long/Wide to lowercase to reflect that they are both variables names and a description of the state of the data.

R/animate_tidyr.R

   id_string <- paste0(", ", paste(sprintf("-%s", ids), collapse = ", "))
 
   sequence <- c(
-    current_state = "Wide",
-    final_state = "Long",
+    current_state = "wide",
+    final_state = "long",
     operation = sprintf("gather(%s, %s, %s%s)",
                         wname,
                         dput_parser(key),
   id_string <- paste0(", ", paste(sprintf("-%s", ids), collapse = ", "))
 
   sequence <- c(
-    current_state = "Long",
-    final_state = "Wide",
+    current_state = "long",
+    final_state = "wide",
     operation = sprintf("spread(%s, %s, %s)",
                         lname,
                         dput_parser(key),

README.Rmd

 > Gather takes multiple columns and collapses into key-value pairs, duplicating all other columns as needed. You use gather() when you notice that your column names are not names of variables, but values of a variable.
 
 ```{r gather}
+set_font_size(4.5, 15)
 animate_gather(wide, key = "person", value = "sales", -year)
 ```
 

README.md

 > of a variable.
 
 ``` r
+set_font_size(4.5, 15)
 animate_gather(wide, key = "person", value = "sales", -year)
 ```