Please fix the code: what is wrong with my code i want output as

symbol definition

$1$ : base

$2\{$ base

$3$ for base

$4$ j temp symbol

$5$ n arg

$6$ print base

$7$ s arg

but the output is

symbol definition

$1\{$ base

$2$ j base

$3$ : base

$4$ n arg

$5$ print base

$6$ s arg

Code:

definedInImports $<-$ function$($symbol$,$ package$)\{$

env $<-$ as$.$environment$($package$)$

exists$($symbol$,$ where $=$ env, mode $=$ "function"$)$

$\}$

listSymbols $<-$ function$($f$)\{$

if $(!$is$.$function$($f$))$ stop$("$The provided object is not a function."$)$

args $<-$ names$($formals$($f$))$

symbols $<-$ character$()$

definitions $<-$ character$()$

extractSymbols $<-$ function$($expr$,$ temp$\_$symbols$)\{$

if $($is$.$symbol$($expr$))\{$

symbols $<<-$ c$($symbols$,$ as$.$character$($expr$))$

if $($as$.$character$($expr$)\%$in$\%$ temp$\_$symbols$)\{$

definitions $<<-$ c$($definitions$,$ "temp symbol"$)$

$\}$

$\}$ else if $($is$.$call$($expr$)$ && $($expr$[[1]]==$ as$.$symbol$("$for$")||$ expr$[[1]]==$ as$.$symbol$("$while$")))\{$

# if the expression is a for or while loop, extract the symbols used

for $($sub$\_$expr in as$.$list$($expr$)[-1])\{$

extractSymbols$($sub$\_$expr, temp$\_$symbols$)$

$\}$

$\}$ else if $($is$.$call$($expr$)||$ is$.$expression$($expr$))\{$

for $($sub$\_$expr in as$.$list$($expr$))\{$

extractSymbols$($sub$\_$expr, temp$\_$symbols$)$

$\}$

$\}$

$\}$

temp$\_$symbols $<-$ ls$($environment$($f$))$

extractSymbols$($body$($f$),$ temp$\_$symbols$)$

symbols $<-$ unique$($symbols$)$

symbols $<-$ symbols$[!$symbols $\%$in$\%$ c$("(",")","[[","$@$","$::$","$:::$","")]$

for $($sym in symbols$)\{$

if $($sym $\%$in$\%$ args$)\{$

definitions $<-$ c$($definitions$,$ "arg"$)$

$\}$ else if $($sym $\%$in$\%$ temp$\_$symbols$)\{$

definitions $<-$ c$($definitions$,$ "locally defined", "temp symbol"$)$

$\}$ else $\{$

definitions $<-$ c$($definitions$,$ "base"$)$ # All other symbols categorized as 'base'

$\}$

$\}$

data.frame$($symbol $=$ symbols, definition $=$ definitions, stringsAsFactors $=$ FALSE$)$

$\}$

# Example

g $<-$ function$($s$,$ n$)\{$

for $($j in $1$:n$)\{$

print$($s$)$

$\}$

$\}$

g$("$Hello world!", $5)$

listSymbols$($f $=$ g$)$